|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.02.2017, 00:45 | #1 |
Регистрация: 20.11.2016
Сообщений: 6
|
Запись и вывод данных в/из типизированного файла
Доброго времени суток!
Необходима помощь: нужно организовать ввод данных в типизированный файл (.dat ) с возможность вывода их ( данных ) в виде таблицы через оный. Код: program a1337; type vuzi = record nazv_v:string[20]; chislo_s:1..500; kol_f:1..50; kol_kaf:1..50; end; const n=5; var i:byte; v:array[1..n] of vuzi; a:string; begin for i:=1 to n do begin writeln('Задайте название');readln(v[i].nazv_v); writeln('Задайте число студентов');readln(v[i].chislo_s); writeln('Задайте кол-во факультетов');readln(v[i].kol_f); writeln('Задайте кол-во кафедр');readln(v[i].kol_kaf); end; ///Вот эти данные writeln('Название вуза',' Кол-во студентов',' Кол-во факультетов',' Кол-во кафедр'); writeln; for i:=1 to n do with v[i] do writeln(nazv_v:4,' ',chislo_s:4,' ',kol_f:2,' ',kol_kaf:2); /// writeln('Поиск по названию вуза: задайте название:');readln(a); for i:=1 to n do with v[i] do begin if(a=nazv_v) then begin writeln('***'); writeln('Название вуза: ', nazv_v); writeln('Общее число студентов: ', chislo_s); writeln('***'); end; writeln end;end. |
04.02.2017, 12:41 | #2 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Заменить массив на переменную типа vuzi, ввести файловую переменную того же типа
Код:
Код:
Код:
Код:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Запись в конец типизированного файла | mefisto74 | Lazarus, Free Pascal, CodeTyphon | 18 | 28.09.2015 22:36 |
вывод на экран содержимого типизированного файла. pascal | fanat_iam | Помощь студентам | 2 | 20.12.2013 16:25 |
Считать запись из типизированного файла в динамическую очередь ( Delphi ) | SeregaVili | Помощь студентам | 10 | 22.05.2013 11:20 |
Запись и чтение типизированного файла (Паскаль). Учёт заказов мебели | Jlovenpk1 | Помощь студентам | 1 | 29.11.2012 09:30 |
Запись типизированного файла из текстового. | Lubawa | Паскаль, Turbo Pascal, PascalABC.NET | 18 | 05.11.2011 11:27 |