Найти второй катет и радиус вписанной в треугольник окружности - Turbo Pascal

  1. Даны гипотенуза и катет прямоугольного треугольника. Найти второй катет и радиус вписанной окружности a=6 b=10


textual

Код:

Program Hip;
Const a=6;
b=10;
var c,r:real;
begin
c:=sqrt(sqr(b)-sqr(a)));
r:=(a+c-b)/2;
writeln ('c=',c:0:2,' r=',r:0:2);
readln;
end.


Похожие ответы
  1. Дана прямоугольная матрица A(n*m). Заменить наименьший элемент каждой строки, начиная со второй, наибольшим элементом предыдущей строки.

  1. Программа должна определять максимальный и второй по величине элементы в каждом столбце массива A(3,5) и менять их местами, но правильно меняется только первый столбец.

  1. Создать типизированный файл из целых чисел в диапазоне [-20,20]. Записать во второй файл только отрицательные четные элементы первого файла. Выполнить построчный вывод файлов на экран.

  1. дана срока, состоящая из букв и цифр, и строка из цифр и других знаков. Получить новую строку из символов первой строки, которых нет во второй. Для решения использовать структуру – множество. помогите пожалуйста

  1. Дано массив r(8,8) .найти произведение негативных чисел строки у которого второй Елемент не парный Заранее спасибо Паскаль

  1. Создать файл произвольных символов (символы вводятся с клавиатуры). Удалить из файла каждый второй символ. Вывести на экран начальный и конечный содержимое файла.

  1. Вводятся 2 строки. Определить, каких гласных латинских букв нет ни в первой, ни во второй строках.

  1. Если я правильно помню, в паскале в одной процедуре можно вызывать другую, если эта другая описана выше. А как сделать, если мне нужно в первой процедуре вызвать вторую, а во второй - первую?

  1. Заданы достоинства и масти шести шести карт первого игрока, достоинства и масти шести карт второго игрока, кроме того, известна козырная масть. Вводится номер карты, с которой делает ход первый игрок, требуется составить программу определяющую сможет ли второй игрок побить эту карту.

  1. Даны две строки. Получить строку, в которой чередуются слова первой и второй строки. Если в одной из строк число слов больше, чем в другой, то оставшиеся слова зтой строки должны быть дописаны в строку-результат.