Создание Простейших Справочников , как:?

[Orbys]

нам в школе задали задачу на создание справочника, а тему не понял помогите сделать плиз)
Задача: Составить справочник логик , который по 2-ому фрагменту выдает инф. об объекте

[Smitt&Wesson]

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

нам в школе задали задачу на создание справочника, а тему не понял помогите сделать плиз)
Задача: Составить справочник логик , который по 2-ому фрагменту выдает инф. об объекте

На чём писать то? На Visual Basic, Pascal, Delphi, C, C++?
Дай более точную инфу. Поможем.

[Orbys]

Сообщение от Smitt&Wesson

На чём писать то? На Visual Basic, Pascal, Delphi, C, C++?
Дай более точную инфу. Поможем.

Ну как тема вроде в раздели "Паскаль" , значит на Pascal(e) надо решить)

[Mad_Cat]

{.....}
type Tpers = record
        fio:string[80];
        pnum:string[12];
        y:integer;
end;
var
a:array[1..100] of Tpers;
t:boolean;
k:integer;
.....
procedure SelectPers(f:string;n:integer);
var i:integer;
begin
t:=false;
for i:=1 to n do
if a[i].fio=а then  begin
with a[i] do begin
writeln(fio);
writeln(pnum);
writeln(year);
end;
t:=true;
end;
end;
begin
{заполнение массива}
{вывод на экран}
writeln('Input Lastname');
readln(s);
SelectPers(s,k);
if not t then writeln(' no result');
readln;
end.

[Mad_Cat]

{.....}
type Tpers = record
        fio:string[80];
        pnum:string[12];
        y:integer;
end;
var
a:array[1..100] of Tpers;
t:boolean;
k:integer;
.....
procedure SelectPers(f:string;n:integer);
var i:integer;
begin
t:=false;
for i:=1 to n do
if a[i].fio=а then  begin
with a[i] do begin
writeln(fio);
writeln(pnum);
writeln(year);
end;
t:=true;
end;
end;
begin
{заполнение массива}
{вывод на экран}
writeln('Input Lastname');
readln(s);
SelectPers(s,k);
if not t then writeln(' no result');
readln;
end.

[Orbys]

ого) какая то слишком сложная половину функций мы не проходили) Лано спасибо) Попробую разобраться

[Sparkman]

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

ого) какая то слишком сложная половину функций мы не проходили) Лано спасибо) Попробую разобраться

вы массивы, процедуры/функции (их создание), тип запись (record) проходили?

[Orbys]

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

вы массивы, процедуры/функции (их создание), тип запись (record) проходили?

Неа , че за record)


Типо начало программы а дальше хз)
program p1;
const=4;
a: array [1..n] of string=('Ivanov;Ivalkin;Sidorov;Ser ov');
c: array [1..n] of string=('5-29-36;5-51-36;5-18-15;5-14-34');
d: array [1..n] og integer=('1985;1980;1979;1987');
writeln('BB');
readln(b);
writeln('BB Fragment');
readln(t);
for i:=1 to n do