Klavyeden girilen dört kenara göre dikdörtgen mi? Kare mi? Paralel kenar mı? Yam

tarantula90115.11.2008 - 21:35
Klavyeden girilen dört kenara göre dikdörtgen mi? Kare mi? Paralel kenar mı? Yamuk mu? olduğunu bulan program.


Kod: [Seç]
uses crt;
var
a,b,c,d,aci:integer;
begin
write(‘birinci kenarı giriniz:’);readln(a);
write(‘ikinci kenarı giriniz:’);readln(b);
write(‘üçüncü kenarı giriniz:’);readln(c);
write(‘dördüncü kenarı giriniz:’);readln(d);
if (a=b) and (b=c) and (c=d) then
writeln(‘kare’)
else if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then
writeln(‘yamuk’)


else if (a=c) and (b=d) then
begin
writeln(‘bu dikdörtgen yada paralel kenar olabilir bir iç açı giriniz:’);
readln(aci);
if (aci=90) then
writeln(‘dikdörtgen’)
else
writeln(‘paralel kenardır’);end
else
write(‘öyle bir dörtgen yoktur’);
readln;  end.


Linkback: https://www.buyuknet.com/klavyeden-girilen-dort-kenara-gore-dikdortgen-mi-kare-mi-paralel-kenar-mi-yam-t8227.0.html

Etiket:

Bu bilgi size yardimci oldu mu?

EvetHayır
Klavyeden girilen dört kenara göre dikdörtgen mi? Kare mi? Paralel kenar mı? Yam
Klavyeden girilen dört kenara göre dikdörtgen mi? Kare mi? Paralel kenar mı? Yam
(Ortalama: 5 üzerinden 2.5 - 2 Oy)
2