Pascal IDE

Od: Datum: 06.11.12 17:25 odpovědí: 4 změna: 07.11.12 03:59

Dobrý den, potřeboval bych pomoc. Program spustím, ale nefunguje tak jak má. Poradíte mi s chybami?

Děkuji.

program cesta;
uses crt;
label kruhovyobjezd;
var i,j,k:integer;

BEGIN
clrscr;
kruhovyobjezd:
writeln('Prijel jste do mesta na kruhovy objezd. Pojedete na sever(1), na zapad(2) a nebo na vychod(3)?';);
readln(i);
if i=1 then begin
writeln('Vjel jste do zakazu vjezdu a proti vam se riti auto. Jak se zachovate? Strhnete volant doprava(1), strhnete volant doleva(2) a nebo pridate plyn(3)? ';);
readln(j);
if j=1 then begin
writeln('Narazite do zaparkovaneho auta, majiteli auta jste zpusobil 200 000.- skodu, kterou musite uhradit.';);
readln(j);
if j=2 then
writeln('Ritite se po chodniku a prejizdite chodce, ktereho na miste zabijite, koncite ve vezeni na 8 let.';);
readln(j);
if j=3 then
writeln('Jedete 150 kilometrovou rychlosti a celne se srazite s protijedoucim n kladakem, jste na miste mrtev.';);
end;
end;
readln(i);
if i=2 then begin
writeln('Vjizdite do slepe ulicky, jedu zpet na kruhovy objezd';);
goto kruhovyobjezd;
readln(i);
if i=3 then begin
writeln('Prijel jste na parkoviste. Zaparkuje te auto(1), pojedete dal(2) a nebo se otocite a pojedete zpet(3)?';);
readln(j);
if j=1 then begin
writeln('Zaparkoval jste a vystupujete z vozu, zahledne vas parta gangsteru. Jak se zachovate? Zacnu utikat(1), nasednu zpet do vozu a zamknu se(2), sundam si bundu a protahnu se(3)';);
readln(k);
if k=1 then
writeln('Nejste zrovna sprinter a tak vas parta brzo dozene a okrade vas o vsechno. Koncite nahy na silnici';);
readln(k);
if k=2 then
writeln('Parta vam rozseka auto a jeste vas okrade. Koncite nahy na ulici ve sveho rozflakaneho auta.';);
readln(k);
if k=3 then
writeln('Parta vas respektuje a vy si pridavate do jejich party. Koncite gangsterem';);
end;
end;
end;
readln();
End.


avatar
Upozornění
Tato otázka je 4 roky bez odpovědi a proto byla uzavřena.
Máte-li podobnou otázku, a nenašli jste vhodnou odpověď, založte novou otázku.
Seznam odpovědí:
 
moment čekejte prosím, probíhá přenos dat...
Zobrazení struktury odpovědí v otázce
Skrytí struktury odpovědí v otázce
Zobrazení struktury odpovědí v otázce

 

Odpovědi na otázku:
Od: gue
Datum: 06.11.12 17:42
 

Ahoj,

tak si to odkrokuj, tak nejlip poznáš, kdy to jde jinudy, než bys chtěl. Jinak pokud by tě to zajímalo, tak to co programuješ je konečný automat. Řešení pomocí IF a GOTO není určitě optimální, časem se naučíš lepší řešení.

Ale potěšilo mě, že jsem zase po dlouhé době viděl pascal.

 
Od: mowla*
Datum: 06.11.12 17:59
 

1. Proč po každém "writeln" znovu načítáš proměnnou?

2. Namísto opakování jednotlivých "if...then...endif" použij "if...then...elseif...endif"

3. Celé je to zmatené - napřed si nakresli vývoják...

:-D

Ohodnoceno: 2x
 
Datum: 06.11.12 19:02
 
avatar

Už vám to napsali dvakrát, tak ještě potřetí jinými slovy :) Proměnnou ze vstupu načtete pomocí readln jen jednou. Tím se vám vstup uloží do proměnné. Dle hodnoty této proměnné pak provedete rozvětvení kódu na tři větve. Další vstupy už nenačítáte.

Ohodnoceno: 3x
 
Od: luke237
Datum: 07.11.12 03:59
 

Ja bych se spise vyjadril k tomu nadpisu - Pascal IDE.

IDE znamena "Integrated Development Environment", tedy Propojene vyvojove prostredi, coz je vzajemne propojeny balik programu, obsahujici alespon textovy editor [pro zapis vlastniho zdrojoveho kodu], prekladac (kompilator), spojovac (linker) a odladovac (debugger), ktere spolu vzajemne dokazi spolupracovat a vsechny jdou ovladat z jednoho rozhrani.

IDE vznikly jako odezva na drivejsi bezny zpusob vyvoje, kdy textovy editor, prekladac, spojovac a ovladovac byly samostatne programy, ktere uzivatel spoustel pokazde samostatne. Tento zpusob se pouziva dodnes u nekterych mene obvyklych kombinaci vyvojovych systemu (napr. krizovy preklad pro nektere mikroprocesory apod.)

 

 

Neneseme odpovědnost za správnost informací a za škodu vzniklou jejich využitím. Jednotlivé odpovědi vyjadřují názory jejich autorů a nemusí se shodovat s názorem provozovatele poradny Poradte.cz

 
Copyright © 2004-2016 Poradna Poradte.cz. Všechna práva na poradně Poradte.cz vyhrazena.