Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 184

/ вопрос открыт /

Здравствуйте, эксперты!
помогите пожалуйста!не могу составить прогу((( обработка данных типа запись. нужно составить программу создания даных типа запись в виде таблицы, с последующей записью её в текстовый файл для создания справочной информации.
в программе нужно предусмотреть следующие подпрограммы-процедуры:
1) формирование 5-7 элементов массива типа запись с полями, указанными в таблице, с последующей их записью в текстовый файлж
2)вывод на экран элементов массива записей в соответствии с заданием.
3) задание: список абонентов телефонной сети: номер абонента,ФИО,адрес,номер телефона(выводить по шаблону ##-##-##), долг по оплате. Распечатать данные про абонентов, телефонные номера которых начинаются на 22 и которые имеют найбольший долг.

Приложение:
  1. unit Unit1;
  2. interface
  3. uses SysUtils;
  4. type abonent=record
  5. nomer:byte;
  6. Fio:string[40];
  7. adres:string[80];
  8. tel:string[8];
  9. dolg:real;
  10. end;
  11. writeln(nomer,'');
  12. writeln (Fio,'');
  13. writeln (adres,'')';
  14. writeln (tel,'');
  15. writeln (dolg,'');
  16. end;
  17. var f_abonent:file of abonent;
  18. a:abonent;
  19. i,k:byte;
  20. procedure sozdat;
  21. implementation
  22. procedure sozdat;
  23. begin
  24. writeln ('input nomer abonenta');
  25. readln (nomer);
  26. with a do
  27. begin
  28. writeln ('input Fio of abonent');
  29. readln (Fio);
  30. writeln ('input adres of abonent');
  31. readln (adres);
  32. writeln ('input tel of abonent:##-##-##');
  33. readln (tel);
  34. writeln ('input dolg of abonent');
  35. readln (dolg);
  36. write (f_abonent,a);
  37. end;
  38. end.
  39. unit Unit2;
  40. interface
  41. uses SysUtils;
  42. type abonent=record
  43. nomer:byte;
  44. Fio:string[40];
  45. adres:string[80];
  46. tel:string[8];
  47. dolg:real;
  48. end;
  49. var f_abonent:file of abonent;
  50. a:abonent;
  51. i,k:byte;
  52. procedure poisk;
  53. implementation
  54. procedure poisk;
  55. begin
  56. Maxdolg:=1;
  57. while not (Eof(f_abonent)) do
  58. begin
  59. with a do
  60. begin
  61. read (f_abonent,a);
  62. if (a.tel[1]='2') and (a.tel[2]='2')
  63. with a do
  64. begin
  65. writeln(nomer,'');
  66. writeln (Fio,'');
  67. writeln (adres,'')';
  68. writeln (tel,'');
  69. writeln (dolg,'');
  70. end;
  71. if a.dolg>Maxdolg then
  72. Maxdolg:=a.dolg;
  73. end;
  74. close (f_abonent);
  75. reset (f_abonent);
  76. while not eof (f_abonent) do begin
  77. if a.dolg=Maxdolg then
  78. with a do
  79. begin
  80. writeln(nomer,'');
  81. writeln (Fio,'');
  82. writeln (adres,'')';
  83. writeln (tel,'');
  84. writeln (dolg,'');
  85. end.
  86. program zapis;
  87. interface
  88. uses SysUtils,Unit1,unit2;
  89. var f_abonent:file of abonent;
  90.  


Nostalgia Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задала: Nostalgia (статус: Посетитель)
Вопрос отправлен: 10 декабря 2008, 22:28
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 2; последнее сообщение — 11 декабря 2008, 21:26; участников в обсуждении: 2.
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 11 декабря 2008, 05:10 [#1]:

Консольное приложение - это принципиально??? В Delphi есть более развитые средства для ввода/вывода информации.
Если объявляется файл типа file of abonent - это уже не текстовый файл. Определитесь с типом файла.
Nostalgia

Nostalgia (статус: Посетитель), 11 декабря 2008, 21:26 [#2]:

дело в том, что я только начинаю осваивать среду delphi и поэтому начинаю курс с консольного приложения. что касается типа файла, он-------типизированный.надеюсь на вашу помощь. заранее благодарю

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 7 апреля 2020, 13:50
Выполнено за 0.02 сек.
Рейтинг@Mail.ru