Похожие презентации:
Цикл с предусловием
1. Цикл с предусловием.
2.
Повторите как работает цикл с предусловием:3.
WHILE условие DO тело цикла;Правило : пока условие верно выполнять
тело цикла
4.
1. Определите значение переменной Sпосле выполнения программы:
var s, n: integer;
begin
s:=0; n:=1;
while n<=5 do begin
write(n, ’ ');
s:=s+n;
n:=n+1;
end;
writeln(s);
end.
5.
2. Определите значение переменной Sпосле выполнения программы:
var s, n: integer;
begin
s:=0; n:=0;
while n<=10 do begin
write(n, ’ ');
s:=s+n;
n:=n+2;
end;
writeln(s);
end.
6.
3. Определите значение переменной Sпосле выполнения программы:
var s, n: integer;
begin
s:=0; n:=12
while n<20 do begin
write(n, ’ ');
s:=s+n;
n:=n+4;
end;
writeln(s);
end.
7.
4. Определите результат выполненияпрограммы:
var n: integer;
begin
n:=0
while n<4 do begin
write(’Паскаль ');
n:=n+1;
end;
end.
8. Цикл с параметром
Правило:для каждого значения
параметра, начиная
от НЗ до КЗ с шагом 1
выполнять группу
операций.
FOR ПАР:=НЗ TO КЗ DO оператор;
9.
FOR ПАР:=НЗ TO КЗ DObegin
операторы;
end;
10. Задача 1:
Определить сумму иколичество четных
натуральных трехзначных
чисел, кратных 6
(составить программу)
11.
uses crt;var k, i,s: integer;
begin
k:=0; s:=0;
for i:=100 to 999 do
if (i mod 2 =0) and (i mod 6 =0)
then begin s:=s+i; k:=k+1; end;
writeln (s,’ ‘,k);
end.
12. Задача 2:
Определить сумму и количествонатуральных трехзначных чисел,
оканчивающихся на цифру 3
(составить программу)