Навыки ввода информации в текстовый файл и чтение из файла. Обмен данными с внешним текстовым файлом

МИНИСТЕРСТВО  ОБРАЗОВАНИЯ  РЕСПУБЛИКИ  БЕЛАРУСЬ

БЕЛОРУССКИЙ  НАЦИОНАЛЬНЫЙ  ТЕХНИЧЕСКИЙ  УНИВЕРСИТЕТ

Кафедра ” Горные  машины ”

Группа 

Отчёт о  выполнении  лабораторной  работы № 7 по  дисциплине  ”Информатика”

Обмен данными с внешним текстовым файлом.

Выполнил:                                                                                                     Принял :   

МИНСК      2002

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

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

2.1.создает в каталоге группы текстовый файл следующего содежания: ”Это  текстовый файл иллюстрации файл содержит не только буквы,но и числа

2.3 числа в текстовом файле проеобразуются в символы цифр

2.4.дописывает в конец файла строку: “эта строка добавлена в текстовый файл”;

2.3.читает из файла только численные значения, присваивая им имена a,b,c,d,;

2.4.умножает прочитанные значения на 10 ,присваивая им имена a,b,c,d, и выводит их на экран дисплея;

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

Program оbmen;

var

a,b,c,d,e:real;txt:string;

f:text;i:byte;

BEGIN

writeln('  Введите a,b,c,d,e_');

readln(a,b,c,d,e);

assign(f,'d:\\rezult7.txt');

rewrite(f);

writeln(f,'  Это текстовый файл.');

writeln(f,'  Он содержит не только символы букв,но и цифры!');

writeln(f,'  ',a:3:2,' ',b:3:2,' ',c:3:2,' ',d:3:2,' ',e:3:2);

writeln(f,'  Числа в текстовом файле преобразуются в символы цифр.');

reset(f);

for i:=1 to 4 do begin

readln(f,txt);writeln(txt);

end;

append(f);

writeln(f,'  Эта строка добавлена в конец файла.');

reset(f);

readln(f);readln(f);

readln(f,a,b,c,d,e);

a:=a*10;b:=b*10;c:=c*10;d:=d*10;e:=e*10;

writeln('  a=',a:4:2,' b=',b:4:2,' c=',c:4:2,' d=',d:4:2,' e=',e:4:2);

close(f);

END.

4.Результат:

Это текстовый фaйл.

Он содержит не только сиволы букв,но и цифры!

1.10 2.20 3.30 4.40 5.50

Числа в текстовом файле преобразуются в символы цифр. Эта строка добавлена в конец файла .

5.Вывод: получил навыки ввода информации  в текстовый файл и чтение из файла.