Помогите пожалуйста!!! надо написать эту формулу в паскаль!!! v=pb^3 ctg z/2 tgL это числитель /8sin^2 * z/2 знаменатель

Знания

Информатика

1 ответ:

Вероника Захарченко4 года назад

0 0

Var b,beta,l,br,lr,v:real;
begin
readln(b,l,beta);
br:=(beta*pi/180)/2;
lr:=(l*pi/180);
v:=(pi*b*b*b*(cos(br)/sin(br))*(sin(lr)/cos(lr)))/(8*sqr(sin(br)));
writeln(v:7:2);
end.

Пример:
24 26 37
78596.40

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

Var mas: array [1..10] of integer; k,i:integer; begin for i:=1 to 10 do k:=0; readln(a[i]); k:=k+a[i]; writeln(a[i] '+'); write(

зазнайка

Var mas: array [1..10] of integer;
k,i:integer;
begin
for i:=1 to 10 do
k:=0;
readln(mas[i]);
k:=k+mas[i];
writeln(mas[i] ,'+');
write(k);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите номер 4) 10 букв

Supp

Вообще это почта(5букв)
может не 10,а 5?????

0 0

4 года назад

Помогите пожалуйста! задача 3.

Дмитрий И

2)
const
n = 20;
var
a : array [1..n] of integer;
b,i,num : integer;

begin
//Формирование массива пропускаю
readln (b);
nom := 0;
for i := 1 to n do //Поиск номера элемента
if a[i] = b then // , равного b
num := i;
if num <> 0 then
writeln ('Есть, его порядковый номер=',num)
else
writeln ('Нет');
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Дано действительное число а.Вычислить выражение (а-2)(а-4)(а-8)...(а-64):(а-1)(а-3)(а-7)...(а-63)

марияя [2]

Program tet;
var i:byte;
a,s1,s2,s3:real;
beginwriteln(' введите значение а');readln(a);s1:=1;s2:=1;for i:=1 to 64 do if i mod 2=1 then s2:=s2*(a-i) else s1:=s1*(a-i);s3:=s2/s1;writeln(s3);end.

0 0

4 года назад

Перевести из десятичной в восьмеричную систему счисления числа 168 241

vasw [50]

168 в 10 = 250 в 8
241 в 10 = 361 в 8

0 0

4 года назад

Помогите пожалуйста!!! надо написать эту формулу в паскаль!!! v=pb^3 *ctg z/2 * tgL это числитель /8sin^2 * z/2 знаменатель

Помогите пожалуйста!!! надо написать эту формулу в паскаль!!! v=pb^3 ctg z/2 tgL это числитель /8sin^2 * z/2 знаменатель