| | |
| Stránka: 1 z 1
| [ Príspevkov: 6 ] | |
Autor | Správa |
---|
Registrovaný: 07.05.08 Prihlásený: 09.11.12 Príspevky: 32 Témy: 12 Bydlisko: Košice | Napísal tulen: 08.11.2012 21:32 | |
|
Potreboval by som do tohto programu dopisat podmienku aby cisla ktore zadavam boli vetšie ako 0
predom dakujem za dokodenie programu
Kód: program sest_hran; uses crt; var a:real; vy:real; V:real; S:real; begin ClrScr; Write('Zadaj hranu sestbokeho hranola:'); ReadLn( a ); Write('Zadaj vysku sestbokeho hranola:'); ReadLn( vy ); V := (6*a*a*sqrt(2)/4) * vy; S := 2*(6*a*a*sqrt(2)/4) + 6*a*vy; WriteLn('Objem sestbokeho hranola je ', V:8:3,' jednotiek kubickych.'); WriteLn('Povrch sestbokeho hranola je ', S:8:3,' jednotiek.'); ReadLn; end.
|
|
Registrovaný: 17.07.11 Prihlásený: 29.12.20 Príspevky: 1516 Témy: 3 | Napísal BX: 08.11.2012 21:36 | |
|
A čo potom, keď nie sú?
Inak ako základné podmienky a cykly nič?
if ( a <= 0 ) then
begin
... je mensie alebo rovne nule
end;
|
|
Registrovaný: 07.05.08 Prihlásený: 09.11.12 Príspevky: 32 Témy: 12 Bydlisko: Košice | Napísal autor témy tulen: 08.11.2012 21:41 | |
|
viem ze je to trapna vec ale v skole mame len tak okrajovo pascal vobec sa tomu nerozumiem mohol by si mi to tam dopisat prosim
|
|
Registrovaný: 17.07.11 Prihlásený: 29.12.20 Príspevky: 1516 Témy: 3 | Napísal BX: 08.11.2012 21:42 | |
|
Veď sa pýtam, že čo potom, keď nie sú?
Po načítaní čísla môžem zistiť, či je väčšie ako nula, alebo nie. Ak nie, čo mám spraviť? Skončiť program? Opakovať načítanie?
_________________ Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám! |
|
Registrovaný: 24.01.08 Prihlásený: 13.09.17 Príspevky: 14572 Témy: 66 Bydlisko: Žilina |
A čo, že to máte v škole okrajovo? Kde je samoštúdium? BX ťa nasmeroval správne, stačí to drbnúť do Google a pozrieť si teóriu a syntax. Otázka pár sekúnd, ale ty čakáš očividne copy&paste kód. Veľa šťastia s takým prístupom.
_________________ C#, PHP, ... |
|
Registrovaný: 06.04.10 Prihlásený: 18.02.14 Príspevky: 47 Témy: 2 |
Tie vzorce sa mi akosi nezdaju. Ten 6-uholnik sa sklada zo 6 rovnostrannych trojuholnikov kde je sin(60) a to je odmocnina 3/2 (Ty tam mas 2-ku!). Minimalne sa daju zjednodusit. Tak som to spravil nasledovne:
Kód: Program SEST_HRAN; uses Crt; var a,v,vysledok: Real;
BEGIN ClrScr; repeat Write('Zadaj velkost hrany 6-bokeho hranola: '); ReadLn(a); Write('Zadaj jeho vysku: '); ReadLn(v); until (a > 0) and (v > 0); vysledok := (3*sqrt(3)*a*a*v) / 2; WriteLn('Objem hranola je: ',vysledok:6:3,' jednotiek kubickych'); vysledok := 3*a*a*sqrt(3) + 6*a*v; WriteLn('Povrch hranola je: ',vysledok:6:3,' jednotiek stvorcovych'); ReadLn;
END.
|
|
| Stránka: 1 z 1
| [ Príspevkov: 6 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| Pomoc s Pascalom v Assembler, C, C++, Pascal, Java | 6 | 679 | 23.05.2009 18:51 dmx7899 | | pomoc s pascalom v Assembler, C, C++, Pascal, Java | 3 | 815 | 13.04.2007 19:08 johny128 | | pomoc s pascalom v Assembler, C, C++, Pascal, Java | 2 | 725 | 14.02.2007 14:40 scooby | | Problem s Turbo Pascalom v Assembler, C, C++, Pascal, Java | 8 | 1521 | 15.11.2006 19:46 smejo | | help me pls s pascalom v Assembler, C, C++, Pascal, Java | 6 | 728 | 12.05.2007 16:25 p360t | | help ako inak o5 s pascalom v Assembler, C, C++, Pascal, Java | 4 | 851 | 16.05.2007 20:00 audiotrack | | potreboval by som poradit s pascalom v Assembler, C, C++, Pascal, Java | 6 | 793 | 29.04.2008 17:25 gabo87 | | pomoc pomoc prosim nefunguje internet v Ovládače | 7 | 1141 | 09.09.2017 20:37 Smith Wesson | | Pomoc pri pomoc pri skladaní PC - od 1 500 do 1 800 Eur (rozlíšenie 1440p) v PC zostavy | 13 | 806 | 28.09.2023 20:23 johny314 | | POMOC ??? v Delphi, Visual Basic | 2 | 1259 | 27.03.2008 14:32 Martinek6 | | Pomoc v Audio programy | 4 | 941 | 05.02.2008 10:06 raikonen11 | | POMOC [ Choď na stránku: 1, 2 ] v Ostatné | 30 | 2273 | 27.09.2009 20:01 workoholik16 | | pomoc v Ostatné | 13 | 953 | 08.08.2009 22:16 malcolm | | Pomoc! v Procesory | 6 | 992 | 02.02.2008 18:27 Jaro | | pomoc v PHP, ASP | 6 | 712 | 01.08.2008 16:27 Darkeye18 | | pomoc ! v Ovládače | 1 | 957 | 18.08.2007 16:07 johny128 |
| Nemôžete zakladať nové témy v tomto fóre Nemôžete odpovedať na témy v tomto fóre Nemôžete upravovať svoje príspevky v tomto fóre Nemôžete mazať svoje príspevky v tomto fóre
|
|