Две программы в PascalABC

[Mnsh]

Здраствуйте программисты
Начинается сессия а я не могу написать две программы. Помогите пожалуйста.
Задачи:
1.Разработать программу, отображающую процесс вращения прямоугольника вокруг его верхнего левого угла.
2.В файл записаны коэффициенты многочлена. Необходимо определить значение многочлена по схеме Горнера.
Заранее спасибо

[Mad_Cat]

2 писал прям сюда не проверял

var
i,ai,n:integer;
f:text;
x,s:real;
begin
readln(x)
assign(f,'data.txt');
reset(f);
read(f,n);
s:=0;
for i:=0 to n do
begin
read(f,ai);
s:=s*x+ai;
end;
close(f);
writeln(s);
readln;
end.

[Mnsh]

Большое спасиб, еще первую нужно.

[whatever]

Первая нахрапом не решается, лучше сразу в фриланс. Возможно у кого-нибудь есть готовая, но рядли этот кто-то отдаст за просто так.

[Serge_Bliznykov]

ну да. есть готовая первая задача.

вращение прямоугольника вокруг левого верхнего угла

пробуйте:

uses graph,crt;
const POLYSIZE=4+1;
      STEP=0.01;
const xy:array[1..POLYSIZE]of PointType=(
(x:100;y:100),
(x:100;y:150),
(x:200;y:150),
(x:200;y:100),
(x:100;y:100));
      x0=100;
      y0=100;
var gd,gm,i:integer;
    r:array[1..POLYSIZE]of double;
    fi:array[1..POLYSIZE]of double;
    alp:double;
begin
    gd:=DETECT;
    initgraph(gd,gm,'');
    for i:=1 to POLYSIZE do
    begin
        r[i]:=sqrt(sqr(xy[i].x-x0)+sqr(xy[i].y-y0));
        if(xy[i].x-x0<>0)then fi[i]:=arctan((xy[i].y-y0)/(xy[i].x-x0))
        else if xy[i].y-y0<0 then fi[i]:=-PI/2
             else if xy[i].y-y0>0 then fi[i]:=PI/2 else fi[i]:=0;
    end;
    repeat
        for i:=1 to POLYSIZE do
        begin
            xy[i].x:=x0+round(r[i]*cos(fi[i]+alp));
            xy[i].y:=y0+round(r[i]*sin(fi[i]+alp));
        end;
        setcolor(WHITE);
        drawpoly(POLYSIZE,xy);
        delay(10);
        setcolor(BLACK);
        drawpoly(POLYSIZE,xy);
        alp:=alp+STEP;
    until keypressed;
    closegraph;
end.

p.s. уп-с... а это в TurboPascal. Боюсь, что в PascalABC прийдётся модифицировать..

в PascalABC этот же код может выглядеть так:

uses graphABC,crt, PointRect;
const POLYSIZE=4+1;
      STEP=0.01;
const xyC:array[1..POLYSIZE]of Point =(
(x:100;y:100),
(x:100;y:150),
(x:200;y:150),
(x:200;y:100),
(x:100;y:100));
      x0=100;
      y0=100;

var gd,gm,i:integer;
    xy:array[1..POLYSIZE]of Point;
    r:array[1..POLYSIZE]of real;
    fi:array[1..POLYSIZE]of real;
    alp:real;
begin
    for i:=1 to POLYSIZE do xy[i] := xyC[i];
    
    for i:=1 to POLYSIZE do
    begin
        r[i]:=sqrt(sqr(xy[i].x-x0)+sqr(xy[i].y-y0));
        if(xy[i].x-x0<>0)then fi[i]:=arctan((xy[i].y-y0)/(xy[i].x-x0))
        else if xy[i].y-y0<0 then fi[i]:=-PI/2
             else if xy[i].y-y0>0 then fi[i]:=PI/2 else fi[i]:=0;
    end;
    repeat
        for i:=1 to POLYSIZE do
        begin
            xy[i].x:=x0+round(r[i]*cos(fi[i]+alp));
            xy[i].y:=y0+round(r[i]*sin(fi[i]+alp));
        end;
        SetPenColor(clRED);
        PolyLine(xy, POLYSIZE);
        delay(10);
        SetPenColor(clWhite);
        PolyLine(xy, POLYSIZE);
        alp:=alp+STEP;
    until keypressed;
end.

[Mnsh]

Большое спасибо.