Pascal: различия между версиями
Перейти к навигации
Перейти к поиску
| (не показано 5 промежуточных версий этого же участника) | |||
| Строка 1: | Строка 1: | ||
| + | {{TOCRight}} | ||
| + | |||
== Hello World == | == Hello World == | ||
| − | * [[Hello | + | * [[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=" | + | <syntaxhighlight lang="pascal" line> |
var | var | ||
height: integer := 176; | height: integer := 176; | ||
| Строка 13: | Строка 15: | ||
c: char; | c: char; | ||
busy: boolean; | busy: boolean; | ||
| + | </syntaxhighlight> | ||
| + | |||
| + | == Ввод и вывод == | ||
| + | <syntaxhighlight lang="pascal" line> | ||
| + | program Test; | ||
| + | var | ||
| + | age: integer; | ||
| + | begin | ||
| + | Write('Please enter your age:'); | ||
| + | Readln(age); | ||
| + | Writeln('Age = ' + age); | ||
| + | end. | ||
| + | </syntaxhighlight> | ||
| + | |||
| + | == Условный оператор == | ||
| + | <syntaxhighlight lang="pascal" 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="pascal" 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. | ||
</syntaxhighlight> | </syntaxhighlight> | ||
Текущая версия на 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.