Problém s příkazem "case" – Pascal – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Problém s příkazem "case" – Pascal – Fórum – Programujte.comProblém s příkazem "case" – Pascal – Fórum – Programujte.com

 

Spuštěný nový filmový web Filmožrouti.cz — vše o Avengers, Pacific Rim, Thor, Star Wars…
konik123
~ Anonymní uživatel
5 příspěvků
26. 5. 2018   #1
-
0
-

Ahoj mám takový problém, píšu program na geometrické útvary, který bude vypisovat nějaké jejich základní parametry apod. Dostal jsem doporučení na příkaz case abych nemusel pořád opakovat "if" ale nevím jak tento příkaz "větvit" a jak následně ukončit program


begin
        writeln('Vyber druh geometrického útvaru');
        writeln('(1) Rovinný (2) Prostorový');
        readln(n);
        case n of '1':  begin writeln('(1) Čtverec'); writeln('(2) Obdelník'); writeln('(3) Kruh'); writeln('(4) Kosočtverec');
                        end;
                 
readln(m);
case m of '1': begin
write('Zadej velikost strany "a": ');
readln(a);
ctverec;
writeln('Obvod čtverce je: ', o);
writeln('Obsah čtverce je: ', s);
writeln('Úhlopříčka čtverce je: ', u);
readln;
end;
 

Napíše se ukončení programu do každé možnosti příkazu case?

Nahlásit jako SPAM
IP: 88.102.92.–
KIIV
~ Moderátor
+43
God of flame
26. 5. 2018   #2
-
0
-

#1 konik123
Jde udelat i vice urovni pro case.

Ale prehlednejsi by bylo volat procedury. Jinak rozdeleni pro rovinny/prostorovy bych udelal pres if, jsou jen dve varianty, to se da prezit.

Nahlásit jako SPAM
IP: 46.135.36.–
Program vždy dělá to co naprogramujete, ne to co chcete...
konik123
~ Anonymní uživatel
5 příspěvků
26. 5. 2018   #3
-
0
-

Volat procedury? Jakým způsobem? V této části kódu mám danou proceduru "ctverec", kterou si pak zavolám v druhé části. Potřebuji, aby mi program reagoval na to co člověk vybere za možnost a proto mi byl doporučen case. Dá se to udělat i jiným způsobem? 

Nahlásit jako SPAM
IP: 88.102.92.–
KIIV
~ Moderátor
+43
God of flame
26. 5. 2018   #4
-
+1
-
Zajímavé
Kit +

#3 konik123
treba nejak takhle:

program test;
var  c : char;


procedure obdelnik2D;
begin
  writeln('obdelnik2D');
end;

procedure ctverec2D;
begin
  writeln('ctverec2D');
end;

procedure kosoctverec2D;
begin
  writeln('kosoctverec2D');
end;

procedure kruh2D;
begin
  writeln('kruh2D');
end;

procedure obdelnik3D;
begin
  writeln('obdelnik3D');
end;

procedure ctverec3D;
begin
  writeln('ctverec3D');
end;

procedure kosoctverec3D;
begin
  writeln('kosoctverec3D');
end;

procedure kruh3D;
begin
  writeln('kruh3D');
end;

procedure rovina;
var  v : char;
begin
  writeln('1) obdelnik2D  2) ctverec2D  3) kosoctverec2D  4) kruh2D :: ');
  readln(v);
  case v of
    '1': obdelnik2D;
    '2': ctverec2D;
    '3': kosoctverec2D;
    '4': kruh2D;
  end;
end;

procedure prostor;
var  v : char;
begin
  writeln('1) obdelnik3D  2) ctverec3D  3) kosoctverec3D  4) kruh3D  :: ');
  readln(v);
  case v of
    '1': obdelnik3D;
    '2': ctverec3D;
    '3': kosoctverec3D;
    '4': kruh3D;
  end;
end;

begin
  writeln('1) v rovine  2) v prostoru  :: ');

  readln(c);
  case c of
    '1': rovina;
    '2': prostor;
  end;

  writeln('KONEC!');
end.
Nahlásit jako SPAM
IP: 46.135.36.–
Program vždy dělá to co naprogramujete, ne to co chcete...
konik123
~ Anonymní uživatel
5 příspěvků
27. 5. 2018   #5
-
0
-

Takže mám 8 procedur pro tvary (zadání strany, vzorce a vypsání hodnot) a 2 procedury pro rovinné a prostorové ve kterých se vybere druh a tvar. Chápu to správně? 

Nahlásit jako SPAM
IP: 88.102.92.–
KIIV
~ Moderátor
+43
God of flame
27. 5. 2018   #6
-
0
-

#5 konik123
Ano. Vsude je pak vcelku videt, co se deje a kam to jde. Pokud bys to mel vsechno v jednom, tak se v tom zachvili uz nikdo nevyzna.

Nahlásit jako SPAM
IP: 46.135.44.–
Program vždy dělá to co naprogramujete, ne to co chcete...
konik123
~ Anonymní uživatel
5 příspěvků
27. 5. 2018   #7
-
0
-

Tak děkuju za pomoc :)

Nahlásit jako SPAM
IP: 88.102.92.–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 7 hostů

Moderátoři diskuze

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032018 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý