мета-данные страницы
Загрузка не удалась. Возможно, проблемы с правами доступа?
Различия
Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слеваПредыдущая версияСледующая версия | Предыдущая версияСледующая версияСледующая версия справа и слева | ||
pascal:algoritms [03/10/2010 20:02] – dnaumov | pascal:algoritms [04/10/2010 02:18] – dnaumov | ||
---|---|---|---|
Строка 1: | Строка 1: | ||
====== Обозначение и код ====== | ====== Обозначение и код ====== | ||
- | ^ | + | ^ |
- | |**Начало программы** | + | |**Начало программы** |
- | uses {имена необходимых библиотек через запятую} ; | + | |
- | const | + | |
- | | + | |
- | var | + | |
- | | + | |
- | BEGIN | + | |
- | {...} | + | |
- | </ | + | |
uses Crt; | uses Crt; | ||
const | const | ||
- | c = 10; | + | c = 2; |
var | var | ||
- | a, b : integer; | + | a, b, m, i : integer; |
+ | m1, m2, m3 : integer; | ||
BEGIN | BEGIN | ||
{...} | {...} | ||
</ | </ | ||
|**Ввод данных** | |**Ввод данных** | ||
- | ReadLn({Имя одной переменной}); | ||
- | ReadLn({Имя другой переменной}); | ||
- | {...} | ||
- | </ | ||
ReadLn(a); | ReadLn(a); | ||
ReadLn(b); | ReadLn(b); | ||
{...} | {...} | ||
</ | </ | ||
- | |**Ветвление** | + | |**Вывод данных** |
- | if {Условие} then {Оператор 1} else {Оператор 2}; | + | WriteLn(a); |
+ | WriteLn(b, '. ', a); | ||
{...} | {...} | ||
- | </ | + | </ |
+ | |**Оператор** | ||
+ | m:=a; | ||
+ | {...} | ||
+ | </ | ||
+ | |**Операторы** | ||
+ | begin | ||
+ | m1:=a; | ||
+ | m2:=b; | ||
+ | m3:=a+b; | ||
+ | end; | ||
+ | {...} | ||
+ | </ | ||
+ | |**Ветвление** | ||
if a>b then m:=a else m:=b; | if a>b then m:=a else m:=b; | ||
{...} | {...} | ||
</ | </ | ||
+ | | ::: | ||
+ | if a>b then m:=a; | ||
+ | {...} | ||
+ | </ | ||
+ | | **Циклы** | ||
+ | for i:=1 to a do writeln(i, '. ', b); | ||
+ | {...} | ||
+ | </ | ||
+ | |||
+ | |||