Найти площадь треугольника, его высоту, радиус вписанной и описанной окружности - Pascal (11622)

Формулировка задачи:

милые друзья, товарищи программисты помогите пожалуста с программами на поскале а то у самой затруднения вот и осталось одна тока надежда на вас милых . 3. Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоту, радиус вписанной и описанной окружности. 4. Написать программу, которая анализирует данные о возрасте I и относит человека к одной из четырех групп: дошкольник, ученик, работник, пенсионер. Возраст вводится с клавиатуры. 5. Имеется пронумерованный список деталей: 1) шуруп, гайка, 3) винт, 4) гвоздь, 5) болт. Составить программу, которая по номеру детали выводит на экран ее название. 6. Даны действительное число a и натуральное число n. Вычислить 7. Даны две матрицы А(nxn) и B(nxn), а также два вектора х = (x1, x2,..., xn) и y = (y1, y2, ..., yn). Написать программу нахождения скалярного произведения (Ах)*(Ву). 8. Даны длины сторон треугольника a, b, c. Найти медианы треугольника, сторонами которого являются медианы исходного треугольника. Для вычисления медианы проведенной к стороне а, использовать формулу Вычисление медианы оформить в виде процедуры. 9. Записать в файл последовательного доступа N действитель¬ных чисел. Выполнить следующие операции с созданным файлом: - Написать программу, которая ищет сумму квадратов чисел из файла, меньших заданного числа b; - Написать программу, которая заносит в файл q все компоненты исходного файла, которые делятся на 10; - Из исходного файла получить файл q, исключив повторные вхождения чисел. 10. Составить программу для вычисления значений функции f(х) на отрезке [а,Ь] с шагом h. Результат представить в виде таблицы, первый столбец которой - значение аргумента, второй - соответствующие значения функции. f(x)=l/2 sin (x/4)+l. зарание вам спасибки чмаффффффф=* К@ТюШк@ на форуме Пожаловаться на это сообщение Добавить отзыв для К@ТюШк@ Сказать спасибо за это полезное сообщение Ответить с цитированием

Решение задачи: «Найти площадь треугольника, его высоту, радиус вписанной и описанной окружности»

textual
                            Листинг программы 
                        

                            uses crt;
var x:byte;
begin
  clrscr;
  writeln('Vvedite nomer(1-5):');readln(x);
  if (x=1) then writeln('Shurup');
  if (x=2) then writeln('Gaika');
  if (x=3) then writeln('Wint');
  if (x=4) then writeln('Gwozd');
  if (x=5) then writeln('Bolt');
  if (x>5) then writeln('Chislo ne iz spiska!');
  readkey;
end.
                        