Trapna pomoc s pascalom

tulen · 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.

BX · 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;

tulen · 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

BX · 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?

walther · Napísal **walther**: 08.11.2012 21:43

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.

Gregi555 · Napísal **Gregi555**: 10.11.2012 2:23

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.

Trapna pomoc s pascalom

Podobné témy