Работа с файлами Pascal ABC
Создать файл, содержащий сведения банка (фамилия вкладчика, счет (валютный или рублевый), общая сумма вклада). Определить количество и фамилии вкладчиков, у кого на счете более 5 000 долларов.
Пример: Составить программу, которая создает нетипизированный файл из 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. |
Часовой пояс GMT +4, время: 00:27. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.