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

4 года назад

Напишите пожалуйста задачи в Паскалеz1 = 1 - (1/4 * sin(2a) ^ 2 + cos(2a)) z2 = cos(a) ^ 2 + cos(a) ^ 4

Знания

Информатика

1 ответ:

Oxanka4 года назад

0 0

Var a,r,y: real;
begin
readln(a);
r:= (1 - (1/4 * sqr(sin(2*a)) + cos(2*a)));
y:= sqr(cos(a)) + sqr(cos(a))*sqr(cos(a));
writeln(r,y);
<span>end.</span>

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

Задача по информатике олимпиада ПОМОГИТЕ ПОЖАЛУЙСТА Для того чтобы проверить, как её ученики умеют считать, Мария Ивановна кажды

Alien888

Program YaBidlo;

Var

i, A: longint;

u, j,

N, m : longint;

Function FDiv (A, left : LongInt) : LongInt;

var

i : longint;

begin

d := 1;

for i := left to Trunc (Sqrt (A)) do

if (A mod i = 0)

then

begin

d := i;

Break;

end;

if (d <> 1)

then

FDiv := d

else

FDiv := A;

end;

Function g (N, u : longint) : longint;

var

i : longint;

begin

i := 0;

while (N mod u = 0)

begin

Inc (i);

N := N div u;

end;

g := i;

end;

Begin

Assign (Input, 'input.txt');

Assign (Output, 'output.txt');

Reset (Input);

Read (A);

Close (Input);

m := 0;

N := 1;

i := FDiv (A, 2);

u := 2;

while (A > 1)

begin

N := N * i;

j := 0;

while (A mod i = 0)

begin

Inc (j);

A := A div i;

end;

if (j > m)

then

begin

m := j;

u := i;

end;

i := FDiv (A, i + 2);

end;

x := 1;

while (g (N * x, u) * N * x < m)

Inc (x);

N := N * x;

ReWrite (Output);

Write (N);

Close (Output);

End.

0 0

4 года назад

Что может быть табличным текстовым центральным

Kutcer

Процессор_____________________________________________________

0 0

4 года назад

Долгожитель (возраст не менее 100 лет) обнаружил однажды,что если к сумме квадратов цифр его возраста прибавить число дня его ро

CasperS

Он родился 27 числа и ему 109 лет
1^2=1+0^2=0+9^2=81
1+81+27=109

0 0

4 года назад

Как в программе Чертежник написать имя Ангелина

Святослав111

Может быть аккуратно у меня получилось очень легко с 150 раза

0 0

4 года назад

составить программу для вывода на экран значений кубов натуральных чисел от 1 до 20

tazikkk [235]

Var i,d:integer;
uses crt;
Begin
for i:=1 to 20 do begin
d:=sqr(i);
end;
readln;
end.

Не проверял, накидал на быструю руку, но должно работать.

0 0

3 года назад