Справочник по языку программирования паскаль

26 марта 2020 - Администратор

Справочник по языку программирования Pascal с примерами программ

Название темы Структура оператора Пример программы
Общая структура программы Pascal // объявление переменных
var переменные : тип;
begin
Операторы через ;
end.
var a,b,c:integer;
begin
a:=1;
b:=2;
c:=a+b;
writeln(c);
end.
Вывод текста на экран в Pascal writeln(‘текст’); writeln(‘Hello World!’);
Вывод значения переменной в Pascal writeln(переменная); writeln(c);
Ввод переменной в Pascal readln(переменная);

Пример ввода числа в Pascal
var a:integer;
readln(a); 

Пример ввода текста в Pascal
var a:string;
readln(a); 
Условия в Pascal if (условие) then begin 
Операторы через;
end;

Пример условия в Pascal. Программа выводит «Значение переменной a больше двух», если значение переменной a больше двух.
if (a>2) then begin
writeln(‘Значение переменной a больше двух’);
end;
Логические операции в Pascal  if (условие 1) and/or (условие 2) then begin
Операторы через;
end;

Пример логической операции И в Pascal. Программа выведет «Значение переменной a больше 2 и меньше 10», если значение переменной a больше 2 и меньше 10.
if (a>2) and (a<10) then begin
writeln(‘Значение переменной a больше 2 и меньше 10’);
end;

Пример логической операции ИЛИ в Pascal. Программа выведет «Модуль числа a больше 10», если значение переменной а меньше -10 или больше 10.
if (a<-10) or (a>10) then begin
writeln(‘Модуль числа a больше 10');
end;
Цикл for в Pascal for переменная_счётчик := начальное_значение to конечное_значение do begin
Операторы через;
end;		 Пример программы с циклом for в Pascal. Программа выводит на экран все числа от 1 до 20.
var i:integer;
for i:=1 to 20 do begin
     writeln(i);
      end;
Цикл while в Pascal while (условие) do
begin
Операторы через ;
end;		 Пример программы с циклом while в Pascal. Программа выводит значение переменной a и уменьшает её на 1 до тех пор, пока она не станет равна нулю.
a:=100;
while(a>0) do
begin
writeln(a);
a:=a-1;
end;
Процедуры в Pascal procedure название процедуры (параметры: тип данных);
begin
var локальные переменные: тип данных;
Операторы через ;
end;
В теле программы процедура вызывается
название процедуры(значения параметра);		 Пример программы с процедурами в Pascal. Программа запрашивает два числа у пользователя и сравнивает их
var a,b :integer;
procedure sravnenie;
begin
if (a>b) then begin
writeln(‘А больше Б’);
end;
if(b>a) then begin
writeln(‘Б больше А’);
end;
if(a=b) then begin
writeln(‘А равно Б’);
end;
end;
begin
readln(a);
readln(b);
sravnenie;
end.
Функции в Pascal function имя функции(аргументы функции : тип данных): тип возвращаемого значения;
begin
Операторы через ;
имя функции:= возвращаемое значение;
end;		 Пример функции на Pascal. Поиск среднего арифметического между двумя числами.
function medium(a,b:real):real;
begin
var med:real;
med:=(a+b)/2;
medium:=med;
end;
begin
write(medium(2,8));
end.
Случайные числа в Pascal переменная:=random(n); Пример случайного числа в Pascal. Программа выведет число от одного до ста.
a:=random(100);
writeln(a);
Массивы в Pascal var название массива: array[начальный индекс … конечный индекс] of тип данных; Пример программы в Pascal. Задание массива и вывод на экран.
var a : array[1…3] of integer;
var i:integer;
begin
for i := 1 to 3 do 
begin
readln(a[i]);
end;
for i:=1 to 3 do
begin
writeln(a[i]);
end
end.
Графика в Pascal Структура программы с графикой в Pascal
uses GraphABC;
begin
setWindowSize(ширина окна, высота окна);
Операторы графики через ;
end.		 Пример программы рисование линии в Pascal 
uses GraphABC;
begin
setWindowSize(500,500);
line(30,30,40,40,clBlue);
end.
Оператор прямоугольника в Pascal rectangle(координаты первой точки, координаты второй точки); Пример программы рисование прямоугольника в Pascal
uses GraphABC;
begin
setWindowSize(500,500);
rectangle(200,200,320,350);
end.
Оператор окружности в Pascal drawcircle(координаты центра окружности, радиус); Пример программы рисование окружности в Pascal
uses GraphABC;
begin
setWindowSize(500,500);
drawcircle(47,47,10);
end.
Работа с файлами в Pascal считывание информации var имя файловой переменной : text;
assign(имя файловой переменной,’адрес файла’);
reset(имя файловой переменной, переменная);
readln(имя файловой перменной,переменная);
close(имя файловой переменной);		 Пример программы считывание данных из файла и вывод на экран в Pascal
var f:text;
var a,b : integer;
begin
assign(f,’C:\Users\User\Desktop\data.txt’);
reset(f);
readln(f,a);
readln(f,b);
writeln(a);
writeln(b);
close(f);
end.


Работа с файлами в Pascal запись информации в файл
rewrite(имя файловой переменной);		 Пример программы запись информации в файл в Pascal
var out:text;
var a,b:integer;
begin
assign(out, ’C:\Users\User\Desktop\out.txt’);
rewrite(out);
writeln(out,a);
writeln(out,b);
close(out);
end.

Поделиться

 
 
Комментарии (0)

Нет комментариев. Ваш будет первым!

Добавить комментарий