2 задачи на паскале, нужен код. "горю на зачете"

[NIcque]

1# Вот из этого 01.gif примера нужно написать рабочий код на языке паскаля.

2# Вычислить площадь и периметр правильного N-угольника, описанного около окружности радиуса R (рассмотреть N-целого типа, R-вещественного типа) [рабочий код на паскале]

Буквально "горю", 1-ы курс АСО, а уже программирование изучаем..
Код можно с процедурами или без них, разницы особой нет.
Блок схему по коду, я думаю, сама нарисую.

[бедный_студент]

описываешь каждое действие в отдельности что такое синус там и т.п. а под конец пишешь свой пример со своими обозначениями

вторая задачка проще даже. сам я не программер но даже тут понятно все нарисуй чтоли для начала как это выглядит

[Arigato]

Буквально "горю", 1-ы курс АСО, а уже программирование изучаем..

Рас уже изучаете программирование, тогда в чём трудность?

[NIcque]

Сообщение от Arigato

Рас уже изучаете программирование, тогда в чём трудность?

трудность в том, что наша училка, сама учиться на программиста, а объяснить нам по тем примерам, (что я выше указала) она не может, отговариваясь, что мол думайте и выворачивайтесь как хотите.

бедный_студент, может быть тут это и решали или что-то похожее, но я этого не нашла в гугле.

[Chudo4258]

1

readln(x,y);
writeln(  (1+sqr(sin(x+y)))/(2+abs(x-(2*x/(1+sqr(x)*sqr(y)))))+x  );

[NIcque]

Подскажите\поправте код моей второй задачи, что в нем не так?

{$N+, E-}

type
real = extended;

var
a, r, p, s: real;
n: longint;

begin
readln (n, r);
a:=2*r*sin (pi/n)/cos (pi/n);
p:=n*a;
s:=1/2*r*p;
writeln (p:0:4, ' ', s:0:4)
end.

Скриншот ошибки:

[Chudo4258]

Код по сути у тебя правильный, в Delphi все работает:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
a, r, p, s: real;
n: longint;
begin
  { TODO -oUser -cConsole Main : Insert code here }
readln (n, r);
a:=2*r*sin(pi/n)/cos(pi/n);
p:=n*a;
s:=1/2*r*p;
writeln (p:0:4,' ',s:0:4);
readln;
end.

Может ошибка вот в этой штуке - {$N+, E-}.