Pascal, pomocy!

Witam, potrzebuję pomocy od was! Treść zadania: W zależności od wyboru( Funkcja case) program policzy:-pole powierzchni cześcianu(6*sqrt(a)); -Objętość sześcianu(a^3); -Długość krawędzi(12a). Proszę o pomoc, ponieważ głowię się nad tym co robię źle i nie dochodzę do niczego.:/

To może najpierw napisz co już masz.

Cytuj:

---

program kartkowka;
uses crt;
var a,P,V,L:Real; szescian:1..4;
begin
clrscr;
writeln('Podaj bok a:');
readln(a);
writeln('Wybierz ktoras z ponizszych opcji:');
write('1-Pole Szescianu');
write('2-Objetosc szescianu');
write('3-Dlugosc krawedzi');
readln(szescian);
case szescian of
1: begin
P:=6*a*a;
write('Twoj wynik to: ',P:2:2);
readln;
begin
if (a=0) or (a<0) then
write('Sorry nie ma takiego pola!');
readln;
end;
end;
end;
end.

---

Tyle mam do tego momentu, :/

ja to widze tak

Kod:

---

program szescian;

var a,szukana,opcja:integer;

begin

writeln('podaj bok szescianu');
readln(a);
writeln('Teraz podaj co chcesz obliczyc');
writeln('1-Pole Szescianu');
writeln('2-Objetosc szescianu');
writeln('3-Dlugosc krawedzi');
readln(opcja);

case opcja of
    1:szukana:=6*a*a;
    2:szukana:=a*a*a;
    3:szukana:=12*a;
end;

writeln('Wynik to: ',szukana);
readln();
end.

---

Venzet już jesteśmy blisko rozwiązania, ale jeszcze przydałoby się funckja if a=0 or a<0 then write('Przykro nam nie można tego zrobić!'); Jak to zrobić?

Kod PHP:

---

program zad1; uses crt; var a,b,c,d,h:integer; opcja:char; pole:real; label x,y; begin clrscr; x: writeln('k - kwadrat'); writeln('p - prostokat'); writeln('o - kolo'); writeln('t - trojkat'); writeln('0 - wyjdz'); readln(opcja); CASE opcja OF 'k': begin writeln('Podaj a:'); readln(a); writeln('Pole wynosi: ',a*a,''); end else begin goto x; end; end; 'p': begin writeln('Podaj a:'); readln(a); writeln('Podaj b:'); readln(b); writeln('Pole wynosi: ',a*b,''); end else begin goto x; end; end; 'o': begin writeln('Podaj r:'); readln(a); writeln('Pole wynosi: ',Pi*a*a:0:2,''); end else begin goto x; end; end; 't': begin writeln('Podaj a:'); readln(a); writeln('Podaj h:'); readln(h); pole:=a*h/2; writeln('Pole wynosi: ',pole:0:2,''); end else begin goto x; end; end; '0': begin goto y; end; end; goto x; readln; y: end.

---

masz tu moje stare zadanie z lekcji, przerób tylko obliczenia i menu

a zapomnialem, w takim razie:

Kod:

---

program szescian;

var a,szukana,opcja:integer;

begin

writeln('podaj bok szescianu');
readln(a);
if a<=0 then writeln('nie mozna tego obliczyc') else
    begin
          writeln('Teraz podaj co chcesz obliczyc');
          writeln('1-Pole Szescianu');
          writeln('2-Objetosc szescianu');
          writeln('3-Dlugosc krawedzi');
          readln(opcja);

          case opcja of
              1:szukana:=6*a*a;
              2:szukana:=a*a*a;
              3:szukana:=12*a;
          end;

          writeln('Wynik to: ',szukana);
      end;
readln();
end.

---

Venzet mistrzu, :] Twój sposób jest dobry bo krótki i to mi się podoba, ale mój nauczyciel niestety nie trawi takiego czegoś, mimo tego rozwiązałeś mój problem i należą ci się wielkie dzięki. 2Fast tobie też dziękuję!

o kurcze:D gdybym widzial Twoj nick wczesniej to nie wiem czy bym robil zadanie :p ja jestem Madritista:P