Помощь - Поиск - Пользователи - Календарь
Полная версия: Обработка записей
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
xekzzz
Помогите решить данную задачу? Заранее огромное спасибо!

Составьте банк данных кинологов, включающий в себя фамилию и имя владельца собаки, кличку собаки, породу собаки, день и год рождения собаки, наличие родословной, наличие медалей. Информацию о каждом владельце оформите в программе в виде записи. Совокупность записей объедините в массив. Составьте программу, которая обеспечивает ввод полученной информации, а также вывод данных по первой букве имени владельца собак.

Как мне поставить условие, чтобы был вывод по первой букве имени владельца?


Program nk;
uses crt;
type
inf=record
den,god,med:integer;
name,fam,klich,poroda,rods:string;
end;

var f:file of inf;
m:array[1..100]of inf;
i,k:integer;

procedure BK;
begin
writeln('~~~~Банк данных кинологоВ~~~~');
writeln;
write('Введите количество кинологов ->');
readln(k);
writeln;
for i:=1 to k do
with m[i] do
begin
write('Введите имя владельца собаки ->');
readln(name);
write('Введите фамилию владельца собаки ->');
readln(fam);
write('Введите кличку собаки ->');
readln(klich);
write('Введите породу собаки ->');
readln(poroda);
write('Введите день рождения собаки ->');
readln(den);
write('Введите год рождения собаки ->');
readln(god);
write('Введите наличие родословной ->');
readln(rods);
write('Введите наличие медалей ->');
readln(med);
writeln;
end;
end;

Client
if m[i].name[1]=c then ... // с-это буква
xekzzz
спасибо Client !


Program nk;
uses crt;
type
inf=record
den,god,med:integer;
name,fam,klich,poroda,rods:string;
end;

var f:file of inf;
m:array[1..100]of inf;
i,k:integer;
c:string;

procedure BK;
begin
writeln('~~~~Банк данных кинологоВ~~~~');
writeln;
write('Введите количество кинологов ->');
readln(k);
writeln;
for i:=1 to k do
with m[i] do
begin
write('Введите имя владельца собаки ->');
readln(name);
write('Введите фамилию владельца собаки ->');
readln(fam);
write('Введите кличку собаки ->');
readln(klich);
write('Введите породу собаки ->');
readln(poroda);
write('Введите день рождения собаки ->');
readln(den);
write('Введите год рождения собаки ->');
readln(god);
write('Введите наличие родословной ->');
readln(rods);
write('Введите наличие медалей ->');
readln(med);
writeln;
end;
end;


procedure Poisk;
begin
for i:=1 to k do
if m[i].name[1]=c then
with m[i] do // с-это буква
writeln(fam,' ',klich,' ',poroda,' ',den,' ',god,' ',rods,' ',med);
end;

begin
BK;
writeln('введите 1 букву имя владельца');
readln©;
Poisk;
end.











xekzzz
Как мне её теперь ПЕРЕЗАПИСАТЬ в текстовый файл! сам пробовал, не получается (((
мисс_граффити
показывай, что и как пробовал
xekzzz
У меня получается записать только в типизированный файл ! ((

Program nk;
uses crt;
type
inf=record
den,god,med:integer;
name,fam,klich,poroda,rods:string;
end;

var f:file of inf;
m:array[1..100]of inf;
i,k:integer;
c:string;

procedure BK;
begin
writeln('~~~~Банк данных кинологоВ~~~~');
writeln;
write('Введите количество кинологов ->');
readln(k);
writeln;
for i:=1 to k do
with m[i] do
begin
write('Введите имя владельца собаки ->');
readln(name);
write('Введите фамилию владельца собаки ->');
readln(fam);
write('Введите кличку собаки ->');
readln(klich);
write('Введите породу собаки ->');
readln(poroda);
write('Введите день рождения собаки ->');
readln(den);
write('Введите год рождения собаки ->');
readln(god);
write('Введите наличие родословной ->');
readln(rods);
write('Введите наличие медалей ->');
readln(med);
writeln;
write(f,m[i]);
end;
end;


procedure Poisk;
begin
for i:=1 to k do
if m[i].name[1]=c then
with m[i] do // с-это буква
writeln(fam,' ',klich,' ',poroda,' ',den,' ',god,' ',rods,' ',med);
end;

begin
assign(f,'c:\REZZ.txt'); rewrite(f);
BK;
writeln('введите 1 букву имя владельца');
readln©;
Poisk;
end.

Client
for i:=1 to k do
with m[i] do
begin
writeln(f1,name);
writeln(f1,fam);
writeln(f1,klich);
writeln(f1,poroda);
writeln(f1,den);
writeln(f1,god);
writeln(f1,rods);
writeln(f1,med);
writeln(f1);
end;
f1-это текстовый файл
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.