DELPHI 7
.pdf
vk.com/club152685050 | vk.com/id446425943
Условие с использованием логического «И»
If (a <= b) and (d = 45) then begin
// Операторы
end;
vk.com/club152685050 | vk.com/id446425943
Условие с использованием логического «ИЛИ»
If (k = 34) or (n > 23.7) then begin
// Операторы
end;
vk.com/club152685050 | vk.com/id446425943
Проблемы использования if-if-else
test := 100;
Cod:=‘B’;
if (test >= 100) then if (cod = ‘A’) then
writeln (‘Ответ 1’);
else
writeln (‘Ответ 2’);
vk.com/club152685050 | vk.com/id446425943
Оператор выбора case
Case выражение of
Список значений 1: действие 1; Список значений 2: действие 2;
………………………..
Список значений n: действие n;
Else действие n+1;
End;
vk.com/club152685050 | vk.com/id446425943
Оператор выбора case
Case X of
1: |
a:=1; |
2: |
a:=2; |
3, 4: |
a:=3; |
5, 8..100: |
a:=4; |
Else |
a:=6; |
End; |
|
vk.com/club152685050 | vk.com/id446425943
Оператор цикла For
For перемен. := нач. знач. To кон. знач.
Do
оператор;
For перемен. := нач. знач. downTo кон. знач. Do
оператор;
vk.com/club152685050 | vk.com/id446425943
Оператор цикла For
var k, i: integer; begin
k:=1; for i:=1 to 5 do begin
k:=k*i; writeln(i, k); end;
end.
vk.com/club152685050 | vk.com/id446425943
Определение числа шагов при нормальном завершении цикла
N |
|
кон.знач. нач.знач. |
1 |
||
|
|
|
|||
шаг |
|||||
|
|
||||
|
|
|
|
||
vk.com/club152685050 | vk.com/id446425943
Условный оператор цикла
while условие продолжения цикла do
тело цикла;
vk.com/club152685050 | vk.com/id446425943
Пример реализации цикла while - do
var k, i: integer; begin
k:=1; I:=1; while i <= 5 do begin
k:=k*i; writeln(i, k); i:=i+1;
end;
end.