Условный оператор. Циклы. (PascalABC.NET): различия между версиями

Материал из Информационная безопасностя
Перейти к навигации Перейти к поиску
Строка 1: Строка 1:
 
== Условный оператор ==
 
== Условный оператор ==
 +
* [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Operators/if.html Условный оператор (документация)]
 +
* [Оператор выбора Оператор выбора (документация)]
 
<syntaxhighlight lang="c" line>
 
<syntaxhighlight lang="c" line>
 
program Test;
 
program Test;
Строка 14: Строка 16:
 
   begin
 
   begin
 
     Writeln('Добрый день молодёжь!');
 
     Writeln('Добрый день молодёжь!');
 +
  end;
 +
  case Country of
 +
    'Россия': Capital := 'Москва';
 +
    'Франция': Capital := 'Париж';
 +
    'Италия': Capital := 'Рим';
 +
    else Capital := 'Страна отсутствует в базе данных';
 +
  end;
 +
 +
  case DayOfWeek of
 +
    1..5: writeln('Будний день');
 +
    6,7: writeln('Выходной день');
 
   end;
 
   end;
 
end.
 
end.

Версия 16:36, 8 июня 2021

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

 1 program Test;
 2 var
 3   age: integer;
 4 begin
 5   Write('Введите ваш возраст:');
 6   Readln(age);
 7   if (age > 65) then
 8   begin
 9     Writeln('Вы уже пенсионер');
10   end
11   else
12   begin
13     Writeln('Добрый день молодёжь!');
14   end;
15   case Country of
16     'Россия': Capital := 'Москва';
17     'Франция': Capital := 'Париж';
18     'Италия': Capital := 'Рим';
19     else Capital := 'Страна отсутствует в базе данных';
20   end;
21 
22   case DayOfWeek of
23     1..5: writeln('Будний день');
24     6,7: writeln('Выходной день');
25   end;
26 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.

Задачник