Anonymní profil konik123 – Programujte.com

Tak děkuju za pomoc :)

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ě? 

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? 

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?