program kalkulator; uses crt; var a:real; b:real; wybierz:char; begin clrscr; writeln('costam.'); read(wybierz); writeln('Podaj 1 liczbe'); read(a); writeln('Podaj 2 liczbe'); read(<img src='https://amxx.pl/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='B)' />; writeln; case wybierz of '1' : writeln ('Wynik wynosi: ',a+b:2:0); '2' : writeln ('Wynik wynosi: ',a-b:2:0); else writeln('Nie mozna wykonac dzialania!'); writeln('costam'); end; writeln('Czy chcesz jeszcze cos obliczyc?'); writeln('1 - TAK'); writeln('0 - NIE'); readkey; clrscr; until wybierz=0; end.
Jak zrobic w pascalu w instrukcji case zeby wracalo do poczaku pytania "costam"
until wybierz=0; --- tu wywala blad, wiem ze na pewno to zle zrobilem, ale nie wiem jak zrobic poprawnie, dopiero sie tego ucze
Podpowie ktos?
ze jak ktos wybierze 1 to zeby zadalo od nowa pytanie, jak 0 wyszlo z programu
2 sprawa
napisalby mi ktos to samo zadanie analogicznie do tego co napisalem, poslugujac sie instrukcja if?