|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
06.03.2010, 17:39 | #1 (permalink) |
Новичок
Регистрация: 14.01.2010
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Разветвляющийся алгоритм в Паскале
|
06.03.2010, 17:39 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
В этом деле лучше не спешить, посмотрите внимательно однородные темы Разработать алгоритм и составить программу для решения задачи Алгоритм |
06.03.2010, 18:34 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Примерно так:
Код:
program calc; var y, y1, y2, x:real; begin writeln('Input x'); readln(x); if x<=0 then writeln('Нет решений') else begin y2:=...; if x>=5 then y1:=... else y1:=...; y:=y1+sqr(y2); writeln('y=',y); end; readln; end.
__________________
Убить всех человеков! |
06.03.2010, 18:48 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR x,Y,Y1,Y2:REAL; BEGIN Write('x= '); ReadLn(x); If x<=0 then WriteLn('No solution') else begin Y2:=ln(x)+1; if x>=5.0 then Y1:=exp(0.5*ln(sqr(x)+5)) else Y1:=(sqr(x)-sin(x)/cos(x))/3; Y:=Y1+sqr(Y2); WriteLn(Y); end; ReadLn; END. P.S. Ну вот видите - сразу два программиста откликнулись! Можем еще привлечь, если надо! |
|
14.04.2010, 21:54 | #4 (permalink) |
Новичок
Регистрация: 14.01.2010
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Большое спасибо!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|