--> Archiwum Forum
Leilong [ STARSCREAM ]
Pascal, dlaczego program nie działa? (krótki:P)
uses crt;
var
x=string;
begin clrscr;
writeln('podaj imie: ');
read(x);
if x='susel' then
writeln('3');
repeat untill keypressed;
end.
M'q [ Schattenjäger ]
Na pewno jest blad tutaj: until przez jedno "L".
Buby [ Senator ]
uses crt;
var
x:string;
nie ma "=" tylko ":"
Leilong [ STARSCREAM ]
uses crt;
var
x:string;
begin clrscr;
writeln('podaj imie: ');
read(x);
if x='susel' then
writeln('3');
repeat until keypressed;
end.
teraz wygląda tak i pokazuje ze 2 bledy są. Może mam jakąś lipną wersję kompilatora, wiecie skąd ściągnąc jakąś dobrą?
paladyn12 [ Pretorianin ]
Osobiście używam tego i nie narzekam. A co do kodu z [4] to działa już bez zarzutu, więc nie powinieneś mieć błędów.
Sanchin [ Orchid Samurai ]
A kompilator podaje jaki błąd? Nie pamiętam jak w Pascalu, ale porównywanie stringów nie zawsze tak działa.
settoGOne [ settogo ]
readln zamiast read ?:D Hehehe nie wiem jaki tu trop obrać, bo nie pamiętam programowania w ogóle prawie, a kiedy to było hohoho
Leilong [ STARSCREAM ]
paladyn@ a jak to zainstalowac? odpalam ten set patch i nic sie nei dzieje dalej. ech..