|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
15.04.2015, 13:35 | #1 (permalink) |
Member
Регистрация: 19.12.2014
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Работа с файлами Pascal ABC
Пример: Составить программу, которая создает нетипизированный файл из 100 действительных чисел и выводит на экран k-й элемент файла. PROGRAM PRIM; VAR F : FILE; P: REAL; K: BYTE; { создание файла вещественных чисел} PROSEDURE Mak_f; {создание файла вещественных чисел} BEGIN ASSIGN( F,’ A.DAT); REWRITE(F); RANDOMIZE; FOR K:=1 TO 100 DO BEGIN P:= RANDOM (100)/15; WRITE(F , P );{записали в файл значение «катого» элемента} END; WRITELN(‘ создание катого элемента завершено’); CLOSE (F); END; PROSEDURE Sort_F; { поиск элемента в файле прямого доступа по его номеру} BEGIN ASSIGN (‘ F, ‘A.DAT’); WRITELN (‘ введи номер нужного элемента’); READLN (K); RESET (F); { открыть файл для чтения } SEEK ( F, K-1 ); { переместить указатель на К-1 – ай элемент } READ ( F, P ); { присвоить значение элемента, на который указывает указатель переменной Р} WRITELN ( K , ‘ – й элемент файла ‘ , P:6:2); CLOSE (F); END; BEGIN {основная программа } Mak_f; {вызов процедуры создания файла вещественных чисел} Sort_F; {вызов процедуры поиска элемента в файле прямого доступа} END. |
15.04.2015, 13:35 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Может быть проблема давно решена, посмотрите в похожих обсуждениях Работа с файлами Работа с файлами, Pascal, нужна помощь Работа с файлами |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|