Найти площадь треугольника по заданным двум сторонам и углу между ними.

@1236554 · Регистрация: 27.03.2012

Author24 — интернет-сервис помощи студентам

Предоставить возможность ввода угла в радианах или в градусах. Замечание: функция sin, встроенная в среду программирования СИ работает только с радианной мерой угла.

@Puporev · 28.03.2012, 08:46

Сообщение от 1236554

встроенная в среду программирования СИ

При чем здесь СИ?

Добавлено через 15 минут

Pascal

uses crt;
var a,b,u,s:real;
    w:char;
begin
clrscr;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-Ввести угол в радианах');
writeln('2-Ввыести угол в градусах');
writeln('Другое - выход');
readln(w);
if w in ['1','2'] then
 begin
  writeln('Введите длины смежных сторон:');
  readln(a,b);
 end;
case w of
'1':begin
    repeat
    write('Введите угол в радианах 0<u<',pi:0:3,' u=');
    readln(u);
    until (u>0)and(u<pi);
    end;
'2':begin
    repeat
    write('Введите угол в градусах 0<u<180 u=');
    readln(u);
    until (u>0)and(u<180);
    u:=u*pi/180;
    end;
else exit;
end;
s:=0.5*a*b*sin(u);
write('Площадь=',s:0:2);
readln
until not (w in ['1','2']);
end.

@1236554 0 / 0 / 0 Регистрация: 27.03.2012 Сообщений: 7
		1
	Найти площадь треугольника по заданным двум сторонам и углу между ними. 27.03.2012, 23:33. Показов 5280. Ответов 1 Метки нет (Все метки) Предоставить возможность ввода угла в радианах или в градусах. Замечание: функция sin, встроенная в среду программирования СИ работает только с радианной мерой угла. 0

	28.03.2012, 08:46

Опции темы

Найти площадь треугольника по заданным двум сторонам и углу между ними.

Решение