|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.05.2012, 18:42 | #1 |
Новичок
Джуниор
Регистрация: 17.05.2012
Сообщений: 4
|
Програма для пошуку информації в файлі
задача
Создать файл содержащий информацию для астролога.Структура записи: Фамилия знак зодиака день рождения (массив из 3 чисел). Количество записей произвольная {Написать програму которая выконуё следующие действия: 1-Выводит информацию о лицах родившихся под знаком название которого вели с клавиатуры 2-Выводит список лиц, которые родились в месяц. Номер которого вели с клавиатуры 3-В случае отсутствия записей выдать соответствующее сообщение.}-Вот ета мне нужна очень! ети три пункта я немагу зделать памагите!! Програма уменя есть мне нужна тока 3 пункта вот програма: program Astrologiya; USES CRT; const N=3; type Astrolog=record surname:string; Znakzodiaky:string; DN:array [1..N] of integer; end; var f:file of Astrolog; buf:Astrolog; vidp:char; i:byte; begin Assign(f,'D:\Astrolog.dat'); Rewrite(f); vidp:='y'; while (vidp='y') do begin writeln('Enter surname'); readln(buf.surname); writeln('Enter Znakzodiaky'); readln (buf.Znakzodiaky); for i:=1 to N do begin writeln('Enter DN'); readln(buf.DN[i]); end; write(f,buf); writeln('Do you want to continue this? for contineud enter "yes".'); readln(vidp); end; seek(f,0); while not eof(f) do begin read(f,buf); for i:=1 to N do begin write(buf.surname:20,buf.znakzodiak y:20,' ',buf.dn[i]); end; end; readln; Close(f); end. памагите оч нид буду благадарен Последний раз редактировалось Fmk; 17.05.2012 в 18:48. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Програма в С++ | i.yakushev | Помощь студентам | 8 | 05.05.2011 21:59 |
програма С++ | tavtan | Помощь студентам | 0 | 02.12.2010 19:46 |
Програма | Андрей1212 | Помощь студентам | 1 | 22.05.2010 02:09 |
програма | Андрей1212 | Помощь студентам | 4 | 19.05.2010 23:32 |