İdeal Kilo Ölçer

'Programlama' forumunda ...... tarafından 7 Ağu 2009 tarihinde açılan konu

Konu etiketleri:
  1. ......

    ...... Misafir

    bay ve bayanlar için farklı arkın ideal kılo hesaplıyor boy ve kılonuzu soyledıgınızde ideal kılonuzu hesaplıyor.


    Kod:
    uses crt;
    var
       kilo,boy,fark,ideal:integer;
       cinsiyet:char;
    Begin
         repeat
         clrscr;
         write('Cinsiyet(B/E).......:');readln(cinsiyet);
         Until cinsiyet In ['B','E'];
         write('Kilo...............:');readln(kilo);
         write('Boy................:');readln(boy);
         If (cinsiyet='B') then  ideal:=boy-110
                           else  ideal:=boy-108;
         If ideal<kilo Then
            writeln(kilo-ideal,' Kilo vermelisiniz !')
            Else
                If ideal>kilo then
                   writeln(ideal-kilo,' kilo almalisiniz ! ')
                   else writeln(' Bravo... ideal kilodasiniz');
                   writeln;
                   writeln;
                   textcolor(4);
                   write('Gop šnv Bilg. ™grencisi Sezer ALTUN Tarafindan yapilmistir.');
                   readln;
    end.
     

Bu Sayfayı Paylaş