ПАСКАЛь... экзамен в среду...2 задачи не решеныюпомогите кто сможет

[AVer]

ABC это A*B*C?

[Baby2]

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

[Baby2]

da написано так (ABC)///
я так решала
uses crt;
var
A,B,C:integer;Y:real;
begin
clrscr;
for A:=0 to 5 do
........
........
begin
Y:=sin(A*B*C);
if Y>Ymax
then
Y max:=Y;
end;
writeln ('Ymax');
readkey;
end.
не знаю есть ли в этом доля правды

[AVer]

Все абсолютно верно, только не объявлена переменная Ymax. Вот полный код:

Const N = 5;
Var A,B,C:Integer;
    Ym,Y:Real;
Begin
For A:=0 to N do
For B:=0 to N do
For C:=0 to N do
Begin
Y:=Sin(A*B*C);
If Y > Ym Then Ym:=Y;
End;
WriteLn(Ym:4:5);
ReadLn;
End.

[Baby2]

спасибо огромное.....завтра если что обращусь вечером еще..... :-))) спасибо

[Virtson]

аргумент:
0..125
градусы или радианы ?

[ ответ един : 1 ]

[AVer]

Радианы. Паскаль только в них и считает...