Все категории

4 года назад

Y=10 sin (6x)+ 20 cos (12x)+20 sin (12x) программа в паскале! Помогите решить пожалуйста

Знания

Информатика

1 ответ:

TinkoffWallet4 года назад

0 0

Var
X:real;
Begin
Write('X = ');Read(X);
Write('Y = ',10*Sin(6*X)+20*Cos(12*X)+20*Sin(12*X));
End.

Читайте также

Дано натуральное число Х. Вычислить Y = 1 - 2X + 3X2(в квадрате) - 4X3(в третьей степени). Разрешается использовать не более 8 а

Денис колме [40]

Var
    step: array[1..8] of real;
    i, x: integer;

begin
    readln(x);

    step[1] := 1 - x;
    step[2] := step[1] * step[1];
    step[3] := step[2] * step[1];
    step[4] := 3 * x;
    step[5] := step[4] * x;
    step[6] := 1 - step[5];
    step[7] := step[6] * x;
    step[8] := step[3] + step[7];

    for i := 1 to 8 do
        write(step[i], ' ');
end.

0 0

4 года назад

Помогитеvar k,s :integer;begins:=0k:=0while k <30 do begink:=k+3;s:=s+k;end;write(s);end.

Антон100

А с чем помочь-то надо?

0 0

4 года назад

Информатика. Уравнение. Паскаль

Анастасия1114

Ответ:

Объяснение:

1) Без составных условий.

program abc;

var x,y,v:real;

begin

readln(x,y);

if (x>1) then

begin

if (y>1) then

v:=x+y

else

v:=x-y;

end

else begin

if (y>1) then

v:=-x+y

else

v:=-x-y;

end;

writeln(v);

end.

2) С составным.

program abc;

var x,y,v:real;

begin

readln(x,y);

if (x>1) and (y>1) then

v:=x+y;

if (x>1) and (y<=1) then

v:=x-y;

if (x<=1) and (y<=1) then

v:=-x-y;

if (x<=1) and (y>1) then

v:=-x+y;

writeln(v);

end.

0 0

4 года назад

Помогите написать программу в Pascal

Елена Сергеевна

Ответ предоставлен в файле для лучшей читаемости кода.

0 0

2 года назад

Определите команды, относящиеся к категории "внешность"

Нескажу надо как [7]

Ответ:

Команда говорить и изменить размер

0 0

4 года назад