Изучение файлов данных и способов доступа к ним

Рыбалко Светланы

318 группа

16 вариант

Лабораторная работа № 6

ТЕКСТОВЫЕ ФАЙЛЫ

Цель работы –детальное изучение файлов данных и способов доступа к ним; приобретение навыков ввода-вывода простых переменных различных типов; ознакомление с вводом-выводом индексированных переменных, массивов; применение форматирования выводимой информации.

Задача1 16.

Варианты заданий для задачи 2 взять из лабораторной работы № 5.

Program lab_6_1var16;

uses crt;

var

x,y:real;

A:string[3];

B:string[3];

C:string[4];

n,i,M:integer;

Z:array [1..10] of INTEGER;

fi,fo:text;

begin

clrscr;

assign(fi,'G:\input8_1.pas');

reset(fi);

readln(fi,x,y);

readln(fi,M);

readln(fi,n);

for i:=1 to N do read (fi,Z[i]);

readln(fi);

readln(FI,a,b,c);

close(fi);

assign (fo,'g:\out_8_1.pas');

rewrite(fo);

writeln (fo,'A=',A,' B=',B,' C=',C);

writeln (fo,'x=',x:12:1,' y=',y,' M=',M:4);

write (fo,'Z=(');

for i:= 1 to N do write (fo,Z[i]:6);

writeln (fo,')');

close (fo);

writeln ('A=',A,' B=',B,'C=',C);

writeln ('x=',x:12:9,' y=',y:12:9,' M=',M:4);

write ('Z=(');

for i:=1 to 5 do write (Z[i]:6);

writeln (')'); writeln; writeln;

writeln ('Smotrite rezultait v faile out_8_1.pas');

repeat until keypressed;

end.

Файл исходных данных:

4.5 1.5E3

15

4

9 8 -8 5 7

TWOOFFTINY

Файл результата:

A=TWO B=OFF C=TINY

x=4.5 y=1500.0 M=15

Z=(     9     8    -8     5)

Вывод: В ходе лабораторной работы я детально изучила файлы данных и способы доступа к ним; приобрела навыки ввода-вывода простых переменных различных типов; ознакомилась с вводом-выводом индексированных переменных, массивов; применила форматирования выводимой информации.