если кому надо, то вот решенная
type
tdata = record
surname:shortstring;
year: integer;
city:shortstring;
street:shortstring;
numhouse:integer;
flat:integer;
work:shortstring;
end;
var f:file of tdata;
n,i:integer;
data:tdata;
begin
write('Сколько ...
Найдено 2 результата
- 24.04.2012 14:17:51
- Форум: Обучение Free Pascal
- Тема: Задача с записями и файлами
- Ответы: 4
- Просмотры: 8854
- 23.04.2012 19:11:02
- Форум: Обучение Free Pascal
- Тема: Задача с записями и файлами
- Ответы: 4
- Просмотры: 8854
Задача с записями и файлами
Привет, народ. Помогите с программой.
Есть задача, ее надо решить с помощью записей: На основе записной книжки, содержащей сведения: фамилия, год рождения, адрес (город; улица; номер дома; квартира), место работы (учебы) напечатать список лиц, работающих (учащихся) в КГТУ.
Я ее решаю так: сначала ...
Есть задача, ее надо решить с помощью записей: На основе записной книжки, содержащей сведения: фамилия, год рождения, адрес (город; улица; номер дома; квартира), место работы (учебы) напечатать список лиц, работающих (учащихся) в КГТУ.
Я ее решаю так: сначала ...
