Процедуры ввода и вывода данных

Для ввода и вывода данных используются стандартные процедуры:

Read, Readln, Write и Writeln.

Read (Список ввода); Readln(Список ввода); - ввод данных;

Write(Список вывода); Writeln(Список вывода); - вывод данных.

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

Список ввода содержит последовательность имён переменных, значения которых должны быть введены в процессе выполнения программы.

Список вывода может содержать значения выводимых на экран дисплея переменных, выражений или сообщения. Текст сообщений может содержать допустимые символы языка или русский текст и заключается в апострофы: 'текст'.

Например, в программе стоит оператор: Read(a,b,c);

Пользователь должен ввести значения переменных a, b и c, в соответствии с типом, указанным в подразделе Var. Курсор остается на той же строке, где располагаются значения переменных. В том случае если используется оператор Readln(a,b,c); - действия пользователя те же, но курсор после ввода перемещается на следующую строку экрана. Числовые данные при вводе отделяются друг от друга пробелами.

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

так и пояснения. Например, необходимо вывести полученное значение Y:

Writeln(' Полученное значение Y = ',Y);

В результате выполнения на экране появится сообщение, заданное в апострофах, и значение переменной Y. После чего курсор будет установлен в начало новой строки. Процедуры Write и Writeln удобно использовать для вывода сообщений перед вводом данных с клавиатуры, что упрощает ввод данных. Например, перед вводом данных в предыдущем примере перед процедурой ввода Read нужно поставить:

Writeln(' Введите a, b и c');

Контрольные вопросы:

1. Что будет напечатано после выполнения программы?

program print;

begin write(1);write(2,3);writeln(4);

write(5);writeln(6,7);writeln;

write(8)

end.

2. Каков будет результат работы программы?

program wr(input,output);

var i:integer;

begin i:=maxint;

writeln(i,' ',i+1,' ',i+2);

readln;

end.

3. Даны значения переменных: a=1, b=5. Какими будут их значения после выполнения последовательности операторов? a:=b; b:=a

4. Найдите ошибки в каждой из следующих программ:

1) program B;

const k=true;

var x:real;

begin read(x);

writeln(odd(x)=k)

end.

2) program D;

var x:real;

begin read(x);

y:=sqr(x)+1;

writeln(y)

end.

3) program E;

const B:=2.5;

var a,b,c:real;

begin read(a,c);

writeln(a*c>b)

end.

4) program F;

var a,b:integer;

begin read(A);

d:=odd(pi*0) and b>a;

writeln(d)

end.

5) program G;

var a,b:integer;

r:integer;

begin readln(a,b);

r:=a/b;

write(r)

end.

6) program H;

var a,b:real;

r,p:integer;

begin readln(a,b);

r:=a div b;

p:=a mod b;

write(r,' ',p)

end.

7) program I;

var a,b:integer;

r:real;

begin readln(a,b);

r:=a div b;

write(r)

end.

5. Укажите ошибки в записи оператора ввода:

read(a,b,ab);

rEaD(i);

read(begin);

read{возможно ли такое?}(a,b);

READ(a{а такое возможно?},b);

read({может быть можно так?});

re{или так?}ad(a,b);

read((a,b));

read((a),b);

read(a,a,a);

read(a,1,b);

read('Введите число ',a);

read( a,

c);

(

Задачи для самостоятельной работы

Вычислить значение выражения при вещественных типах данных. Вычисления следует выполнять с использованием промежуточных переменных. Сравнить и объяснить полученные результаты.

№	Задание
	, при а=1000, b=0.0001
	, при а=1000, b=0.0001
	, при а=1000, b=0.0001
	, при а=1000, b=0.0001
	, при а=1000, b=0.0001
	, при а=1000, b=0.0001
	, при а=1000, b=0.0001
	, при а=100, b=0.001
	, при а=100, b=0.001
	, при а=100, b=0.001
	, при а=100, b=0.001
	, при а=1000, b=0.0001
	, при а=1000, b=0.0001
	, при а=1000, b=0.0001
	, при а=1000, b=0.0001
	, при а=1000, b=0.0001
	, при а=1000, b=0.0001
	, при а=1000, b=0.0001
	, при а=100, b=0.001
	, при а=100, b=0.001
	, при а=100, b=0.001
	, при а=100, b=0.001
	, при а=1000, b=0.0001
	, при а=1000, b=0.0001
	, при а=1000, b=0.0001