Дані сторони трьох трикутників. Визначити їх площу. Скористатися підпрограмою типу функції.

Ось програма, та є правило - тобі одну, ти три іншим. Тобто на одну написану тобі програму (алгоритм), ти маєш написати безкоштовно по програмі (алгоритму) трьом іншим відвідувачам форуму. Не хо писати для інших - маєш два варіанти: більше не з'являтися на форумі чи надіслати мені гроші (50 грн.). Вибір за тобою.

{
   Anya1.pas
   
   Copyright 2013 Koala
   
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.
   
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
   
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
   MA 02110-1301, USA.
   
   
}

program Anya;

function Area(a,b,c:real);
var p:real;
begin
  if (a>0)and(b>0)and(c>0)and(a<b+c)and(a>abs(b-c) then begin
    p:=(a+b+c)/2;
    Area:=sqrt(p*(p-a)*(p-b)*(p-c));{http://uk.wikipedia.org/wiki/Формула_Герона}
  end
  else Area:=0;
end;

var i,a,b,c:real;

begin
  for i:=1 to 3 do begin
    writeln('Input the sides of the ',i,' triangle, separated with spaces:');
    read(a,b,c);
    if Area(a,b,c)>0 then writeln('Area is ',Area(a,b,c));
    else writeln('Such triangle can't exist!');
  end;
end.

Зверніть увагу, форум програмістів Replace.org.ua некомерційний ресурс. Ми нічого не продаємо, реклами теж немає і не планується. Проект створений за рахунок власних зусиль та коштів з метою покращення якості українського інтернету