Program rysujący trójkąt równoramienny

Rysowanie trójkąta równoramiennego

Program rysujący trójkąt równoramienny, po podaniu jego wysokości. Pętla zagnieżdżona w pętli. Program zawiera również zabezpieczenie przed wpisaniem niepoprawnej wartości.

program trójkat;
Uses CRT;
var x,y,i,j,a,r:byte; h:longint;
begin
x:=40;
y:=1;
r:=1;
writeln('Rysuj trojkat ver 0.1 FINAL');
write('Podaj wysokość trójkąta(Mniej niż 25): ');
readln(h);
if(h>25) then
begin
repeat
write('Podaj poprawną warto˜ść: ');
   readln(h);
until h<25;
end;
Clrscr;
a:=h*2+1;
for i:=1 to h do
begin
GotoXY(x,y);
   for j:=1 to r do
        begin

             write('*');

        end;
           r:=r+2;
           y:=y+1;
           x:=x-1;
end;
readln;
end.

Uses crt; nie jest wymagane.

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.