Условный оператор. Циклы. (PascalABC.NET)

Условный оператор

• Условный оператор (документация)
• Оператор выбора (документация)

 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   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.

Задачник

• Условный оператор
• Оператор выбора
• Цикл с параметром
• Цикл с условием