Процедуры ввода данных с клавиатуры и вывода на дисплей и принтер. Распечатка программы

1.Цель работы: практически освоить процедуры ввода данных с клавиатуры и вывода на дисплей и принтер.

2.Задание на лабораторную работу:

2.1.Используя значения переменных из предыдущей работы (i= -123; j=12; k=129; a= -30567; b=32767; c=32770; d= -83456; x=2e-19; y=1.58e32; b1=True; b2=False; c1=л; c2=L; t= -20 50; oz=udovl, vorosho, otl.), составить программу, которая обеспечивает ввод этих значений с клавиатуры и вывод их с указа- нием именем переменной на дисплей и принтер, причём вещественные переменные ввести по формату с плавающей десятичной точкой и по формату с десятичной точкой.

2.2.Результат вывести на дисплей и в текстовый файл, определить значение каких типов переменных нельзя ввести с клавиатуры или вывести на дисплей и в текстовый файл.

2.3.К отчёту приложить распечатку программы.

2.4.К отчёту приложить распечатку результатов из текстового файла.

3.Распечатка программы:

{Лабораторная работа №25

Ввод-вывод данных

Выполнил ст. группы } 

Program dannie;

type mas= -20..50;

type ocenka=(udovl,vorosho,otl);

var  t:mas; i:shortint; j,k:byte; a,b:integer;

c:word; d:longint; x,y:real; b1,b2:boolean;

c1,c2:char; oc:ocenka; f:TEXT;

BEGIN

writeln ('Введите значения: i,j,k,a,b,c,d,x,y');

readln  (i,j,k,a,b,c,d,x,y);

{writeln ('Введите значения: b1,b2');

readln  (b1,b2);}

writeln ('Введите значения: c1,c2');

readln  (c1,c2);

writeln ('i=',i,'j=',j,'k=',k,'a=',a,'b=',b);

writeln ('c=',c,'d=',d,'x=',x,'y=',y);

writeln ('b1=',b1,'b2=',b2);

writeln ('c1=',c1,'c2=',c2);

writeln ('x=',x:10:5);

writeln ('y=',y:8:3);

assign (f,'D:\Users\\rez25.txt');

rewrite (f);

writeln (f,'i=',i,'j=',j,'k=',k,'a=',a,'b=',b);

writeln (f,'c=',c,'d=',d,'x=',x,'y=',y);

writeln (f,'b1=',b1,'b2=',b2);

writeln (f,'c1=',c1,'c2=',c2);

writeln (f,'x=',x:10:5);

writeln (f,'y=',y:8:3);

writeln (f,'x=',x:5);

writeln (f,'y=',y:5);

Close(f)

END.

4.Распечатка из текстового файла:

i=-123 j=12 k=129 a=-30567 b=32767

c=32770 d=-83456 x= 2.0000000000E-19 y= 1.5800000000E+32

b1=FALSE b2=FALSE

c1=л c2= l

x= 2.0E-19

y= 1.6E+32

5.Пояснение:

Для вывода данных используется:

Assign (f,’путь к файлу’);

rewrite (f);

write (f,’a=’,a:3); - с десятичной точкой

write (f,’a=’,a:5:3); - с плавающей десятичной точкой

Close (f);

При задании по формату следует учитывать:  P:M:N, где

М- всего позиций под число (включая ±)

N- число позиций под дробную часть.

Для цело численных чисел P:M, где

М- количество позиций отведённых на печать.

Если использовать операторы Write, Read, то после ввода значения, указатель останется в  той же строке, поэтому лучше указать Writeln, Readln- указатель будет стоять в начале следующей строки. Если указать пустые Writeln или Readln, то будет пропущена строка.

6.Вывод: практически освоила процедуры ввода данных с клавиатуры и вывода на дисплей и принтер.