Programalama > PASCAL

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