Практика 8.1

Cтр. 1 из 3
116097622 V- 0.7
Практика №6. Текстовые файлы.
Задача 1 (Zad6_1.Pas). Написать программу, которая записывает значение
числа N в файл. Число N вводится склавиатуры.
Задача
2
(Zad6_2.Pas).
Написать
программу,
которая
записывает
последовательность чисел от 15 до -5 в файл NUMBERS.TXT. В каждой строке
файла должно находиться единственное число.
Задача 3 (Zad6_3.Pas). Напишите программу, которая читает из файла и
выводит на экран числа из файла NUMBERS.TXT, сформированного в
предыдущей задаче.
Задача 4(Zad6_4.Pas). Дан файл, содержащий два целых числа, записанных
через пробел в единственной строке текстового файла. Найти сумму этих чисел и
вывести ее на экран.
Например,
ZAD6_4.TXT
Экран
5 12
17
-16 4
-12
Задача 5 (Zad6_5.Pas). В текстовом файле ZAD6_5.TXT записано в первой
строке имя и фамилия учащегося, а во второй строке время проведения дня
открытых дверей в центре КИТ в часах. Необходимо написать, которая считывает
данные из текстового файла ZAD6_5.TXT и рисует на экране приглашение на имя
этого учащегося. В файл ZAD6_5.TXT дописывается строка «Выполнено».
Файл ZAD6_5.TXT
до выполнения программы:
Максим Скворцов
12
2/12/2016 1:02:00 AM
после выполнения программы:
Максим Скворцов
12
WWW.KIT.KH.UA
"КИТ" – Р.Н.  7-177- 424, 009
116097622 V- 0.7
Cтр. 2 из 3
Выполнено
Program Zad6_5; {ЦКО "КИТ" 7-177-424, WWW.KIT.KH.UA}
{Программа рисования приглашения в центр КИТ}
uses
crt, Graph, GraphKIT;
var
f : Text;
fio : String;
chas : Integer;
s : String;
Begin
OpenGraphKIT;
Assign(f, 'L6_1.TXT');
Reset(f);
Readln(f, fio);
Read(f, chas);
Str(chas:2, s);
SetFillStyle(8, Blue);
Bar(100, 100, 400, 200);
SetColor(Red);
Rectangle(100, 100, 400, 200);
SetColor(White);
OutTextXY(110, 110, 'Уважаемый ' + fio + '!');
OutTextXY(110, 120, 'Приглашаем Вас посетить');
OutTextXY(110, 130, 'день открытых дверей Центра КИТ.');
OutTextXY(110, 140, 'Ждем Вас в субботу в ' + s + ' часов');
SetColor(Green);
OutTextXY(320, 180, 'Центр КИТ');
Close(f);
Append(f);
Writeln(f);
Writeln(f, 'Выполнено');
Close(f);
CloseGraphKIT;
End.
2/12/2016 1:02:00 AM
WWW.KIT.KH.UA
"КИТ" – Р.Н.  7-177- 424, 009
116097622 V- 0.7
Cтр. 3 из 3
Задача 6 (Zad6_6.Pas). Доработать программу из предыдущего примера
так, чтобы она выводила еще и минуты для начала дня открытых дверей. Минуты
также нужно считывать из текстового файла.
2/12/2016 1:02:00 AM
WWW.KIT.KH.UA
"КИТ" – Р.Н.  7-177- 424, 009