Программирование на Pascal / Delphi / Лекции по Паскалю1 / F_Ввод-вывод

ОРГАНИЗАЦИЯ ВВОДА-ВЫВОДА

• Процедуры ввода

Read <список ввода>;

или

Readln <список ввода>;

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

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

Пример

var A,B,C: real;

K,N: byte;

...

Read(A,B,C,K,N); {0.5 1.6 -19.1 6 4}

С процедурой ввода связана стандартная функция Eoln, значение которой имеет тип boolean:

True, если при вводе с клавиатуры нажата

клавиша Enter (конец строки);

Eoln=

False, если конец строки не достигнут.

Пример.

Var K,I: integer;

...

Readln; I:=0;

while not Eoln do

{осуществляется ввод целых значений K и подсчитывается

количество чисел до достижения конца строки}

begin

Read(K);

I:=I+1

end;

• Процедуры вывода

Write <список вывода>;

или

Writeln <список вывода>;

Различие в выполнении процедур заключается в том, что процедура Writeln по окончании вывода обеспечивает переход на новую строку. Использование Writeln без параметров обеспечивает переход на новую строку.

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

Допускается бесформатный и форматный вывод.

Бесформатный вывод.

При использовании бесформатного вывода данные выводятся на устройства вывода в форматах, обусловленных в среде Turbo-Pascal 7.0 системой умолчаний и типом данных.

Пример

var A,B: real;

I,N: integer;

C: char;

...

I:=0; N:=I+1;

A:=0.25; B:=Sqrt(A); C:=’#’;

Writeln(I,’ ‘,N); { 0 1}

Writeln(A,B); { 2.5000000000E-01 5.0000000000E-01}

Writeln(A,Sqrt(A)); { 2.5000000000E-01 5.0000000000E-01}

Writeln(N+5,C); { 6#}

Write(MaxInt);{32767-максимальное число типа integer}

Форматный вывод

При использовании форматного вывода каждый элемент списка может быть представлен в одной из следующих форм:

A:w

A:w:d

где A - элемент списка вывода;

w - целое положительное число, определяющее общую длину поля

вывода;

d - целое положительное число, определяющее длину дробной части

выводимого вещественного числа.

Пример

var A,B: real;

I,N: integer;

C: char;

...

I:=0; N:=I+1;

A:=0.25; B:=Sqrt(A); C:=’#’;

Writeln(A:5:2,B:6:2); { 0.25 0.50}

Writeln(‘I=’,I:4); {I= 0}

Writeln(C:4); { #}

Writeln(‘B=’,Sqrt(A):6:2); {B= 0.50}

Writeln(‘***************’); {***************}

Writeln(‘*A=’,A:4:2,’*B=’,B:4:2,’*’);{*A=0.25*B=0.50*}

Writeln(‘***************’); {***************}