П риложение г

Код программы к заданию 4

program A4;

uses GraphABC,crt;

const p=3.14;

var x,t,y,A,R,m:real;

n:byte;

l:text;

Q:array [1..4] of real;

begin

setwindowsize(600,600);

line(300,0,300,600);

line(0,300,600,300);

assign(l,'data3.txt');

reset(l);

for n:=1 to 4 do

begin

readln(l,m);

Q[n]:=m;

end;

A:=Q[1];

R:=Q[2];

t:=0;

while t<2*p do

begin

x:=(1+A)*cos(A*t)+R*cos(1+A)*t;

y:=(1+A)*sin(A*t)+R*sin(1+A)*t;

circle(trunc(x*20+300),trunc(y*20+300),2);

t :=t+0.01;

end;

close(l);

end.

П риложение д.

Код программы к заданию 5

Program А5;

Uses Crt;

Const n=10;

Type kniga = record

Avtor, Nazvanie, Izdatel:string[20];

God:integer;

Stranizy:real;

end;

Var a : array[1..n] of kniga;

i :byte;

avt:string;

naz:string;

izd:string;

max:real;

g:integer;

begin

ClrScr;

for i:=1 to n do

with a[I] do

begin

Writeln('Введите автора ',I);

Readln(Avtor);

Writeln('Название книги');

Readln(Nazvanie);

W riteln('Издательство');

Readln(Izdatel);

Writeln('Год издания');

Readln(god);

Writeln('Кол-во страниц');

Readln(Stranizy);

end;

Writeln;

Writeln('Введите автора интересующей книги');

Readln(avt);

for i:=1 to n do

with a[I] do

if avtor=avt then writeln (avtor,' "',Nazvanie,'", ',izdatel,' ',god,'г. ',stranizy,'стр.');

Readln;

Writeln('Книга с наибольшим кол-ом страниц');

max:=0;

for i:=1 to n do

with a[I] do

if stranizy>max then begin

max:=stranizy;

naz:=Nazvanie;

end;

write(Naz,' ',max,'стр.');

Readln;

Writeln('Введите автора интересующей книги');

Readln(avt);

Writeln('Укажите год издания');

Readln(g);

W riteln('Укажите Издательство');

Readln(izd);

for i:=1 to n do

with a[I] do

if (avt=avtor) and (g=god) and (izd=Izdatel) then writeln('Книга "',Nazvanie,'", ',stranizy,'стр.');

Readln;

end.

43