Предмет: Информатика,
автор: vlad027
Сделайте пожалуйста данную задачу для программы Паскаль ABC:
Дано гипотенузу и катет прямоугольного треугольника. Найтдите второй катет и площадь вписанного круга.
Ответы
Автор ответа:
0
program name;
const:pi=3.14;
var:a,b,c;s;r:integer;
begin
writeln('Длина катета?');
readln(a);
writeln('Длина гипотенузы?');
readln(c);
b:=sqrt(sqr(c)-sqr(a));
r:=(a+b-c)/2;
s:=pi*(sqr(r));
Writeln('Второй катет',b);
Writeln('Радиус вписанного круга',r);
Writeln('Площадь вписанного круга',s);
end.
Вроде так
const:pi=3.14;
var:a,b,c;s;r:integer;
begin
writeln('Длина катета?');
readln(a);
writeln('Длина гипотенузы?');
readln(c);
b:=sqrt(sqr(c)-sqr(a));
r:=(a+b-c)/2;
s:=pi*(sqr(r));
Writeln('Второй катет',b);
Writeln('Радиус вписанного круга',r);
Writeln('Площадь вписанного круга',s);
end.
Вроде так
Автор ответа:
0
Есть некоторые ошибки, но исправив их задача заработала. БЛАГОДАРЮ!
Автор ответа:
0
Ну я в принципе знал, что где то не хватает какого то знака или что то подобное. Давно не писал ничего уже)
Похожие вопросы
Предмет: Физкультура и спорт,
автор: sashaalexeeva8
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: Аноним
Предмет: Литература,
автор: olgakalyakulin