Показать сообщение отдельно
Непрочитано 03.08.2005, 01:29   #2
KpeHgeJIb
Мужской Заслуженный
 
Аватар для KpeHgeJIb
 
Регистрация: 10.02.2003
Адрес: Израиль
Цитата (flashg) »
(что вней под корректировать чтобы)
уверен что сам писал?
Код:
Assign(f2,'p2.pas'); 
rewrite(f2);
st1:='1995';
Writeln('Ф И О Автар книги Название книги Издательство Год выпуска');
Writeln(f2,'Ф И О Автар книги Название книги Издательство Год выпуска');
for i:=1 to n do 
begin 
  With rbook[i] do
    if year=st1 then 
      begin
        Writeln(sname:10,name:10,otc:10,avtr:10,nb:10,pub:10,year:10);
        Writeln(f2,sname:10,name:10,otc:10,avtr:10,nb:10,pub:10,year:10);
      end; 
end;
close(f1); 
Close(f2);
readln;  
END.
Цитата (flashg) »
Код:
for i:=1 to n do 
  with rbook[i]do 
    begin
      WRITELN('Фамилия '); readln(sname); writeln(f1,sname);
      WRITELN('имя'); readln(name); writeln(f1,name);
      ...
А тут я подазреваю ты [i] пропустил.

PS Ну и почерк у вас, уважаемый
KpeHgeJIb вне форума  
Конфигурация ПК
Ответить с цитированием