|
Задачка на тему программирования. - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
18.03.2010, 13:17
|
#1
|
|
|
|
Разведчик
|
Регистрация: 04.07.2009
Сообщений: 7
Популярность: 142
Сказал(а) спасибо: 35
Поблагодарили 66 раз(а) в 34 сообщениях
|
Задачка на тему программирования.
Помогите пожалуйста решить задачку. Pascal
[IMG]http://******.net/upload/a3470657.jpg[/IMG]
|
|
|
18.03.2010, 14:14
|
#2
|
|
|
|
Фельдмаршал
|
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
|
Re: Задачка на тему программирования.
Если центры окружностей лежат на одной линии то на турбопаскале решение таково:
Код:
program Lab;
uses crt;
var
r1,r2,r3:real;
function square(r1,r2,r3:real):real;
begin
square:=pi*((r1*r1)/2+(r2*r2)-(r3*r3)*2);
end;
begin
clrscr;
write('enter value of first radius ');
readln(r1);
write('enter value of second radius ');
readln(r2);
write('enter value of third radius ');
readln(r3);
writeln('square is ',square(r1,r2,r3):3:5);
readln;
end.
________________
Ни одно доброе дело не остается безнаказанным.
Программы:
PW: Флудобот, Девизхак, OutFocusBot, OutFocusBot ver 3 (freepvp), PWMultiHack ver 3, AutoRespawn.
JD: JDMultiHack, JDFlooder, JDBot.
Статьи: Отключаем UAC, Ищем базовый адрес Perfect World, "Патчер памяти" или "Пишем флайхак", "Патчер памяти 2" или "Пишем Джампхак", "Поиск инжектов" или "Наш код в чужом процессе"
|
|
|
Пользователь сказал cпасибо:
|
|
18.03.2010, 15:59
|
#3
|
|
|
|
Фельдмаршал
|
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
|
Re: Задачка на тему программирования.
________________
Ни одно доброе дело не остается безнаказанным.
Программы:
PW: Флудобот, Девизхак, OutFocusBot, OutFocusBot ver 3 (freepvp), PWMultiHack ver 3, AutoRespawn.
JD: JDMultiHack, JDFlooder, JDBot.
Статьи: Отключаем UAC, Ищем базовый адрес Perfect World, "Патчер памяти" или "Пишем флайхак", "Патчер памяти 2" или "Пишем Джампхак", "Поиск инжектов" или "Наш код в чужом процессе"
|
|
|
18.03.2010, 18:15
|
#4
|
|
|
|
Сержант
|
Регистрация: 11.05.2008
Сообщений: 110
Популярность: 52
Сказал(а) спасибо: 28
Поблагодарили 47 раз(а) в 18 сообщениях
|
Re: Задачка на тему программирования.
Поставь вместо Readln() вот это: while not keypressed do
________________
- Мы нашли тело Джона Рэмбо, оно угнало грузовик и взорвало заправку...
- Lerrrrrrrrrrroooooooooooy Jeeeeeeeeeeeeeeeeeeeeeeeenkins...
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 07:19.
|
|