файл

[Bek-Z]

{2.Создать файл содержащий фамилии, имена, день, месяц и год рождения.1
Написать две программы: первая должна создавать такой файл, а вторая должна
запрашивать ввод с клавиатуры фамилии и выводить на экран все данные об этом
человеке. }

[baster128]

В Делфи это займет час времени. С радостью напишу от нечего делать. В какой среде писать?

[Bek-Z]

заранее спасибо! мне в паскале надо(abc)!!!

[Bek-Z]

я тут сам пробовал, но что то не выходит:
USES CRT;
TYPE CHELOVEK=RECORD
FAM,NAME:STRING;
YEAR,DAY,MONTH:INTEGER;
END;
VAR C:TEXT;
A:INTEGER;
S1:CHELOVEK;
Q:STRING;
BEGIN
A:=1;
clrscr;
writeln('Введите данные');
writeln;
assign(c,'Z:\1.txt');
//rewrite(c);
WITH S1 DO BEGIN
WHILE A<>0 DO BEGIN
write('Фамилия: ');
read(FAM);
write('Имя: ');
read(NAME);
write('День: ');
read(DAY);
write('Месяц: ');
read(MONTH);
write('Год рождения: ');
read(YEAR);
write('Продолжить?(да-1,нет-0)');
read(a);
writeln(c,FAM,' ',NAME,' ',DAY,'\',mONTH,'\',YEAr);
END; END;
WRITELN('ВСЕ ДАННЫЕ СОХРАНЕНЫ!!!');
WRITELN;
WRITELN('ВВЕДИТЕ ФАМИЛИЮ ЧЕЛОВЕКА КОТОРОГО ВЫ ИЩЕТЕ:');


RESET(C);
READLN(C,Q);
WITH S1 DO
IF Q=S1.FAM THEN WRITELN(c,FAM,' ',NAME,' ',DAY,'\',mONTH,'\',YEAr);
CLOSE(C);
END.

[savva]

ну для начала ты не правильно обращаешься в переменным

ты объявил

type man=record
name,fname:STRING;
year,day,month:integer;(может не integer надо а byte(он от 0 до 255) ?)
end;

чтобы обратится к полю записи надо:

Man.name=....;

ибо with опасно использовать,ибо посмотри здесь:

WITH S1 DO
IF Q=S1.FAM

тут надо Q=FAM;
и потом присваивание в паскале разве не ":="

ещё не надо делать S1:CHELOVEK;,трата памяти.просто названия покомпактнее не CHELOVEK а просто Man,и все будет проще.

[Bek-Z]

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

[savva]

а,тьфу)
ну так или иначе
вот у тебя код

WITH S1 DO
IF Q=S1.FAM

что ты тут делаешь?
ты С записью S1 делаешь
если Q сравнимо с полем S1.name.

то есть ты S1.Q сравниваешь с полем такого рода: S1.S1.name;

поэтому и не работает. у тебя нет поля Q в S1 и нет поля S1.name в S1.
значит должно быть так,ну как мне кажется:

IF Q=S1.FAM THEN 
WITH S1 DO
begin
WRITELN(c,FAM,' ',NAME,' ',DAY,'\',mONTH,'\',YEAr);
end;

[baster128]

WRITELN('ВВЕДИТЕ ФАМИЛИЮ ЧЕЛОВЕКА КОТОРОГО ВЫ ИЩЕТЕ:');
А где читаем введенные данные, где readln?

[savva]

WRITELN('ВВЕДИТЕ ФАМИЛИЮ ЧЕЛОВЕКА КОТОРОГО ВЫ ИЩЕТЕ:');
RESET(C);
READLN(C,Q);
WITH S1 DO
IF Q=S1.FAM THEN WRITELN(c,FAM,' ',NAME,' ',DAY,'\',mONTH,'\',YEAr);

должно быть так,как мне кажется\

WRITELN('ВВЕДИТЕ ФАМИЛИЮ ЧЕЛОВЕКА КОТОРОГО ВЫ ИЩЕТЕ:');
readln(Q);
RESET(C);
READLN(C);

IF Q=S1.FAM THEN
WITH S1 DO 
WRITELN(c,FAM,' ',NAME,' ',DAY,'\',mONTH,'\',YEAr);

[Bek-Z]

ну вот короче тебе пример:
uses crt;
Type student = record
Fam : string[10];
Birth : 1992..2003;
Year : 1999..2010;
Mark : record
Algebra, History, Prog : 2..5;
End
End;
Var group : array[1..2] of student;
S1 : student;
I, j : integer;
Begin
With s1 do
Begin
For i:=1 to 2 do begin
Write('введите фамилию=>');
Readln(fam);
write('введите год рождения=>');
Readln(Birth);
Write('год поступления=>');
readln(year);
With mark do
Readln(algebra, history, prog);
Group[i]:=s1;
End;
End;
Writeln('Имена студентов получивших в последней сессии "2":');
writeln('____________________');
For i:=1 to 5 do
With group[i] do
If (mark.algebra=2) or (mark.history=2) or (mark.prog=2)
Then writeln('|',fam ,'|',Birth:5,'|',Year:5,'|');
End.
в этой проге находит двойки, а мне надо ввести фамилию и она должна найти всю информацию о man'e