Технический форум - Помогите, пожалуйста, написать программу

Цитата:

Сообщение от kris_kaif (Сообщение 1035150)

пожалуйста, помогите написать эту программу в Pascal

Так, ну, похоже, весь семестр был "kaif", а теперь преподы обломали. Ладно, помогу.
Но уж всякие там рюшечки-окошечки-заголовочки и прочее делайте сами. Еще можете просветить ваших дремучих преподов, что число π задается в Паскале стандартной функцией Pi и не нуждается в вычислении через жо арктангенс.

Код:

Var

 y,a,b,c,gamma,g_gamma,m_gamma:real;

 yn:Char;

Begin

 yn:='R';

 Repeat

  If yn='R' then

   begin

    a:=2.08;

    b:=-0.0805;

    c:=0.681;

    g_gamma:=17;

    m_gamma:=36;

    Writeln('a = 2.08');

    Writeln('b = -0.0805');

    Writeln('c = 0.681');

    Writeln('gamma (degrees) = 17');

    Writeln('gamma (minutes) = 36');

   end

  else

   begin

    Write('a = ');

    Readln(a);

    Write('b = ');

    Readln(b);

    Write('c = ');

    Readln(c);

    Write('gamma (degrees) = ');

    Readln(g_gamma);

    Write('gamma (minutes) = ');

    Readln(m_gamma);

   end;

  g_gamma:=g_gamma+m_gamma/60;

  gamma:=g_gamma*Pi/180;

  y:=Arctan(Abs((a-b*b)/c))+Sqrt(Abs(2.0*Sqr(Sin(gamma*2))/c-1));

  writeln('Result: y = ',y:8:6);

  Write('Continue? (y/n) ');

  Readln(yn);

 Until (yn='n') or (yn='N');

End.