Алгоритм вычисления площади треугольника

Знания

Информатика

1 ответ:

Илянка4 года назад

0 0

var a,b,c,s,p:real;

begin

read(a,b,c);

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

write(s:0:2);

end.

Вроде так

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

Напишите программу, которая считывает с клавиатуры переменные данные a, b, c и вычисляет следующие выражения: При любых значения

Виктор000 [205]

В 3-ем может быть ошибка. У меня 2-ой месяц нет матана, так что извиняй если что =) А так сама программа составлена правильно

var
a, b, c, o1, o2, o3: real;

begin
writeln('Введите a,b и c через пробел');
readln(a, b, c);
o1 := sqrt(2 * a - 3) / b - 1 + sqrt(sqr(c) + a * c + sqr(a));
o2 := sqrt(2 + sqrt(2 + sqrt(b + sqrt(abs(c - a)))));
o3 := 1 / 1 + 1 / a + 1 - b / 1 - c;
writeln('a) ', o1);
writeln('b) ', o2);
writeln('c) ', o3);
end.

0 0

1 год назад

Помогите решить уравнение 8x(бит)=32(Мбайт)

dtirova

8x(бит)=32(Мбайт)
8x(бит)=32*1024*1024*8
8x(бит)=268435456 (бит)
x(бит)=268435456 / 8
x(бит)=33554432

0 0

4 года назад

СРОЧНО!напишите процедуру,которая принимает параметр-натуральное число N и выводит на экран квадрат из звездочек со стороной N

mariarti071

Procedure astSquare(n: integer);
var i, j: integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
write('*');
writeln();
end;
end;

{
Для теста:
begin
astSquare(4);
end.
Программа выведет 16 звёздочек:
****
****
****
****
}

0 0

4 года назад

Перевести числа в десятичную систему счисления. A8=341; A6=341; A16=341;A5=34,1

bogatir

А8=341=3*8^2+4*8^1+1*8^0=225
A6=341=3*6^2+4*6^1+1*6^0=133
A16=341=3*16^2+4*16^1+1*16^0=
A5=34,1=3*5^1+4*5^0+1*5^-1=
Последние две строчки сам посчитай.

0 0

4 года назад

Как эту формулу правильно записать в exel?

иринаиринааристова

=IF(B2>20000;B2*0.2;IF(B2<10000;B2*0.12;B2*0.15))
Если в ячейке B2 записан доход, то эта формула позволяет рассчитать налог

0 0

3 года назад