Aiting
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помажите, ламеру написать программу, плз
Описать структуру с именем ZNAK, содержащую следующие поля:
• Фамилия, имя
• Знак зодиака
• Дата рождения (массив из трех чисел)
Написать программу, выполняющую следующие действия:
• Ввод с клавиатуры данных в массив, состоящий из восьми структур; записи должны быть упорядочены по знакам зодиака;
• Вывод на экран информации о людях, родившихся в месяц, значение которого введено с клавиатуры
• Если таких людей нет, вывести соответствующее сообщение
Смог написать только это и запутался. (Хотел зделать запись в файл фамилии имя и даты).
program znakk;
uses crt;
type Znak=record
fi,zodiak:string[15];
data:array[1..3] of integer;
end;
const zodiak:array[0..11] of string = ('Vodoley (21.01-19.02)','Ribi (20.02-20.03)','Oven (21.03-20.04)','Telec (21.04-21.05)',
'Blizneci (22.05-21.06)','Rak (22.06-22.07)','Lev (23.07-23.08)','Deva (24.08-23.09)',
'Vesi (24.09-23.10)','Skorpion (24.10-22.11)','Strelec (23.11-21.12)','Kozerog (22.12-20.01)');
var m:array[1..8]of Znak;
P,z:Znak;
FL:file of Znak;
i,d:integer;
begin
assign(FL,'www.txt');
rewrite(FL);
writeln('zadaite 8m struktur(familiii,imen,dat.r)');
for i:=1 to 8 do
begin
writeln('familiia, imia'); readln(m[i].fi);
for d:=1 to 3 do
begin
if d=1 then writeln('day');
if d=2 then writeln('month');
if d=3 then writeln('year');
readln(m[i].data[d]);
wrte(FL,m[i]);
end;
end;
close(FL);
end. |
