1. П Read(список ввода); Readln(список ввода) роцедуры ввода

где список ввода- только имена переменных.

Процедура Read - осуществляет ввод данных для переменных, указанных в списке ввода и оставляет курсор за последним введенным значением.

Процедура Readln (ln line) - осуществляет ввод данных для переменных , указанных в списке ввода и переводит курсор на следующую строку после ввода последнего значения.

В процедуре ввода переменные разделяются запятой, а с клавиатуры данные вводятся через пробел.

Пример:

Program vvod;

Var a,b,c:real;

x,y:integer:

s:char;

l:boolean;

Begin Окно ввода/вывода

-2.5 100 true-1.2e-14 15

F_

Read (a,x,l): {a=-2.5, x=100, y=15l=true}

. . .

Readln(c,y); {c=-1.2e-14, }

. . .

Read(s); {s=’F’}

. . .

End.

2. Процедуры вывода

Write(список вывода);

Writeln(список вывода)

где список вывода – имена переменных, константы или выражения, разделенные запятыми.

Процедура Write - осуществляет вывод данных и оставляет курсор за последним выведенным значением на той же строке.

Процедура Writeln (lnà line) - осуществляет вывод данных и переводит курсор на следующую строку после вывода последнего значения.

Формат вывода для вещественных данных

Writeln( имя перем: n:n1);

где, n – общее количества позиций под все число;

n1 - число позиций под дробную часть число.

Пример:

Рrogram vivod;

Var a,b: integer;

Begin

Writeln(‘введите катеты прямоугольного треугольника a и b’);

Readln(a,b);

Writeln( ‘a=’, a, ‘ b=’, b, ‘ гипотенуза=’, sqrt(sqr(a)+sqr(b)):7:2)

End.

Окно ввода/вывода

введите катеты прямоугольного треугольника a и b

3 4

a= 3 b=4 гипотенуза= 5.00

Тема 2.3 Управляющие структуры

Операторы языка Pascal

1. Оператор присваивания

Имя переменной := выражение;

:=

- знак операции присваивания.

Тип выражения и тип переменной должны быть одинаковыми.

Пример:

Program primer1;

Var x,y,a,b: real;

l: Boolean;

Begin

Readln( x, y, a,b);

x := x+2;

y := sin(x)+sqr(a)-b;

l := (a>0) and (b>0) or (x<>0);

end.

2. Составной оператор

Составной оператор – это группа операторов, заключенная в операторные скобки begin . . end

Begin

Оператор1;

. . .

Оператор n;

End;

3. Операторы передачи управления

К операторам передачи управления относятся:

• оператор безусловного перехода (go to) предназначен для обхода какого-то участка программы без проверки условия;

• оператор условного перехода или условный оператор (if);

• оператор выбора (case).

1. Условный оператор или оператор условного перехода (If) используется для организации вычислений в зависимости от какого-либо условия. Имеет полную и сокращенную формы записи.

1. Полная форма записи

if условие then

begin

оператор_1;

. . .

оператор_n;

end

else

begin

оператор_1;

. . .

оператор_n;

end;

условие

Оператор1

Оператор1

If условие then оператор1 else оператор2;

где, If – имя оператора;

then, else - служебные слова;

условие – логическое выражение;

оператор1, оператор2 – простой или составной оператор.

Работа оператора If

1. Если проверяемое условие истинно (true), то выполняется

оператор1, записанный за служебным словом then,

а затем следующий в программе оператор.

2. Если проверяемое условие ложно (false), то выполняется

oператор2, записанный за служебным словом else,

а затем следующий в программе оператор.

Пример1:

Даны целые числа X и Y. Если число X чётное - вывести соответствующее сообщение, иначе определить кратно ли оно числу Y.

program primer1;

var x,y:integer;

begin

writeln('Введите числа x и y');

readln(x,y);

if x mod 2 =0 then writeln(x,' чётное число ')

else

if x mod y =0 then

writeln(x,' кратно ',y)

else

writeln(x,' не кратно ',y,' и нечётное');

end.

Результат

Введите числа x и y

7 7