Команда присваивания

Переменная получает свое значение в результате выполнения команды присваивания

<имя_переменной>:=<значение>;

a:=22;

c1:=a/10;

text:=’Privet!’;

Команды ввода и вывода

Для вывода значений переменных, констант и выражений используются команды Write и Writeln.

Write (t₁, t₂, … , t_n);

Write(‘a+b’, 3+7); - a+b=10

При выполнении команды Writeln осуществляется переход на новую строку.

Функции вывода допускают использование указания о ширине поля, отводимого под значение в явном виде:

WRITE (Y:m:n,X:k:l,...);

WRITELN (Y:m:n:,X:k:l,...);

где m и k- количество позиций, отведенных под запись значения переменных Y и X соответственно;

n и I - количество позиций, отведенных под запись дробной части чисел Y и X.

Ввод значений переменных осуществляется с помощью команд Read или Readln.

Read(x₁, x₂, …, x_n);

Если вводятся значения нескольких переменных, то их стоит набирать, разделяя пробелом.

Пример 1. Найти сумму двух вещественных чисел.

program primer;

var

X, Y, Z: Real;

begin

Writeln(‘Введите два целых числа X и Y:');

Readln(X,Y);

Z := X + Y;

Writeln('Сумма чисел X и Y’, Z);

Readln;

end.

Пример 2. Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a⁴ за две операции.

program primer;

var a: integer;

begin

writeln('введите a');

readln (a);

a:=a*a;

a:=a*a;

writeln('a=',a);

readln;

end.

Пример 3. Составить программу расчета значения функции.

Z = |cos х⁴ – 3 tg х² |+0.8 sin yх²+ 10 при любых значениях х и у. Результат вывести в виде: при х= и у=… z=…

program primer;

var x,y,z: real;

begin

writeln('введите X Y'); {вывод строки подсказки}

readln (x,y); {ввод аргументов x и y}

z:=abs(cos(sqr(x)*sqr(x)-3*sin(sqr(x))/cos(sqr(x))))+0.8*sin(y*sqr(x))+10;

writeln('при x=',x:8:2,' y=',y:8:2,' z=',z:8:2); {вывод результата}

readln; {задержка до нажатия клавиши Enter}

end.

Пример 4. Найти периметр и площадь прямоугольного треугольника по его катетам.

program primer;

var a, b, c, S, P: real;

begin

writeln('введите катеты a, b:');

readln (a,b);

c:=sqrt(sqr(a)+sqr(b));

P:= a+b+c;

S:= a*b/2;

writeln('P =', P:6:3, ‘S=’, S:6:3);

readln;

end.

Пример 5. Вычислить сумму цифр введенного натурального трехзначного числа.

Program primer;

Var n, a, b, c: integer;

begin

write('n= '); readln(n);

a:=n div 100;

b:=(n div 10) mod 10;

c:=n mod 10;

writeln('сумма = ', a+b+c);

readln;

end.

Пример 6. Введенное 4-значное число изменить так, чтобы 2 и 3 цифры поменялись местами.

program primer;

var n,a,b,c,d:integer;

begin

write('введите n ');

readln (n);

a:=n div 1000;

b:=n div 100 mod 10;

c:=n div 10 mod 10;

d:=n mod 10;

n:= a*1000+c*100+b*10+d;

writeln('результат', n);

readln;

end.

операторы:

Оператор	Назначение	Синтаксис
Readln	ввод значений с клавиатуры c переводом курсора на новую строку	Readln( перем1, …, перемN)
Writeln	вывод значений на экран c переводом курсора на новую строку	Writeln('Текст') Writeln(перем1, ..., перемN)
Read	ввод значений с клавиатуры	Read( перем1, …, перемN)
Write	вывод значений на экран	Write('Текст') Write(перем1, ..,перемN)