Chcete darček pre svoje dieťa

Užívateľ

Ahoj, ako ulohu som dostal spraviť dotazník alebo niečo na ten štýl a mal som použiť príkazy CASE a IF.
Spravil som niečo takéto no hádže mi to error, neviete v čom môže byť chyba?

kód:

program dotaznik;
uses crt;
label navrat;
var i:integer;
odpoved,volba:char
begin
clrscr;
write('Vitajte v mojom dotazniku');
readln;
navrat:
writeln('čo by ste zmenili na našej škole');
writeln('a)nič, je to fajn');
writeln('b)pár maličkostí, ale inak nič');
writeln('c)Všetko, je to tu hrozne');
readln(odpoved);
CASE odpoved OF
'A','a' : begin
write('Otvor oči...');
readln;
goto navrat;
end;
'B','b': begin
write('robíš si srandu??' );
readln;
goto navrat;
end;
'C','c' : write('Super, môj človek');
ELSE begin
write('Nevies citat? Iba a/b/c');
readln;
goto skok;
end;
end;
readln;
clrscr;
write('Uspešne si to dokončil, chceš si to zopakovať? A/N');
IF (volba='a') OR (volba='A') then goto navrat else write('zbohom');
readln;
end.

dakujem

Napomenutý užívateľ

Rozumies tomu kodu? Neviem naco je tam to goto, zbytocne komplikovane. Vyuziva sa to pre udavanie pozicie kurzora. Zbezne som to pozrel a zda sa mi vsetko v poriadku az na 3 riadok od konca. Nenacitavas vstup.
V pascale ti ukazuje poziciu riadka v ktorom ma chybu.

Užívateľ

Niesom jasnovidec, a predpokladám, že žiadneho tu ani nenájdeš.. preto, keď chceš svoj kód ukazovať iným, a chceš aby sa v ňom vyznali, dodržiavaj nasledovné zásady:
1. odsádzaj kód, tak aby bolo jasné, čo patrí do ktorého bloku (bloky sú napr. begin-end, case-end, atď) napr. takto:

kód:

begin;
writeln(blabla);
end;

kód:

case a of
'A','a': begin
writeln(blabla);
end;
end;

2. nepoužívaj GOTO, je to prežitok z doby basicu a podobných jazykov, strašne to zneprehľadňuje kód, môže spôsobiť ťažko nájditeľné chyby.. náhradou GOTO sú funkcie a procedúry

A teraz k hľadaniu chýb: je dobré naučiť sa chyby si hľadať sám, pretože na chybách sa človek učí, a pokiaľ budeš čakať, kým ti tvoju chybu niekto nájde, tak strácaš drahocenný čas.. a pri väčších projektoch ti už nikto v tvojom kóde chyby hľadať nebude.. Tu je niekoľko tipov:

1. tvoj kompilátor/IDE ti vždy okrem chyby napíše aj jej znenie a jej umiestnenie, z toho by si mal byť schopný pochopiť o akú chybu sa jedná, pokiaľ to nedokážeš, tak aspoň keď žiadaš o pomoc, uveď tieto údaje, nech to ostatní nemajú ťažšie..
2. keď si hľadáš chybu, skús sa zamyslieť nad tým, že čo tvoj program robí, ja chápem, že je to ťažké, obzvlášť pokiaľ používaš veľakrát goto a case, ale v takomto malom programe je to ešte relatívne jednoduché.. mne napr. na prvý pohľad bije do očí riadok goto skok, vzhľadom na to, že žiadny label s menom skok nikde nemáš..

AD F3RY: goto nie je to isté, čo gotoxy, gotoxy sa používa na presun kurzora, goto sa používa na skok v rámci programu, je to stará praktika pochádzajúca s prehistorických jazykov ako basic a fortran, dnes sa to už nepoužíva a myslím, že ani nevyučuje..

a áno, je tam viac chýb, z ktorých jedna je tá, že premennú voľba nenačítava zo vstupu..

Užívateľ

ach ano, uz to mám, problém bol v tom skok. Tam som sa pomýlil.. A este k tomu goto, aká je teda adekvátna náhrada za príkaz goto?

Skúsený užívateľ

nBXXL napísal:

náhradou GOTO sú funkcie a procedúry

Funkcie a procedúry
samoštúdium...hodne zdaru

Napomenutý užívateľ

Aka nahrada? To goto tam pisat nemusis. Preto som sa ta pytal, ze ci vies ako to funguje. Mas tam vetvenie, cize ak sa podmienka splni, vypise text a program pokracuje dalej. Mas to zbytocne zdlhave a neprehladne. V case of uved iba podmienky. Usetris si begin/end, kedze za jednym prikazom to pisat nemusis a readln ti staci napisat raz po skonceni podmienky.

nBXXL napísal:

AD F3RY: goto nie je to isté, čo gotoxy, gotoxy sa používa na presun kurzora, goto sa používa na skok v rámci programu, je to stará praktika pochádzajúca s prehistorických jazykov ako basic a fortran, dnes sa to už nepoužíva a myslím, že ani nevyučuje..

Vdaka

viem, ze to nieje gotoxy, ale na co sa to goto pouziva som nemal ani sajnu.

Chcete darček pre svoje dieťa

Spoločnosti Online s.r.o.

NIVEA proti celulitíde

Zhoď nadbytočné kilogramy

Zaregistruj sa!

Pascal , "Dotaznik"

SEO - optimalizácia pre vyhľadávače

Freebsd