Pascal Örnekleri 01(Üçgen kontrolü)

Yazan: karflake | Tarih

24 Ekim 2007 | Yorum

Yorum Yok

Henüz puan verilmemiş

Loading ...

Aşağıdaki program, girilen üç kenarın bir üçgen oluşturup oluşturmayacağını, kenarlar üçgen oluşturuyorsa bu üçgenin çeşidini ekrana yazar.

PLAIN TEXT

DELPHI:

uses crt;
var
 k1, k2, k3: integer;
begin
 clrscr;
 writeln('Üç kenar giriniz');
 readln(k1, k2, k3);
 if (k1 &lt;&gt; k2 - k3)
   and (k2 &lt;&gt; k1 - k3)
   and (k3 &lt;&gt; k1 - k2) then
 begin
   writeln('Üçgen olur');
   if (k1 = k2) and (k2 = k3) and (k1 = k3) then
     writeln('Eşkenar Üçgen ');
   if (k1 = k2) or (k1 = k3) or (k2 = k3) then
     writeln('İkizkenar Üçgen ');
   if (k1 &lt;&gt; k2) and (k1 &lt;&gt; k3) and (k2 &lt;&gt; k3) then
   begin
     writeln('Çeşitkenar Üçgen ');
     if (sqr(k1) = sqr(k2) + sqr(k3)) or (sqr(k2) = sqr(k1) + sqr(k3)) or (sqr(k3) = sqr(k2) + sqr(k1)) then
       writeln('çeşitkenar dik üçgen');
   end;
 end
 else
   writeln('Üçgen olmaz');
 readln;
end.