Program symujący bankomat w języku pascal

Program udający bankomat można wpłacać, wypłacać on zapisuje oraz pobiera informacje do pliku o naszej zdolności kredytowej.

Bankomat napisany w języku pascal. Pieniądze, które wpłacamy bądź wypłacamy zapisywane są w pliku tekstowym. Jest to prosty program symulujący bankomat.

Pascal bankomat

program bankomat;
uses crt;
var plik:text;
    wkasa,kasa,chkwota:integer;
    wyb,koniec:char;

begin
    Assign(plik,'kasa.txt');
    reset(plik);
    readln(plik,kasa);
    wkasa:=kasa;
    close(plik);
    repeat
writeln('----------- BANKO-MAT -----------');
writeln('Na twoim koncie znajduje się: ',kasa,' pln.');
writeln('Klikając 0 wracasz do menu gˆłównego!');
writeln('Debet wynosi 300zˆł');
writeln('a)Wypłˆać pieniądze');
writeln('b)Wpˆłać pieniądze');
writeln('c)Rezygnuje z transakcji');
wyb:=readkey;
if kasa>-300 then
begin
if wyb='a' then
  begin
    writeln('-------- Jaką kwotę chcesz wypłˆacić --------');
    writeln('1) 20zˆ             2) 50zˆ');
    writeln('3) 100zˆ            4) 200zˆ');
    writeln('5) Wybiorę(ręcznie) 0) anuluj ');
    wyb:=readkey;
        case wyb of
        '1': kasa:=kasa-20;
        '2': kasa:=kasa-50;
        '3': kasa:=kasa-100;
        '4': kasa:=kasa-200;
        '5': begin
        write('Podaj kwotę:');
        readln(chkwota);
        kasa:=kasa-chkwota;
        end;
    end;
  end;
end
else writeln('Ta usˆługa jest nieaktywna nie masz wystarczających ˜środków na koncie!');
  if wyb='b' then
  begin
    writeln('-------- Jaką kwotę chcesz wpˆłacić --------');
    writeln('1) 20zˆ             2) 50zˆ');
    writeln('3) 100zˆ            4) 200zˆ');
    writeln('5) Wybiorę(ręcznie) 0) anuluj ');
    wyb:=readkey;
        case wyb of
        '1': kasa:=kasa+20;
        '2': kasa:=kasa+50;
        '3': kasa:=kasa+100;
        '4': kasa:=kasa+200;
        '5': begin
        write('Podaj kwotę:');
        readln(chkwota);
        kasa:=kasa+chkwota;
        end;
    end;
  end;
  if(wkasa<>kasa) then
        begin
        writeln('Transakcja przebiegˆła pomy˜ślnie! Dziękujemy za korzystanie z naszych usˆług!');
        rewrite(plik);
        writeln(plik,kasa);
        close(plik);
       end;
       writeln('Czy chcesz skorzystać ponownie? t/n');
       koniec:=readkey;
       if(koniec='t') then wyb:='0';
         until wyb<>'0';
         writeln('Dziękujemy za korzystanie z naszych usłˆug!');
  readln;
end.

Ważne – Pascal Bankomat

Aby, program działał poprawnie wymagane jest utworzenie pliku, kasa.txt w folderze w którym znajduje się program, w nim zapisywane będą nasze fundusze.