Pascal - Procedury i funkcje

Rodzaj trójkąta

Rodzaj trójkąta
Pascal - Procedury i funkcje

Program: badający typ trójkąta. (różnoboczny, równoboczny, równoramienny)

Program mierzy długości jak i współrzędne pomiędzy wprowadzonymi punktami, a następnie oblicza pole i wyznacza typ trójkąta.

Plik wymagany plik do poprawnego działania programu (Po ściągnięciu należy zmienić nazwę na „trojkat.tpu”)

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program trojkaty;
uses crt,trojkat;
var
 x1,x2,x3,y1,y2,y3 : integer;
  a, b,c : real;
   tr: boolean;
   typ:String;
begin
clrscr;
 tr:=true;
  typ:='brak';
  write('Podaj wartosci wspolrzedniej punktu 1: ');
  read(x1);
  readln(y1);
  write('Podaj wartosci wspolrzedniej punktu 2: ');
   read(x2);
  readln(y2);
  write('Podaj wartosci wspolrzedniej punktu 3: ');
   read(x3);
  readln(y3);
      a:=odcinek(x1, y1, x2, y2);
      b:=odcinek(x2, y2, x3, y3);
      c:=odcinek(x1, y1, x3, y3);
  troj(a,b,c,tr,typ);
   if tr=true then
    write('Jest to trojkat '+typ+' o polu rownym ',pole(a,b,c):11:3)
    else write('Te punkty nie moga byc wierzcholkami trojkata');
    readln;
    end.