Материал из Информационная безопасностя
Перейти к навигации
Перейти к поиску
Условный оператор
1 program Test;
2 var
3 temp: integer;
4 begin
5 Write('Введите температуру воды в цельсиях:');
6 Readln(temp);
7 if (temp >= 100) then
8 begin
9 Writeln('Вода закипела');
10 end
11 else
12 begin
13 Writeln('Пока ещё прохладно');
14 end;
15
16 Writeln((temp mod 2 = 0) ? 'Температура чётная' : 'Температура нечётная');
17
18 var Country := 'Россия';
19 var Capital := '';
20
21 case Country of
22 'Россия': Capital := 'Москва';
23 'Франция': Capital := 'Париж';
24 'Италия': Capital := 'Рим';
25 else Capital := 'Страна отсутствует в базе данных';
26 end;
27 Writeln($'Столица страны {Country} - {Capital}');
28
29 var DayOfWeek := 3;
30
31 case DayOfWeek of
32 1..5: writeln('Будний день');
33 6,7: writeln('Выходной день');
34 end;
35 end.
Циклы
1 program Test;
2 var
3 i: integer;
4 begin
5 Writeln('While loop');
6 i := 1;
7 while(i < 11) do
8 begin
9 Writeln(i);
10 i := i + 1;
11 end;
12
13 Writeln('Repeat-Until loop');
14 i := 1;
15 Repeat
16 Writeln(i);
17 i := i + 1;
18 until i > 10;
19
20 Writeln('for loop');
21 for var j: integer := 1 to 10 do
22 begin
23 Writeln(j);
24 end;
25 end.
Задачник