[Instrukcja] Specjalizacja, Atak z doskoku, Wirujący Atak
Alcohol 120 % v1.9.8.7612 + Instrukcja PL
[Instrukcja] Błąd w opisie złego Kleryka
Instrukcja obsługi dzialu Lynx - PRZECZYTAJ
Perkusja - ustawienie głośności poszczególnych instrumentów
Skrócona instrukcja obsługi portalu
[instrukcja] Kilku Łupieżcy Cieni
Dj Force & Mc Strom @ Uproar(LastChanceToDance12thJune20
TOR006 - Music's So Wonderful - JEST, JEST, JEST !!!
Laptop do 1400 zĹ da rade kupiÄ dobry?
Tanit diary
Program PoleObjetosc;Var a,b,c:real;
Wybor:char;
Wybor1:integer;
Wybor2:integer;
Begin
Writeln('A-Pola figur przestrzennych');
Writeln('B-Objetosci figur przestrzennych');
Readln(Wybor);
Case Wybor of
'A':Begin
Writeln('1-Pole prostopadloscianu');
Writeln('2-Pole walca');
Writeln('3-Pole stozka');
Writeln('4-Pole kuli');
Writeln('5-Pole szescianu foremnego');
Readln(Wybor1);
Case Wybor1 of
1:Begin
Write('Pierwszy bok podstawy: a=');Readln(a);
Write('Drugi bok podstawy: b=');Readln(b);
Write('Wysokosc: c=');Readln(c);
Writeln('Pole prostopadloscianu=',2*a*b+2*a*c+2*b*c);Readln;
End;
2:Begin
Write('Promien kola podstawy: a=');Readln(a);
Write('Wyskosc walca: b=');Readln(b);
Writeln('Pole walca=',2*3.14*a*(b+a));Readln;
End;
3:Begin
Write('Promien kola podstawy: a=');Readln(a);
Write('Wyskosc stozka: b=');Readln(b);
Writeln('Pole stozka=',3.14*sqr(a)+3.14*a*sqrt(sqr(a)+sqr(b)));Readln;
End;
4:Begin
Write('Promien kuli: a=');Readln(a);
Writeln('Pole kuli=',4*3.14*sqr(a));Readln;
End;
5:Begin
Write('Bok: a=');Readln(a);
Writeln('Pole szescianu foremnego=',6*sqr(a));Readln;
End;
Else
Readln(Wybor);
Case Wybor of
'B':Begin
Writeln('1-Objetosc prostopadloscianu');
Writeln('2-Objetosc walca');
Writeln('3-Objetosc stozka');
Writeln('4-Objetosc kuli');
Writeln('5-Objetosc szescianu foremnego');
Readln(Wybor2);
Case Wybor2 of
1:Begin
Write('Pierwszy bok podstawy: a=');Readln(a);
Write('Brugi bok posdtawy: b=');Readln(b);
Write('Wysokosc: c=');Readln(c);
Writeln('Objetosc prostopadloscianu=',a*b*c);Readln;
End;
2:Begin
Write('Promien kola podstawy: a=');Readln(a);
Write('Wysokosc walca: b=');Readln(b);
Writeln('Objetosc walca=',3.14*sqr(a)*b);Readln;
End;
3:Begin
Write('Promien kola podstawy: a=');Readln(a);
Write('Wysokosc stozka: b=');Readln(b);
Writeln('Objetosc stozka=',1/3*3.14*sqr(a)*b);Readln;
End;
4:Begin
Write('Promien kuli: a=');Readln(a);
Writeln('Objetosc kuli=',4/3*3.14*sqr(a)*a);Readln;
End;
5:Begin
Write('Bok: a=');Readln(a);
Writeln('Objetosc szescianu foremnego=',sqr(a)*a);Readln;
End;
End;
End;
End;
End;
End;
End;
End.
Czy ktoś mógłby mnie oświecić i napisać co jest z tym nie tak skoro przy wyborze "B" wracam do poprzedniego okna?
[ Dodano: 2010-01-20, 19:21 ]
Program PoleObjetosc;
Var a,b,c,P,V:word;
Wybor:char;
Wybor1:byte;
Begin
Writeln('A-Pola figur przestrzennych');
Writeln('B-Objetosci figur przestrzennych');
Readln(Wybor);
Case Wybor of
'A':Begin
Writeln('1-Pole prostopadloscianu');
Writeln('2-Pole walca');
Writeln('3-Pole stozka');
Writeln('4-Pole kuli');
Writeln('5-Pole szescianu foremnego');
Readln(Wybor1);
Case Wybor1 of
1:Begin
Write('Pierwszy bok podstawy: a=');Readln(a);
Write('Drugi bok podstawy: b=');Readln(b);
Write('Wysokosc: c=');Readln(c);
Write('Pole prostopadloscianu=',2*a*b+2*a*c+2*b*c);Readln;
End;
2:Begin
Write('Promien kola podstawy: a=');Readln(a);
Write('Wyskosc walca: b=');Readln(b);
Writeln('Pole walca=',2*3.14*a*(b+a));Readln;
End;
3:Begin
Write('Promien kola podstawy: a=');Readln(a);
Write('Wyskosc stozka: b=');Readln(b);
Writeln('Pole stozka=',3.14*sqr(a)+3.14*a*sqrt(sqr(a)+sqr(b)));Readln;
End;
4:Begin
Write('Promien kuli: a=');Readln(a);
Writeln('Pole kuli=',4*3.14*sqr(a));Readln;
End;
5:Begin
Write('Bok: a=');Readln(a);
Writeln('Pole szescianu foremnego=',6*sqr(a));Readln;
End;
Else
Writeln('Możesz wybrać tylko 1,2,3,4 lub 5');Readln;
End;
End
Else
Begin
Case Wybor of
'B':Begin
Writeln('1-Objetosc prostopadloscianu');
Writeln('2-Objetosc walca');
Writeln('3-Objetosc stozka');
Writeln('4-Objetosc kuli');
Writeln('5-Objetosc szescianu foremnego');
Readln(Wybor1);
Case Wybor1 of
1:Begin
Write('Pierwszy bok podstawy: a=');Readln(a);
Write('Brugi bok posdtawy: b=');Readln(b);
Write('Wysokosc: c=');Readln(c);
Writeln('Objetosc prostopadloscianu=',a*b*c);Readln;
End;
2:Begin
Write('Promien kola podstawy: a=');Readln(a);
Write('Wysokosc walca: b=');Readln(b);
Writeln('Objetosc walca=',3.14*sqr(a)*b);Readln;
End;
3:Begin
Write('Promien kola podstawy: a=');Readln(a);
Write('Wysokosc stozka: b=');Readln(b);
Writeln('Objetosc stozka=',1/3*3.14*sqr(a)*b);Readln;
End;
4:Begin
Write('Promien kuli: a=');Readln(a);
Writeln('Objetosc kuli=',4/3*3.14*sqr(a)*a);Readln;
End;
5:Begin
Write('Bok: a=');Readln(a);
Writeln('Objetosc szescianu foremnego=',sqr(a)*a);Readln;
End;
Else
Writeln('Możesz wybrać tylko 1,2,3,4 lub 5');Readln;
End;
End;
Else
Writeln('Możesz wybrać tyko A lub B');Readln;
End;
End;
End;
End.
No jakoś udało mi się znaleźć ten błąd Powinno to wyglądać tak (no może tak nie powinno wyglądać ale działa)
