равно
не равно
4 1 6 2 5 3
if not (a > b) or (c <> d) and (b <> a)
then begin
...
end
Сложные условия
True
True
FALSE
(-∞; 6)
∅
(6; 10)
(10; ∞)
(-∞; 10)
(-∞; 6) ∪ (10;∞)
(-∞; ∞)
(6; ∞)
x < 6
x > 10
x < 10
x > 6
True
True
проверить, все ли сделали
вывод на экран
считаем очередной шаг
K
, K
program Privet3;
var N: integer;
begin
N:= 5;
while ( N <> ??? ) do begin
writeln('Привет!');
???;
end
end.
0
N:= N - 1;
Что получим?
1
2
3
4
5
Что получим?
1
3
5
Что получим?
2
4
6
8
10
12
14
16
...
Что получим?
1
8
27
64
125
Что получим?
125
64
27
8
1
обнулить счетчик цифр
ввод n
выполнять «пока n <> 0»
while n <> 0 do begin
count := count + 1;
n := n div 10;
end;
, n1: integer;
n1 := n;
n1,
выполнять «пока n <> 0»
Особенности:
можно использовать сложные условия:
если в теле цикла только один оператор, слова begin и end можно не писать:
while (a < b) and (b < c) do begin
{тело цикла}
end;
while a < b do
a := a + 1;
a := 4; b := 6;
while a > b do
a := a – b;
a := 4; b := 6;
while a < b do
d := a + b;
Цикл с постусловием – это цикл, в котором проверка условия выполняется в конце цикла.
основной
алгоритм
repeat
writeln('Введите положительное число');
read(n);
until n > 0;
until n > 0;
условие ВЫХОДА
Особенности:
тело цикла всегда выполняется хотя бы один раз
после слова until ("до тех пор, пока не…") ставится условие ВЫХОДА из цикла
3 раза
a = 7
a := 4; b := 6;
repeat a := a + b; until a > b;
1 раз
a = 10
a := 4; b := 6;
repeat a := a + b; until a < b;
зацикливание
a := 4; b := 6;
repeat b := a - b; until a < b;
2 раза
b = 6
a := 4; b := 6;
repeat a := a + 2; until a < b;
зацикливание
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть