Programalama > PASCAL

Etiketler: asgari, geçim, indirimi

Ort. 5
Puan ver:
program asgari_gecim_indiri;
uses crt;
const
     s_oran = 50;
var
   med,es : char;
   cocuk  : 1..15;
   oran   : real;
begin
     {$R+}
     clrscr;
     write('Evlimisin bekarmsn? (e yada h ) > ');
     readln(med);
     writeln;
     if med in ['H','h'] then
        begin
             write('Asgari ge‡im indirim orannz ', s_oran);
        end
     else
        begin
             write('EŸiniz ç‡alŸyor mu? (e yada h )  > ');
             readln(es);
             writeln;
             if es in ['h','H'] then
                begin
                     oran := oran + s_oran + 10;
                end
             else
                begin
                     oran :=  s_oran;
                end;
             write('ka‡ co‡uk var? > ');
             readln(cocuk);
             case cocuk of
                  0 : oran := oran + 0;
                  1 : oran := oran + 7.5;
                  2 : oran := oran + 15;
                  3 : oran := oran + 20;
                  4..15 : oran := oran + 25;
             end;
             writeln;
             write('Asgari ge‡im indirim orannz= ',oran:0:2, ' dir.');
        end;
     readln;
end.





fatih yörük
mesudiye_052@hotmail.com


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.