Задание: Вычислить сумму натурального ряда чисел от 1 до N, т.е. найти сумму .
Решения задания с использованием циклов repeat, while и for приведены ниже. Схемы алгоритмов представлены на рисунках Ж.6-Ж.8.
Программа с использованием оператора цикла с параметром for. | Программа с использованием оператора цикла с постусловием repeat. | Программа с использованием оператора цикла с предусловием while. |
ProgramNatur3; Vara, Summa: integer; Begin write('N='); readln(N); {Цикл с параметром} Summa:=0; for а:= 1 to N do Summa: =Summa+a; Writeln(' Результат = ', Summa); end. | ProgramNatur2; Vara, Summa: integer; Begin write('N='); readln(N); {Цикл с постусловием} а:=1; Summa:=0; repeat Summa:=Summa+ a; а:=а+1; until a>N; Writeln(' Результат = ', Summa); end. | ProgramNatur1; Vara, Summa: integer; Begin write('N='); readln(N); {Цикл с предусловием} a:=l; Summa:=0; while a<=N do begin Summa:=Summa+a; a:= a + 1; end; Writeln(' Результат = ', Summa); end. |
Рисунок Ж.6 -Схема алгоритма программы | Рисунок Ж.7 -Схема алгоритма программы | Рисунок Ж.8 -Схема алгоритма программы |
Приложение З
(информационное)