Program primer; Var f,g:text; I,n,k: integer; S,a,data: string; Begin Assign(f,'F.txt'); Assign(g,'G.txt'); rewrite(f); Writeln('Кол-во книг? '); readln(n); for i:=1 to n do begin writeln('Фамилия автора, название и год издания книги № ',i,' ?'); readln(s); writeln(f,s); // в фаил f забиваем данные end; close(f); Writeln('Укажите автора для поиска '); readln(a); Rewrite(g); Reset(f); For i:=1 to 2 do begin Readln(f,s); if (pos(a,s)<>0) then begin //ищем автора data:=''; for k:=length(s) downto 1 do begin if (s[k]=' ') then begin data:=data+copy(s,k+1,length(s)); //смотрим дату break; end; end; end; if (strtoint(data) >= 1980) then writeln(g,s); //сравниваем дату end; close(f); close(g); end. ABC Pascal
Var f,g:text;
I,n,k: integer; S,a,data: string; Begin
Assign(f,'F.txt');
Assign(g,'G.txt');
rewrite(f);
Writeln('Кол-во книг? ');
readln(n);
for i:=1 to n do begin
writeln('Фамилия автора, название и год издания книги № ',i,' ?');
readln(s);
writeln(f,s); // в фаил f забиваем данные
end;
close(f);
Writeln('Укажите автора для поиска ');
readln(a);
Rewrite(g);
Reset(f);
For i:=1 to 2 do begin
Readln(f,s);
if (pos(a,s)<>0) then begin //ищем автора
data:='';
for k:=length(s) downto 1 do begin
if (s[k]=' ') then begin
data:=data+copy(s,k+1,length(s)); //смотрим дату
break;
end;
end;
end;
if (strtoint(data) >= 1980) then writeln(g,s); //сравниваем дату
end;
close(f);
close(g);
end.
ABC Pascal
ToPoint(1,3);
PenDown;
ToPoint(2,4);
ToPoint(1,5);
ToPoint(3,3);
ToPoint(2,4);
ToPoint(2,5);
ToPoint(2,3);
ToPoint(2,4);
ToPoint(3,5);
PenUp;
ToPoint(5,5);
PenDown;
ToPoint(4,5);
ToPoint(4,4);
ToPoint(5,4);
ToPoint(4,4);
ToPoint(4,3);
ToPoint(5,3);
PenUp;
ToPoint(6,5);
PenDown;
ToPoint(6,3);
ToPoint(6,4);
ToPoint(7,4);
ToPoint(7,5);
ToPoint(7,3);
PenUp;
ToPoint(8,3);
PenDown;
ToPoint(9,4);
ToPoint(9,3);
ToPoint(9,5);
ToPoint(8,5);
ToPoint(8,4);
ToPoint(9,4);
PenUp;
end.
если ошибка в какой то букве говорите