Организовать файл записей и поместить в него сведения о нескольких студентах (Фамилия, имя, отчество, дата рождения, домашний адрес).

@JD Stive · Регистрация: 28.01.2010

Организовать файл записей и поместить в него сведения о нескольких студентах (Фамилия, имя, отчество, дата рождения, домашний адрес). Вывести фамилии тех, кому исполнилось n лет.

@Inadequate · 11.04.2010, 14:50

JD Stive, давай свои наработки. Писать задание полностью врядли кто будет, так писать многовато... А вот направить на путь истинный мона

@JD Stive · 11.04.2010, 16:27 **[ТС]**

Сообщение от Inadequate

давай свои наработки.

Pascal

uses crt;
const n=10;
type student = record
familiya,imya,otchestvo,adres,data:string[50];
end;
var lib:array[1..n] of student;
m,i:integer;
f1:text;
begin
clrscr;
writeln('vvedite kolichestvo CTYDEHTOB');
readln(m);
assign(f1,'E:\studenti.txt');
rewrite(f1);
for i:=1 to m do begin
writeln('vvedite familiyu');
readln(lib[i].familiya);
writeln('vvedite imya');
readln(lib[i].imya);
writeln('vvedite otchestvo');
readln(lib[i].otchestvo);
writeln('vvedite datu DD-MM-GGGG');
 readln(lib[i].data);
writeln('vvedite- gorod  ulitca dom\kvartira');
readln(lib[i].adres);
writeln(f1,lib[i].familiya);
writeln(f1,lib[i].imya);
writeln(f1,lib[i].otchestvo);
writeln(f1,lib[i].data);
writeln(f1,lib[i].adres);
end;
close(f1);
 
end.

Файл создаётся, а вот как теперь выводить фамилии тех кому исполнилось n лет

@Inadequate · 11.04.2010, 16:37

Таак... Это хорошо, что сам пытаешься что-то делать

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

Добавлено через 2 минуты
Также как можно выводить те записи, которым исполнилось N лет, когда ты не описал такого поля ? Тоже надо добавить.

Добавлено через 1 минуту
Вывод будет примерно такой

Pascal

while not EOF(f) do 
begin
  Read(f, tRec);
  if tRec.Age >= N then
    WriteLn(tRec.Surname);
end;

@Rom@ · 11.04.2010, 17:05

Inadequate у меня есть похожая задачка, только мне надо определить количество студентов в групе
Подскажите пожалуйста как ето сделать?????

@Puporev · 11.04.2010, 17:22

Сообщение от Rom@

мне надо определить количество студентов в групе

Pascal

1 2	write('Количество студентов n='); readln(n);

@JD Stive 2 / 2 / 1 Регистрация: 28.01.2010 Сообщений: 71
		1
	Организовать файл записей и поместить в него сведения о нескольких студентах (Фамилия, имя, отчество, дата рождения, домашний адрес). 11.04.2010, 14:42. Просмотров 2207. Ответов 5 Метки нет (Все метки) Организовать файл записей и поместить в него сведения о нескольких студентах (Фамилия, имя, отчество, дата рождения, домашний адрес). Вывести фамилии тех, кому исполнилось n лет. 0

@Inadequate Retired 7720 / 2552 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	11.04.2010, 14:50	2
	JD Stive, давай свои наработки. Писать задание полностью врядли кто будет, так писать многовато... А вот направить на путь истинный мона 0

@Rom@ 23 / 23 / 12 Регистрация: 29.11.2009 Сообщений: 210
	11.04.2010, 17:05	5
	Inadequate у меня есть похожая задачка, только мне надо определить количество студентов в групе Подскажите пожалуйста как ето сделать????? 0

Опции темы