Tym razem procedura

wiem, zanudzam. ale naprawde potrzebuje tago programu. mam problem: gdzie w tej procedurze jest blad?
Procedure B2;
begin
repeat
WriteLn ('Skrzyzowanie S W E');
Readln(komenda);
if komenda = 's' then C2
else if komenda = 'w' then B1
else if komenda = 'e' then B3
else writeln ('tam nie pojdziesz');
until komenda='e' or 's' or 'w';
end;

nie mam pojecia co z tym zrobic. kiedys probowalem zrobic cos podobnego i tez mi nie wychodzilo. pomocy! ;(
Syt--"Jeśli wszystko idzie dobrze, na pewno czegoś nie wiesz"
Pozdrawiam {hello}

Ja bym to case'm załatwił np:

po Readln

case komenda of
's':C2;
'w':B1;
'e':B3;
end;

A także zamieniłbym pętlę na

komenda:='s'
while komenda ='s' do
begin
//i tu fragment z pobieraniem i case
end;--Michał
TJS group
delphi 5,6
" Praktyka - to jest wtedy gdy wszystko działa lecz nikt nie wie dlaczego
Teoria - jest wtedy gdy nic nie działa ale wszyscy wiedzą dlaczego,
My łączymy teorię z praktyką
NIC NIE DZIAŁA I NIKT NIE WIE DLACZEGO "

util (komenda='e') or (komenda='s') or (komenda='w');
--Szymek

Prawo Bolingsa - jeżeli czujesz się świetnie, nie martw się, to minie.

sorki Until
--Szymek

Prawo Bolingsa - jeżeli czujesz się świetnie, nie martw się, to minie.

Bardziej elegancko (tylko komenda: char)

until (komenda in ['e', 's', 'w']);

--Vogel [Delphi 6 PE]

I TY możesz nauczyć się grać w bierki!