1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

  1. advokat92

    advokat92 Гость

    Репутация:
    0
    Заданы стороны двух треугольников АВС (стороны а, в, с) и 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 :-]

    Репутация:
    0
    Регистрация:
    9 ноя 2009
    Сообщения:
    665
    Симпатии:
    1
    :happy:
    Код:
    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.103
  2. swyatogor
    Ответов:
    9
    Просмотров:
    639
  3. KiR
    Ответов:
    3
    Просмотров:
    2.617
  4. GROMILA
    Ответов:
    0
    Просмотров:
    2.236

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