Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи на заказ _ Задача за деньги

Автор: zol 31.05.2004 14:34

Помогите, пожалуйста, решить задачу за деньги. Оставляю свой email: zolevin@mail.ru
Создать не текстовый файл bank.dat, содержащий информацию о клиентах банка (фамилию, номер счета, сумму денег на счету). (Должна быть отдельная программа. Ее решила, прилагается.). Переписать в текстовый файл информацию о клиентах, упорядоченную в алфавитном порядке. Ввести номер счета и вывести на экран фамилию владельца данного счета. Вывести на экран фамилии клиентов сумма денег на счету которых превышает 100000.

Код

Program Bank;
Type Klient=Record
FIO:String[30];
Shet:String[20];
Summa:real
End;
Var Fklient: File Of Klient;
K:Klient;
N,I: Byte;
Begin
Assign(Fklient,'BANK.DAT'); Rewrite(Fklient);
Write('Kolishestvo klientof banka?');
ReadLn(N);
For I:=1 To N Do
Begin
Write(I:1,'. F.I.O.: '); readLn(K.FIO);
Write('Nomer sheta: '); ReadLn(K.Shet);
Write('Summa: '); ReadLn(K.Summa);
Write(Fklient,K)
End;
WriteLn('Formirovanie file end');
End.