Pascal: различия между версиями

Материал из Информационная безопасностя
Перейти к навигации Перейти к поиску
Строка 24: Строка 24:
 
   Readln(age);
 
   Readln(age);
 
   Writeln('Age = ' + age);
 
   Writeln('Age = ' + age);
 +
end.
 +
</syntaxhighlight>
 +
 +
== Условный оператор ==
 +
<syntaxhighlight lang="c" line>
 +
program Test;
 +
var
 +
  age: integer;
 +
begin
 +
  Write('Введите ваш возраст:');
 +
  Readln(age);
 +
  if (age > 65) then
 +
  begin
 +
    Writeln('Вы уже пенсионер');
 +
  end
 +
  else
 +
  begin
 +
    Writeln('Добрый день молодёжь!');
 +
  end;
 +
end.
 +
</syntaxhighlight>
 +
 +
== Циклы ==
 +
<syntaxhighlight lang="c" line>
 +
program Test;
 +
var
 +
  i: integer;
 +
begin
 +
  Writeln('While loop');
 +
  i := 1;
 +
  while(i < 11) do
 +
  begin
 +
    Writeln(i);
 +
    i := i + 1;
 +
  end;
 +
 
 +
  Writeln('Repeat-Until loop');
 +
  i := 1;
 +
  Repeat
 +
    Writeln(i);
 +
    i := i + 1;
 +
  until i > 10;
 +
 
 +
  Writeln('for loop');
 +
  for var j: integer := 1 to 10 do
 +
  begin
 +
    Writeln(j);
 +
  end;
 
end.
 
end.
 
</syntaxhighlight>
 
</syntaxhighlight>

Версия 11:56, 23 ноября 2020

Hello World

Объявление переменных

1 var
2   height: integer := 176;
3   loanPercentage: real := 8.9;
4   age: array[1..5] of integer = (3,15,21,7,36);
5   name: string;
6   c: char;
7   busy: boolean;

Ввод и вывод

1 program Test;
2 var
3   age: integer;
4 begin
5   Write('Please enter your age:');
6   Readln(age);
7   Writeln('Age = ' + age);
8 end.

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

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