Программирование алгоритмов с циклической структурой.
Пример 1. Составить блок-схему алгоритма и написать программу вывода на экран таблицы степеней числа
Program Example_stepen2;
var i:integer;
begin
for i:=l to 10 do
writeln('2^',i,'=',exp(i*ln(2)):3:0);
end.
Обратите внимание на необходимость использования в последнем операторе формата вывода без знаков после запятой. Вычисляя любую встроенную математическую функцию, компилятор Паскаля обязательно сделает результат вещественным.
Пример 2. Найти сумму всех четных чисел от 1 до 100.(Составить блок-схему и программу)
Program Example_summa;
var i,s:integer;
begin
s:=0;
for i:=2 to 100 do s:=s+i;
writeln('S=',S);
end.
Пример 3. Дано натуральное n, действительное х. Вычислить S=sinx+sin2х+...+ sinn х
Разработаем алгоритм решения задачи:
1. ввести данные — количество слагаемых n и число х;
2. присвоить переменной, в которой будем хранить степени sin х, значение 1; S := 0;
3. присвоить параметру цикла значение 1;
4. если значение параметра цикла меньше n, перейти к следующему пункту, иначе к п. 9;
5. вычислить очередную степень sin х;
6. добавить вычисленное значение к сумме;
7. увеличить параметр цикла на 1;
8. перейти к п. 4;
9. вывести на печать сумму S;
10. конец.
Составить блок-схему алгоритма
Реализуем наш алгоритм на языке Паскаль.
Program Example_rqd;
var s, х, pr : real; n, i : integer;
begin
write('введите число слагаемых и х: ');
readln(n, x);
рr:=1;{эта переменная хранит 'последовательные степени sin x}
s:=0;
for i:=l to n do
begin
pr:=pr*sin(х); {очередная степень sin(x)}
s :=s+pr
end;
writeln('сумма равна ', s:7:3);
end.
Пример 4. У гусей и кроликов вместе 64 лапы. Сколько может быть гусей и кроликов (вывести все возможные сочетания)?
Program Example_lapy;
var i,j: Integer;
begin
for i:=0 to 32 do
for j:=0 to 16 do
if i*2+j*4=64 then Writeln(’Гусей -’,i’ Кроликов-’,j)
end.