Read (место считывания информации, список фактических параметров);
Readln (место считывания информации, список фактических параметров);
Обращение к процедуре происходит по ее имени, внутри скобок описываются: место считывания информации - здесь указывается откуда информация (данные) будет вводится в компьютер и имена переменных под которыми будут хранится вводимые данные.
Одним из устройств ввода данных в ЭВМ является клавиатура. Если место считывания информации, не указано то, по умолчанию принимается, что данные считываются с клавиатуры.
Отличие процедур в том, что для read( ) после считывания данных курсор остается в той же строке, а при использовании readln() курсор переводится в начало следующей строки.
Напишем программу которая вводит в компьютер строку символов. Для того чтобы с данной строкой могла работать вся программа, опишем ее в блоке описания глобальных переменных:
program Primer_3;
var
Stroka:String;
В процедуру Init, между служебными словами begin и end, добавим следующие строки:
Read(Stroka);
Наша программа примет следующий вид:
program Primer_3;
var
Stroka:String;
procedure Init; { input data }
begin
Read(Stroka);
end;
procedure Work; { work with data }
begin
end;
procedure Exi; { output data }
begin
end;
begin
Init;
Work;
Exi;
end.
Перед запуском программы на выполнение, запишем ее на внешний носитель. Это необходимо для того, чтобы в случае неправильной работы и "зависания" компьютера, не потерять исходный текст программы. Запустим ее на выполнение, используя комбинацию клавиш Alt+F9. После запуска программы на экране монитора появится мигающий курсор. Программа готова считывать данные с клавиатуры. Наберите несколько символов на клавиатуре, включая и символ пробела. Для окончания ввода нажмите клавишу Enter. Перед вами вновь появится экран редактора интегрированной среды. Это значит, что программа считала данные с клавиатуры и закончила работу.
Мало ввести данные в компьютер, необходимо и получить каким либо образом результат. Для вывода данных в Паскале используется процедуры write() и writeln(). Рассмотрим формат обращения к этой процедуре.
Достарыңызбен бөлісу: |