Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 1 лаб. Арифметические операции / labrab04
.pas program labrab04;
uses crt;
var a,b,y,h,S: real;
begin
clrscr;
writeln(' Введите первую сторону ');
readln(a);
writeln(' Введите вторую сторону ');
readln(b);
writeln(' Введите угол между ними');
readln(y);
h:=b*sin(y*180/pi);
S:=a*h/2;
writeln(' Площадь треугольника = ', S:5:2);
readln;
end.
uses crt;
var a,b,y,h,S: real;
begin
clrscr;
writeln(' Введите первую сторону ');
readln(a);
writeln(' Введите вторую сторону ');
readln(b);
writeln(' Введите угол между ними');
readln(y);
h:=b*sin(y*180/pi);
S:=a*h/2;
writeln(' Площадь треугольника = ', S:5:2);
readln;
end.
Соседние файлы в папке 1 лаб. Арифметические операции