Нахождение площади труегольника: 1. формула площади треугольника по стороне и высоте s = 1a · h22.нахождение площади трекгольника по всем сторонам(формула герона)√s = √ p(p - a)(p - b)(p - c)(все под корнем идет)3.формла площади трекгольника по 2-ум сторонам и углу между ними s = 1a · b · sin γ24.формула нахождения площади трегольника по трем сторонам и радиусу описанной окружности s = a · b · с/4r5.формула площади трекгольника по трем сторонам и радиусу вписанной окружности s = p· rнахождение площади прямоугольника: 1.нахождение площади прямоугольника(одну сторону умножаем на другую,то есть ту которая длинная и которая короткая друг на друга) s = a · bнахождение площади паралелограма: 1.формула площади параллелограмма по длине стороны и высоте s = a · h2.формула площади параллелограмма по двум сторонам и углу между ними s = a · b · sin αобращайся!
Спасибо
Ответ дал: Гость
program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.
writeln('indexi elementov kotorie bolshe prediduschego: ');
writeln;
for i: =2 to 10 do begin
if a[i]> a[i-1] then write(i,', ');
end;
for i: =2 to 10 do begin
if ((a[i]> =0) and (a[i-1]> =0)) or ((a[i]< 0) and (a[i-1]< 0)) then p: =p+1;
end;
writeln;
if p> 0 then writeln('masiv imeet pari sosednih elementov s odnakovimi znakami') else writeln('masiv ne imeet pari sosednih elementov s odnakovimi znakami');
Популярные вопросы