Другие языки программирования и технологии

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

Подготовить анкетные данные своих ближайших родственников. Офор-мить сведения о каждом родственнике в виде записи, в которой определены следующие поля :
1.Фамилия, имя, отчество.
2.Степень родства (мать, сестра и т. д. )
3.Город проживания.
4.Год рождения.
5.Признак – работает или нет.
Организовать ввод данных с терминала и записать их во временный файл. Вычислить в программе средний возраст родственников. Организовать чтение
созданного файла и вывод на терминал информации о тех родственниках, у кото-рых возраст меньше среднего.
program n1314nomer1;
uses crt;
Type Record_Type = Record
Name:String[10];
Surname:String[20];
Otchestvo:String[30];
Age: Byte;
Gorod:String[20];
Priznak:String[15];
end;
Var Record_Array:Array[1..10]of Record_Type;
Number_of_Array:1..10;fp:

Procedure; Input_Date:
begin
assign(fp,'e:\family.txt');
rewrite(fp);
Writeln('Ââåäèòå äàííûå N', Number_of_Array,':');
Write('Âàøå èìÿ?');
Readln(Record_Array[Number_of_Array].Name);
Write('Ôàìèëèÿ?');
Readln(Record_Array[Number_of_Array].Surname);
Write('Îò÷åñòâî?');
Readln(Record_Array[Number_of_Array].Otchestvo);
Write('Âàø âîçðàñò?');
Readln(Record_Array[Number_of_Array].Age);
Write('Ãîðîä?');
Readln(Record_Array[Number_of_Array].Gorod);
Write('Ïðèçíàê?');
Readln(Record_Array[Number_of_Array].Priznak);
Writeln;
end;
Procedure Write_Date;
begin
With Record_Array[Number_of_Array]do
begin
Writeln('Èìÿ:',Name);
Writeln('ôàìèëèÿ:',Surname);
Writeln('Îò÷åñòâî:',Otchestvo);
Writeln('Âîçðàñò:',Age);
Writeln('Ãîðîä:',Gorod);
Writeln('Priznak:');
end;
end;
begin
for Number_of_Array:=1 to 10 do
Input_Date;
Writeln;
Writeln('Âûâîäèì äàííûå î 5 ðîäñòâåííèêàõ');
Writeln;
Number_of_Array:=5;
Write_Date;
close;(fp);
end.
PV
Pro100 Vov4Ik
167
program torg_center;
type
Mall=record
nazv: string[20];
tel:integer;
adress:string[20];
end;
Var j, m:integer; s, t:string[20];
d: array[1..10] of Mall;
f:text;
begin
writeln('Ââåäèòå èìÿ ôàéëà ñ ðàñøèðåíèåì .txt, â êîòîðûé áóäåò çàïèñàíà èíôîðìàöèÿ');
readln(t);
assign(f, t);
rewrite(f);
writeln('Ââåäèòå äàííûå â ìàññèâ:');
for j:=1 to 2 do
begin
writeln('ââåäèòå íàçâàíèå');readln(d[j].nazv); write (f,d[j].nazv,' ');
writeln('ââåäèòå íîìåð òåëåôîíà');readln(d[j].tel);write (f,d[j].tel, ' ');
writeln('ââåäèòå àäðåñ');readln(d[j].adress); writeln (f,d[j].adress);
end;
writeln('Ââåäèòå íàçâàíèå èíòåðåñóþùåãî âàñ òîðãîâîãî öåíòðà:');readln(s);
writeln('Èíôîðìàöèÿ î òîðãîâîì öåíòðå:');
for j:=1 to 2 do
if d[j].nazv = s then
begin m:=1;
writeln('Íàçâàíèå: ',d[j].nazv, ' ');
writeln ('Òåëåôîí: ',d[j].tel, ' ');
writeln ('Àäðåñ: ',d[j].adress);
end;
writeln;
if m=0 then writeln('Òàêèõ òîðãîâûõ öåíòðîâ íåò');
close(f);
end.
ٹتر .جاتہ
ٹتر .جاتہ
6 933
Лучший ответ
только принцып работы прочитать и обработать текстовой файл наверное сможешь сам
program torg_center;
type
Mall=record
nazv: string[20];
tel:integer;
adress:string[20];
end;
Var j, m:integer; s, t:string[20];
d: array[1..10] of Mall;
f:text;
begin
writeln('Ââåäèòå èìÿ ôàéëà ñ ðàñøèðåíèåì .txt, â êîòîðûé áóäåò çàïèñàíà èíôîðìàöèÿ');
readln(t);
assign(f, t);
rewrite(f);
writeln('Ââåäèòå äàííûå â ìàññèâ:');
for j:=1 to 2 do
begin
writeln('ââåäèòå íàçâàíèå');readln(d[j].nazv); write (f,d[j].nazv,' ');
writeln('ââåäèòå íîìåð òåëåôîíà');readln(d[j].tel);write (f,d[j].tel, ' ');
writeln('ââåäèòå àäðåñ');readln(d[j].adress); writeln (f,d[j].adress);
end;
writeln('Ââåäèòå íàçâàíèå èíòåðåñóþùåãî âàñ òîðãîâîãî öåíòðà:');readln(s);
writeln('Èíôîðìàöèÿ î òîðãîâîì öåíòðå:');
for j:=1 to 2 do
if d[j].nazv = s then
begin m:=1;
writeln('Íàçâàíèå: ',d[j].nazv, ' ');
writeln ('Òåëåôîí: ',d[j].tel, ' ');
writeln ('Àäðåñ: ',d[j].adress);
end;
writeln;
if m=0 then writeln('Òàêèõ òîðãîâûõ öåíòðîâ íåò');
close(f);
end.
Виктор Вальков
Виктор Вальков
6 018

Похожие вопросы