Составить программу для нахождения площади ромба по стороне а и острому углу f (угол предварительно переведите в радианы t = f · 3,14 : 180) по формуле s = a 2 sin t
288
323
Ответы на вопрос:
Var a, f, t, s: real; begin write('введите длину стороны ромба: '); readln(a); write('введите величину острого угла ромба в градусах: '); readln(f); t : = f * pi / 180; s : = sqr(a) * sin(t); writeln('площадь ромба равна ', s, ' кв.ед.') end. тестовое решение: введите длину стороны ромба: 14.3 введите величину острого угла ромба в градусах: 58.7 площадь ромба равна 174.728286173858 кв.ед.
Var i,j,j3,k,k3,n: longint; c: real; begin // константа, 1/корень кубический из двух c: =1.0/power(2,1.0/3.0); writeln('n=? '); readln(n); // основной цикл, пробуем разбивать i на сумму кубов for i: =1 to n do begin // первое число, от 1 до корня кубического из (i/2) for j: =1 to floor(power(i,1.0/3.0)*c) do begin // куб первого числа j3: =j*j*j; // куб второго числа, или не куб, позже проверим k3: =i-j3; // само второе число k: =round(power(k3,1.0/3.0)); // проверка, является ли k3 кубическим if ((k3 = k*k*k) and (k> 0)) then // да, к3 - куб : ) writeln('i=',i,' j=',j,' k=',k); end; end; end.
Популярно: Информатика
-
fedarmo18.02.2021 22:16
-
BamakoProfile30.12.2021 04:09
-
n4rut01604.01.2020 10:53
-
SattorovaSonya10.10.2020 16:13
-
olgabelova5148725.03.2022 17:59
-
АлинаПетрищева16.08.2022 15:49
-
LeylaAllesgerova26.08.2020 07:35
-
Ekaterina888703.01.2022 03:49
-
33305070829.10.2021 23:31
-
Arianalike30.07.2022 02:14