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

[kris_kaif]

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

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

 

[Vladimir_S]

пожалуйста, помогите написать эту программу в 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.

 

[kris_kaif]

спасибо большое!!!!! прям огромное!!!!!

 

[Vladimir_S]

И да, можете "real" заменить на "single", коль им так хочется, хотя этот формат давным-давно не употребляется. Он был в своё время введен для очень слабых древних машин, когда приходилось экономить память. Сегодня употребление этого формата - полная дичь.