[Pascal] Pętle

0

Znam podstawowe rzeczy w turbo pascalu, ale nie umiem zbytnio zagrniezdzac roznych rzeczy i prosze, zeby ktos napisal mi source takiego programu:

  • Wykonuje proste obliczenia np, podaj a i b, a potem wyświetla wynik i za każdym razem po obliczeniu wyskakuje ci pytanie czy chcesz liczyć jeszcze raz, jak wpiszesz t to robi się petla i tak w kółko, a jak n to kończy się działanie programu

z góry dzięki

0
program promax;
var a,b:integer;
wpis:string;
koniec:boolean;
begin
koniec:=false;
repeat

writeln('Podaj a:');
readln(a);
writeln('Podaj b:');
readln(b);
writeln(a+b);

writeln('Jeszcze raz? t/n');
readln(wpis);
if wpis='t' then koniec:=false
else if wpis='n' then koniec:=true;

until koniec=true;
end.
0

dzieki [green] o to mi chodziło
[soczek]

1 użytkowników online, w tym zalogowanych: 0, gości: 1