write (направление вывода информации, список фактических параметров);
writeln (направление вывода информации, список фактических параметров);
Обращение к процедуре происходит по ее имени, внутри скобок описываются: направление вывода информации - здесь указывается куда информация (данные) будет выводится и имена переменных( или констант) которые будут выводиться.
Одним из устройств вывода данных в ЭВМ является экран монитора. Если направление вывода информации, не указано то, по умолчанию принимается, что данные выводятся на экран. Отличие между двумя записями процедур в том, что для write( ) после вывода данных курсор остается в той же строке, а при использовании writeln() курсор переводится в начало следующей строки.
Проведем модернизацию программы Primer_3. Пусть наша новая программа не только считывает строку с клавиатуры, но и выводит ее на экран. Для этого добавим процедуру вывода в процедуру Exi.
program Primer_3;
var
Stroka:String;
procedure Init; { input data }
begin
Readln(Stroka);
end;
procedure Work; { work with data }
begin
end;
procedure Exi; { output data }
begin
Writeln(Stroka);
end;
begin
Init;
Work;
Exi;
end.
Наша программа несмотря на то, что работает, имеет один недостаток - при начале работы, когда появляется мигающий курсор, непонятно что надо делать. Для устранения этого введем в процедуру Init, перед процедурой ввода данных, еще одно действие.
procedure Init; {input data}
begin
Write('Input Stroka -');
Readln(Stroka);
end;
Если мы хотим дать комментарий и при выводе строки на экран, то сделаем добавления в процедуре Exi, это можно сделать двумя способами:
а)
procedure Exi; {output data}
begin
Write(' Output Stroka -'); Writeln(Stroka);
end;
|
б)
Procedure Exi; { output data}
Begin
Writeln(' Output Stroka -',Stroka);
End;
|
Таким образом, наша программа может вводить данные с клавиатуры в компьютер и выводить данные на экран.
Достарыңызбен бөлісу: |