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

Материал из Информационная безопасностя
Перейти к навигации Перейти к поиску
 
(не показаны 2 промежуточные версии этого же участника)
Строка 2: Строка 2:
  
 
== Hello World ==
 
== Hello World ==
* [[Hello#Pascal - Pascal.ABC]]
+
* [[Hello - Pascal]]
  
 
== Объявление переменных ==
 
== Объявление переменных ==
 
* [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/_ProgrStruct_Defs/vardef.html Справка PascalABC.NET - Описание переменных]
 
* [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/_ProgrStruct_Defs/vardef.html Справка PascalABC.NET - Описание переменных]
  
<syntaxhighlight lang="c" line>
+
<syntaxhighlight lang="pascal" line>
 
var
 
var
 
   height: integer := 176;
 
   height: integer := 176;
Строка 18: Строка 18:
  
 
== Ввод и вывод ==
 
== Ввод и вывод ==
<syntaxhighlight lang="c" line>
+
<syntaxhighlight lang="pascal" line>
 
program Test;
 
program Test;
 
var
 
var
Строка 30: Строка 30:
  
 
== Условный оператор ==
 
== Условный оператор ==
<syntaxhighlight lang="c" line>
+
<syntaxhighlight lang="pascal" line>
 
program Test;
 
program Test;
 
var
 
var
Строка 49: Строка 49:
  
 
== Циклы ==
 
== Циклы ==
<syntaxhighlight lang="c" line>
+
<syntaxhighlight lang="pascal" line>
 
program Test;
 
program Test;
 
var
 
var

Текущая версия на 07:42, 15 июня 2021

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.