Ввод данных и вывод результатов на экран и печать

а)для ввода данных существуют два оператора read(читай) и readln (читай с новой строки). Формат:

В конце стоит точка с запятой.

Примеры.Требуется ввести с экрана в переменную x1 значение 2.2, а в переменную week значение 5.

read(x1);

read(week);

или

read(x1,week);

В первом случае после набора на экране значения 2.2 потребуется нажать клавишу “enter” (ввод), а затем в той же строке набрать значение 5 и опять нажать клавишу “enter”. Во втором случае через пробел набрать два числа 2.2 и 5, а затем нажать клавишу ввода.

readln(x1);

readln (week);

Здесь после набора на экране значения 2.2 потребуется нажать клавишу “enter” (ввод), а затем в новой строке набрать значение 5 и опять нажать клавишу “enter”.

б)для вывода данных на экран или печать используется оператор writeln(выводи (печатай) в новую строку). Чтобы различать простые переменные и обычный текст, который требуется напечатать, текст заключается в кавычки. Чтобы числа и текст не печатались подряд, используют кавычки без текста.

Пример.Требуется напечатать текст “результаты”, а в следующей строке вывести значения простых переменных xx,wek в виде xx=число wek=число.

writeln(‘результаты’);

writeln(‘xx=’,xx,’ ‘,’wek=’,wek);

§13. Ввод данных и вывод результатов во внешний файл.Если необходимо считать или записать информацию во внешний файл, то, как мы уже говорили в §1, этот файл необходимо предварительно объявить с некоторым именем и указать тип, например:

В исполняемой части программы для указанного в ней имени внешнего файла мы должны указать место нахождения внешнего файла и его конкретное имя вместе с расширением. Для этого служит оператор assign:

Заметим, что место нахождения и имя файла заключены в кавычки.

Например, в программе имени outfileдолжен соответствовать внешний файл с именем lab.dat, который находится на диске C в каталоге CONT:

assign(outfile,’c:\cont\lab.dat’);

Если файл необходим для считывания информации, то он открывается оператором reset, если файл необходим для записи, то он открывается оператором rewrite. В конце программы файл должен быть обязательно закрыт оператором close. Примеры:

Считывание и запись во внешний файл производится операторами readln и writeln с указанием имени, под которым файл открыт в программе:

Пример. Требуется результаты работы программы записать в файл с именем lab.dat, который должен находиться на диске Cв каталоге CONT:

varoutfile : text;объявление имени внешнего файла в программе

.........................

beginначало программы

...............текст программы

assign(outfile,’c:\cont\lab.dat’); нахождение внешнего файла, имя

rewrite(outfile); открытие файла для записи

writeln(‘xx=’,xx,’ ‘,’wek=’,wek); запись в файл

close(outfile); закрытие файла

..............

end.конец программы

§14. Пример текста программы на языке Турбо Паскаль:

program prob;

{метод .....}

var i,j1 : integer;

var x,sum : real;

varz1 : array[1:5] of real;

labelm1;

functionwed(w: real);

var xx : real;

Begin

xx:=0.5;

wed:=sqrt(w)/(1.+xx*xx);

end;{wed}

Begin

readln (x);

sum:=0;

for i:=1to 5 do

Begin

j1:=i*i;

z1[i]:=sin(j1*x);

ifi<>3

then goto m1

elsesum:=sum-x;

m1: sum:=sum+z1[i]*x-wed(x);

end;

writeln(‘sum’,sum);

End.