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

Материал из Информационная безопасностя
Перейти к навигации Перейти к поиску
 
(не показано 10 промежуточных версий этого же участника)
Строка 1: Строка 1:
 
== Условный оператор ==
 
== Условный оператор ==
−
<syntaxhighlight lang="c" line>
+
* [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Operators/if.html Условный оператор (документация)]
 +
* [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Operators/case.html Оператор выбора (документация)]
 +
<syntaxhighlight lang="pascal" line>
 
program Test;
 
program Test;
−
var
 
−
  age: integer;
 
 
begin
 
begin
−
   Write('Введите ваш возраст:');
+
   var temp := 50;
−
  Readln(age);
+
  // var temp := ReadInteger('Введите температуру воды в цельсиях:');
−
   if (age > 65) then
+
   if (temp >= 100) then
 
   begin
 
   begin
−
     Writeln('Вы уже пенсионер');
+
     Writeln('Вода закипела');
 
   end
 
   end
 
   else
 
   else
 
   begin
 
   begin
−
     Writeln('Добрый день молодёжь!');
+
     Writeln('Пока ещё прохладно');
 +
  end;
 +
 
 +
  Writeln((temp mod 2 = 0) ? 'Температура чётная' : 'Температура нечётная');
 +
 
 +
  var Country := 'Россия';
 +
  var Capital := '';
 +
 
 +
  case Country of
 +
    'Россия': Capital := 'Москва';
 +
    'Франция': Capital := 'Париж';
 +
    'Италия': Capital := 'Рим';
 +
    else Capital := 'Страна отсутствует в базе данных';
 +
  end;
 +
  Writeln($'Столица страны {Country} - {Capital}');
 +
 
 +
  var DayOfWeek := 3;
 +
 
 +
  case DayOfWeek of
 +
    1..5: writeln('Будний день');
 +
    6,7: writeln('Выходной день');
 
   end;
 
   end;
 
end.
 
end.
Строка 19: Строка 39:
  
 
== Циклы ==
 
== Циклы ==
 +
* [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Operators/for.html Оператор цикла for (документация)]
 +
* [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Operators/loop.html Оператор цикла loop (документация)]
 +
* [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Operators/foreach.html Оператор цикла foreach (документация)]
 +
* [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Operators/while.html Операторы цикла while и repeat (документация)]
 
<syntaxhighlight lang="c" line>
 
<syntaxhighlight lang="c" line>
 
program Test;
 
program Test;

Текущая версия на 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.

Циклы

 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.

Задачник

Источник — http://isec.nayanovaacademy.ru/w/index.php?title=Условный_оператор._Циклы._(PascalABC.NET)&oldid=1504