Программирование на языке высокого уровня TURBO PASCAL. Краснов С.В. - 43 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

43
Задача № 11. Постановка задачи: Составить программу чтения файла F,
состоящего из целых чисел. Программа выполняет работу с файловой
переменной F и внешним файлом DAT.TXT. Из файла выводятся целые числа.
Программа решения задачи имеет вид:
program CTEN_TIP; {Имя программы}
VAR {Раздел описания переменных}
F:FILE OF INTEGER;
X,I:INTEGER;
BEGIN {начало операторной части программы}
WRITELN('ЧТЕНИЕ ТИПИЗИРОВАННОГО ФАЙЛА'); {Вывод
сообщения}
ASSIGN(F,'DAT.TXT'); {подключение файла 'DAT.TXT'
к файловой
переменной F}
RESET(F); {открытие файла для чтения}
WHILE NOT EOF (F) DO {цикл для чтения данных с магнитного диска на
экран}
BEGIN
READ(F,X); {чтение данных из файла в переменную}
WRITE(X,' '); {вывод данных из переменной на экран}
END;
CLOSE(F); {закрытие файла}
END. {Конец программы}
Задача № 12. Постановка задачи: Составить программу ввода текстового
файла с именем 'TEX.TXT', представляющий собой
список необходимой
техники. Сделать так, чтобы в каждой строке файла записывалось одно
наименование. При вводе каждого наименования начинать с новой строки. На
экран вывести из файла 'TEX.TXT' список техники. Каждое наименование
вывести с новой строки.
Программа решения задачи имеет вид:
PROGRAM VV_TEX; {Имя программы}
VAR {Раздел описания переменных}
SP:TEXT;
C:CHAR;
I,N:INTEGER;
BEGIN
ASSIGN(SP,'TEX.TXT'); {подключение файла
'TEX.TXT' к файловой
переменной F}
REWRITE(SP); {открытие файла на запись}
WRITE('ВВЕДИТЕ КОЛИЧЕСТВО СТРОК В СПИСКЕ:'); {Вывод
сообщения}
READLN(N); {вод значений переменной N с клавиатуры}

Страницы