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