Учебно-методическое пособие. Алматы, 2017 ббк


write (направление вывода информации, список фактических параметров)



бет40/106
Дата03.01.2022
өлшемі483.39 Kb.
#451845
түріУчебно-методическое пособие
1   ...   36   37   38   39   40   41   42   43   ...   106
УЧЕБНИКПаскаль(100217)

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;

Таким образом, наша программа может вводить данные с клавиатуры в компьютер и выводить данные на экран.





Достарыңызбен бөлісу:
1   ...   36   37   38   39   40   41   42   43   ...   106




©dereksiz.org 2024
әкімшілігінің қараңыз

    Басты бет