по паскалю

[Anatole]

Procedure WriteT(n:byte);
var i: byte;
Begin
for i :=n-2 downto 1 do
  Writeln('*',' ':i;'*');
  writeln ('**');
for i :=1 to n do
  Write('*');
writeln;
end;

Очищаеш экран и вызывай процедуру с необходимым параметром.
P.S. Хотя лезть со своей задачей в чужую тему некоректно.

[Corazon]

Кто-нибудь знает как обозначить синус угла между двумя сторонами?
Вот математическая формула: S= 1/2 a*b*sin(gamma)
А как это перевести в Паскаль??
Буду благодарен за помощь

[ROMA2PVT]

Да также и будет.

S:=1/2*c*d*sin(e);

где c,d-длина сторон а e-угол между ними.

[Corazon]

Спасибо большое
Правда всё равно не пашет что-то..

[ROMA2PVT]

чё найти то надо?

[Corazon]

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

[ROMA2PVT]

Что именно не вычисляет.Я ведь не телепат.

[Corazon]

Ну когда нажимаешь Run выдает: кол-во ошибок-2
Fatal: unable to open (и далее путь)
Fatal:Compilation aborted.

Если можно,напиши,что после begin в writeln записывается,может у меня там ошибка...
У меня написано: Program lr124;
var c,d,e,S,sin(e): integer;
begin
Writeln(' введите c,d,e');
readln (с,d,e);
Потом та формула,что вы мне писали
readln ('S:=', S);
end.

[ROMA2PVT]

Var
  s,a,b,c,alfa:real;
begin
write('Введите длину стороны А: ');
readln(a);
write('Введите длину стороны B: ');
readln(b);
write('Введите угол alfa между a и b: ');
readln(alfa);
alfa:=alfa*pi/180;
c:=sqrt(sqr(b)+sqr(a)-(2*a*b)*cos(alfa));
writeln('Третья сторона C:=',c:1:3);
S:=(a*b*sin(alfa))/2;
writeln('Площадь треугольника S:=',S:1:3);
end.

[Corazon]

Спасибо большое