Найти ошибки в программе, составить блок-схему алгоритма, Паскаль

[Asix]

У нас таких как ты по 20 человек в сутки.
Станешь тут принципиальным =))

[Asix]

К сожалению сам я тут помочь не могу, но вот предлагаю модераторм данного раздела рассмотреть такое предложение.

ТС помогает нескольким другим людям в других разделах форума, в тех темах, в которых он силен и модераторы данного раздела помогают ему с его задачами.

Мне кажется логичным бартером. Для ТС это выгодно, а вот на счет моераторов не уверен так что решать именно им =))

[InfStudent]

Ну что ж можно))А так Asix  прав, просто сил на всех не хватает))

[Murmansk]

Я вас прекрасно понимаю ребята, что таких халявщиков много... Но у меня нет другого выхода... И ещё, ТС это что? или кто?

[InfStudent]

Но только не раньше понедельника

[Murmansk]

Ок!!! Значит до понедельника))))

[Asix]

Murmansk, ТС - топик стартер - то есть это Вы =))
Я думаю, что InfStudent имел ввиду, не то, что решить к понедельнику, а будет готов к бартеру к понедельнику =))

[InfStudent]

Вот это точнее))

[Murmansk]

Ну вот и понедельник)))

[Asix]

Murmansk, от Вас не поступило в других разделах форума никакой помощи.

Вы внимательно прочитали мое предложение в прошлых сообщениях ?? =))

[Murmansk]

Ааааа, вот теперь я понял, что от меня хотят)))

[InfStudent]

Нет работа то над вашей проблемой уже идет, но и от вас ждем рез-татов

[InfStudent]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
  i,n:integer;
  r,a:real;
  begin
  a:=0.3;
  n:=10;
 for I := 1 to 10 do
 begin
  r:=(i*i+1)/n;
   if sin(r)<0 then
    begin
     r:=a*sin(r);
     writeln(r:3:2);
    end
    else
    begin
    r:=i+1/n;
      r:=a*cos(r);
      writeln(r:3:2);
    end;
 end;
 readln;
  end.
Все теперь ваша очередь.И как говорится в таких случаях: администрация форума ни его модераторы ответственности за возможный ущерб ответственности  не несут) Единственное что замените uses SysUtils; на uses crt;