Приклади використання циклів
Приклад 1.
Обчислити суму s=1+2+3+4+5+6+7+8+9+10
|
WHILE
|
REPEAT
|
FOR
|
|
Program pr1;
Var i,s:integer;
begin
i:=1;S:=0;
while i<=10 do
begin
S:=S+i;
i:=i+1;
end;
write(s)
end.
|
Program pr1;
Var i,s:integer;
begin
i:=1;S:=0;
repeat
S:=S+i;
i:=i+1;
until i>10;
write(s)
end.
|
Program pr1;
Var i,s:integer;
begin
S:=0;
For i:=1 to 10 do
S:=S+i;
write(s)
end.
|
Приклад 2. Протабулювати
функцію y=sin x, де х є [0,2П] з кроком П/2.
|
Program pr1;
Var x,y:real;
begin
x:=0;
while x<=2*pi do
begin
y:=sin(x);
writeln(y);
x:=x+pi/2;
end;
end.
|
Program pr1;
Var x,y:real;
begin
x:=0;
repeat
y:=sin(x);
writeln(y);
x:=x+pi/2;
until x>2*pi
end.
|
|
Приклад 3. Ввести 8 дійсних чисел і знайти їх суму.
|
Program pr1;
Var i:integer;s:real;
begin
s:=0;
i:=1;
while i<=8 do
begin
read(a);
s:= s+a;
i := i+1;
end;
write(s)
end.
|
Program pr1;
Var i:integer;s:real;
begin
s:=0;
i:=1;
repeat
read(a);
s:= s+a;
i := i+1;
until i>8;
write(s)
end.
|
Program pr1;
Var i:integer;s:real;
begin
s:=0;
for i:=1 to 8 do
begin
read(a);
s:= s+a;
end;
write(s)
end.
|
Завдання №9 ( Виконати задачі з циклами 1.While 2.Repeat 3.For )
1. Ввести 10
дійсних чисел. Знайти суму і кількість додатніх чисел.
2. Ввести 10 цілих
чисел. Всі від’ємні піднести до квадрату і вивести.
3. Ввести n дійсних чисел і знайти максимальне число.
4. Ввести n цілих чисел. Знайти
мінімальне число та його порядковий номер.
5. Ввести
послідовність натуральних чисел, яка закінчується нулем. Визначити суму чисел, які кратні числу 3.
6. Ввести
натуральне число.
а)
Знайти суму його цифр.
б)
Порахувати кількість цифр 5 у цьому числі.
в)
Порахувати кількість парних цифр у цьому числі.
Вкладені цикли
|
Вивести на екран
1234567
1234567
1234567
1234567
1234567
|
Реалізувати таке виведення можна так:
for i:=1 to 5 do
begin
for j:=1 to 7 do
write(j);
writeln
end;
|
7. Вивести на екран
а) 111
б) 111111 в) 1234 г) 1
222 333333 2345 22
333 555555 3456 333
444 777777 4567 4444
555 55555
