|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.04.2014, 19:49 | #1 |
Регистрация: 18.03.2014
Сообщений: 4
|
Операторы циклов (составить блок-схему) / Free Pascal
Как составить блок-схему:
Program prog2; const a=3; b=10; n=10; var s,x,h:real; i:integer; begin writeln(Вычисление суммы значений функции); h:=(b-a)/(n-1); writeln( a = ,a); writeln( b = ,b); writeln( n = ,n); writeln( h = ,h:0:8); writeln; {цикл "while"} writeln(1. Цикл "while"); x:=a; s:=0; i:=1; while i<=10 do begin s:=s+sin(x+3)/exp(2/5*ln(x+3)); x:=x+h; i:=i+1; end; write( Значение s: ); writeln(s:0:8); {цикл "repeat"} writeln(2. Цикл "repeat"); x:=a; s:=0; i:=1; repeat s:=s+sin(x+3)/exp(2/5*ln(x+3)); x:=x+h; i:=i+1; until i>10; write( Значение s: ); writeln(s:0:8); {цикл "for ... to ... do"} writeln(3. Цикл "for ... to ... do"); x:=a; s:=0; for i:=1 to 10 do begin s:=s+sin(x+3)/exp(2/5*ln(x+3)); x:=x+h; end; write( Значение s: ); writeln(s:0:8); {цикл "for ... downto ... d o"} writeln(4. Цикл "for ... downto ... do"); x:=a; s:=0; for i:=10 downto 1 do begin s:=s+sin(x+3)/exp(2/5*ln(x+3)); x:=x+h; end; write( Значение s: ); writeln(s:0:8); readln; End. |
10.04.2014, 20:37 | #2 |
Lawful Evil
Участник клуба
Регистрация: 13.05.2008
Сообщений: 1,208
|
Смотрите соседнюю свою тему.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выражение и условный оператор If (составить блок-схему) / Free Pascal | Ksyusha | Помощь студентам | 2 | 10.04.2014 20:47 |
составить 2 программы на Free Pascal по готовой блок схеме | sanka777 | Помощь студентам | 3 | 23.12.2012 16:38 |
Составить блок-схему алгоритма (Pascal) | k0tone | Помощь студентам | 6 | 14.12.2011 22:21 |
Помогите пожалуйста решить две задачи по паскалю и составить и составить блок схему! | ...Оленька... | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 20.01.2009 09:37 |