9 odpowiedzi w tym temacie

[Scripting]

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?

[DarkGL]

http://turbopascal.s...oteka.pl/7.html

[Scripting]

Hehe, no dzięki, niezbyt wiele mi to pomogło ale poczytam troche i może sobie poradze

[Portek]

Sprawdź dokładnie źródło które podał Ci Dark, stosujesz pętle until, bez de facto poprawnej wywołania jej. Brakuje Ci magicznego słowa "REPEAT".

[Scripting]

Wiem, proboje dodawalem, nie wychodzi sa errory.

[G[o]Q]

dodaj repeat zaraz po beginie

potem popatrz na zmienne i zmien typ dla zmiennej wybor na integer i usun ''' z case'a

[Scripting]

musze zrobic to w case

[Muzzi]

Sprawdź, powinno działać.

program kalkulator;
uses crt;
var
a,b:real;
wybierz,c:integer;
begin
  repeat
    clrscr;
   
    writeln('Wybierz 1 lub 2');
    readln(wybierz);
   
    writeln('Podaj 1 liczbe: ');
    readln(a);
   
    writeln('Podaj 2 liczbe: ');
    readln(<img src='https://amxx.pl/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='B)' />;
   
    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('2 - Nie');
    readln(c);
   
  until c = 2;
end.

Użytkownik Muzzi edytował ten post 18.12.2011 14:44

[Scripting]

Dziekowac Przerobilem po swojemu troszke teksty itp i super dziala elegancko

Użytkownik Scripting edytował ten post 18.12.2011 19:30

[diablix]

Wiadomość wygenerowana automatycznie


Ten temat został zamknięty przez moderatora.

Powód: Pomoc udzielona

Jeśli się z tym nie zgadzasz, raportuj ten post, a moderator lub administrator rozpatrzy go ponownie.


Z pozdrowieniami,
Zespół AMXX.PL