Programalama > PASCAL

Etiketler: asgari, geçim, indirimi

Ort. 0
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);
     end;
     readln;
end.



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 - 2019 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.