Вывод на экран списка статей, опубликован-ных после заданного года

[Igor571]

Библиографический список Название литературного источника
Автор
Год издания
Категория (книга, статья)


Вывод на экран списка статей, опубликован-ных после заданного года



program lab7;
const nmax=30;
type tlit=record
name:string[20];
avtor:string[20];
year:integer;
kategor:string[15];
end;

tliter = array [1..nmax] of tlit;
var liter:tliter;
year:integer;
f:text;
fname: string[30];
n:integer;
m:integer;
i:integer;
cont:char;
tmp:tlit;

{********************************** *************** *********}
procedure screenlit(var po:tliter; ng:integer;var vr:integer);
var i:integer;

begin

writeln('stati posle zadannoga goda');
for i:=1 to ng do
if po[i].year > vr then writeln(po[i].name,po[i].avtor,po[i].year,po[i].kategor);
end;
{********************************** *************** *********}
begin
writeln('Programma "Examen Vedomost" ');
writeln('1 - Sozdat novy file');
writeln('2 - Obrabotat gotovy file');
writeln('3 - Zavershit raboty programmy');
m:=1;

while m<>3 do
begin
writeln ('vvedute 1,2 ulu 3: '); readln(m);
case m of
{********************************** *************** *********}
1:
begin
write('vvedute uma faila ');
readln(fname);
assign (f,fname);
rewrite(f);
i:=1; cont:='y';
while cont='y' do
with tmp do
begin
writeln('vvedute dannue',i,'lit ');
write('name '); readln(name);
write(' avtor '); readln(avtor);
write ('year '); readln(year);
write (' kategor '); readln(kategor);

writeln(f,name:15,avtor:15,year:8,k ategor:10);
i:=i+1;
writeln('klavuwa y dla prodolzenu9i, druga9i vuxod:') ;
readln(cont);
end;
close(f);
end;

{********************************** *************** *********}

2:
begin
write('enter file name ');
readln(fname);
assign(f,fname);
reset(f);
i:=1;
while not eof(f) do
begin with liter [i] do
readln (f,name,avtor,year,kategor);
i:=i+1;
end;

close(f);
n:=i-1;

for i:=1 to n do
with liter [i] do
writeln (name:15,avtor:20,year:4,kategor:10 );
screenlit (liter,n,year);


end;
end;
end;
end.



Что-то она у меня не пашет

[Igor571]

ай нид хелп... мне еще 2 лабы нужно написать... а с это загвоздка

[madmot]

ну на вскидку, ты пишешь:

while m<>3 do
begin
writeln ('vvedute 1,2 ulu 3: '); readln(m);
{....bla bla....}

что есть не правильно, т.е. в переводе это зучит так:
пока "m" не равно 3 делай ...bla bla...
а тебе необходимо сделать выбор одной из трех операций.

предлагаю такой вариант создания меню

var ch:char;
begin  
repeat
    ch:=readkey;
    case ch of
    #27: exit;
    '1': {выз. такую-то процедурку};
    '2': {выз. такую-то процедурку};
    '3': {выз. такую-то процедурку};
    end;
  until ch=#27;
end;