Условный оператор. Циклы. (PascalABC.NET): различия между версиями
Перейти к навигации
Перейти к поиску
| Строка 2: | Строка 2: | ||
* [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Operators/if.html Условный оператор (документация)] | * [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Operators/if.html Условный оператор (документация)] | ||
* [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Operators/case.html Оператор выбора (документация)] | * [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Operators/case.html Оператор выбора (документация)] | ||
| − | <syntaxhighlight lang=" | + | <syntaxhighlight lang="pascal" line> |
program Test; | program Test; | ||
begin | begin | ||
Текущая версия на 10:21, 11 июня 2021
Условный оператор
1 program Test;
2 begin
3 var temp := 50;
4 // var temp := ReadInteger('Введите температуру воды в цельсиях:');
5 if (temp >= 100) then
6 begin
7 Writeln('Вода закипела');
8 end
9 else
10 begin
11 Writeln('Пока ещё прохладно');
12 end;
13
14 Writeln((temp mod 2 = 0) ? 'Температура чётная' : 'Температура нечётная');
15
16 var Country := 'Россия';
17 var Capital := '';
18
19 case Country of
20 'Россия': Capital := 'Москва';
21 'Франция': Capital := 'Париж';
22 'Италия': Capital := 'Рим';
23 else Capital := 'Страна отсутствует в базе данных';
24 end;
25 Writeln($'Столица страны {Country} - {Capital}');
26
27 var DayOfWeek := 3;
28
29 case DayOfWeek of
30 1..5: writeln('Будний день');
31 6,7: writeln('Выходной день');
32 end;
33 end.
Циклы
- Оператор цикла for (документация)
- Оператор цикла loop (документация)
- Оператор цикла foreach (документация)
- Операторы цикла while и repeat (документация)
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.