[Pascal] Pętle

Odpowiedz Nowy wątek
fgtyutry
2005-05-28 23:00
fgtyutry
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

Pozostało 580 znaków

2005-05-28 23:30

Rejestracja: 14 lat temu

Ostatnio: 14 lat temu

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.

Pozostało 580 znaków

ertertertre
2005-05-29 11:14
ertertertre
0

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

Pozostało 580 znaków

Odpowiedz

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