Подпрограмма процедура

Тема в разделе "Pascal and Delphi", создана пользователем advokat92, 25 ноя 2010.

  1. advokat92

    advokat92 Гость

    Заданы стороны двух треугольников АВС (стороны а, в, с) и DEF (сто-роны d, e, f). Найти сумму и разность площадей треугольников АВС DEF. Площадь треугольника NKM со сторонами n, k, m
    вычисляется по формуле: W=sqrt(r*(r-n)*(r-k)*(r-m))
    r - полупериметр треугольника NKM. Исходные данные: а=3; b=2,5; c=1,7; d=2; e=7,8; f=7
    Используя подпрограмму- процедуру.
     
  2. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    :happy:
    Код (Text):
    procedure get_S(a,b,s:real; var S:real):real;
    var p:real;
    begin
    p:=(a+b+c)/2;
    S:=sqrt(p*(p-a)*(p-b)*(p-c));
    end;

    procedure get_P(a,b,s:real; var P:real):real;
    begin
    P:=(a+b+c);
    end;
     
Загрузка...
Похожие Темы - Подпрограмма процедура
  1. wowa
    Ответов:
    6
    Просмотров:
    3.061
  2. swyatogor
    Ответов:
    9
    Просмотров:
    560
  3. KiR
    Ответов:
    3
    Просмотров:
    2.571
  4. GROMILA
    Ответов:
    0
    Просмотров:
    2.185

Поделиться этой страницей