Составить блок-схему алгоритма (Pascal)

[k0tone]

1. Составить блок-схему алгоритма и написать текст программ S=X^Y , S=Sin(x), поиска корней квадратного уравнения ax^2+bx=c+0 (включая комплексные) и sin (x) оформить функцией.

х^y:

program x_y;
var y,i:integer;
    x,S:real;
begin
write('Vvedite x=');
readln(x);
write('Vvedite y=');
readln(y);
S:=1;
if y<0 then
  begin
    for i:=1 to -y do
    S:=S*x;
    S:=1/S;
  end
else
for i:=1 to y do
S:=S*x;
writeln('S=',S:3:3);
readln;
end.

Квадратное уравнение:

Program kvadratnoe_uravnenie;
var a,b,c,d,x,x1,x2,rex,imx:real;
begin
write('Vvedite a=');
readln(a);
write('Vvedite b=');
readln(b);
write('Vvedite c=');
readln(c);
if a=0 then
  if b=0 then
    if c=0 then
      begin
        writeln('x1 i x2 - lubie');
        readln;
      end
    else
      begin
        writeln('Net korney');
        readln;
      end
  else
    begin
    x:=(-c/b);
    writeln('x=',x:2:2);
    readln;
  end
else
  begin
    d:=b*b-4*a*c;
    if (d>=0) then
      begin
        x1:=(-b+sqrt(d))/(2*a);
        x2:=(-b-sqrt(d))/(2*a);
        writeln('x1=',x1:3:3);
        writeln('x2=',x2:3:3);
        readln;
      end
    else
      begin
        rex:=-b/(2*a);
        imx:=sqrt(-d)/(2*a);
        writeln('Komplexniy koren x1=',rex:3:3,'+i',imx:3:3);
        writeln('Komplexniy koren x2=',rex:3:3,'-i',imx:3:3);
        readln;
      end
  end;
end.

Ряд Тейлора Sin(x):

program sinx;
uses crt;
var x,e:extended;
function _sin(x,e:extended):extended;
var result,y,i,f,z:extended;
begin
result:=0;
y:=x;
f:=1;
z:=1;
i:=0;
while y/f>=e do
  begin
    result:=result+z*y/f;
    y:=y*x*x;
    i:=i+2;
    f:=f*(i+1)*i;
    z:=z*(-1);
  end;
  _sin:=result;
end;
begin
clrscr;
write('Vvedite x=');
readln(x);
write('Vvedite pogreshnost e=');
readln(e);
write('sin(',x:2:2,')=',_sin(x,e):1:5);
readln;
end.

Сколько раз не приносил преподавателю блок-схемы... Вечно ему что-то не нравится(((( Если уж форум называется "Помощь студентам", то может с Вашей помощью всё получится?))))) Буду ждать вариантов, спасибо за внимание).

[NSvirus]

Ну вот к примеру возведение в степень. Упрощенный вариант. Пусть придирается.

[k0tone]

спасибо, и этот вариант покажем!))) А на две другие программы идеи есть?

[NSvirus]

есть такая замечательная программа, называется: fceditor. Скачай и пользуйся.

[k0tone]

ещё раз спасибо!!! Скачал... сейчас вот пользуюсь. Тему можно закрывать))))

[vladislav656]

помогите составить алгоритм для вычисления суммы n*sin1/n

[Mad_Cat]

var n:byte;s:real;
begin
readln(n);s:=0;
for i:=1 to n do
s:=s+i*sin(1/i);
writeln(s);
end.