mmm

Mam nadzieje ze sie chociaz przyda ... ;] program obliczanie_bryly; uses crt; var a:string; x:integer; b:char; bok,p,pp,h,l,r,pb,o:real; procedure bryly; begin clrscr; Writeln('1 - Szescian'); Writeln('2 - Stozek'); Writeln('3 - Walec'); Writeln('4 - Kula'); Writeln('5 - Czworoscian'); readln(a); val(a,x); end; begin //poczatek programu Writeln('Program do obliczania pol i objetosci bryl'); Writeln; Writeln('(p)ole czy (o)bjetosc ?'); readln(b); if b='p' then begin bryly; case x of 1: begin clrscr; Write('Podaj dlugosc boku a : '); readln(bok); sqr(bok); p:=6*bok; Writeln('Pole powieszchni szescianu wynosi ',p:0:2,' [j2]'); end; 2: begin clrscr; Write('Podaj dlugosc l : '); readln(l); Write('Podaj promien podstawy r : '); readln(r); p:=3.14*r*l; Writeln('Pole powieszchni stozka wynosi ',p:0:2,' [j2]'); end; 3: begin clrscr; Write('Podaj promien podstawy r : '); readln(r); Write('Podaj wysokosc h : '); readln(h); pb:=2*3.14*r*h; sqr(r); pp:=3.14*r; p:pp+pb)*2; Writeln('Pole powieszchni walca wynosi ',p:0:2,' [j2]'); end; 4: begin clrscr; Write('Podaj promien r : '); readln(r); sqr(r); p:=4*3.14*r; Writeln('Pole powieszchni kuli wynosi ',p:0:2,' [j2]'); end; 5: begin clrscr; Write('Podaj dlugosc boku a : '); readln(bok); sqr(bok); p:=1.7321*bok; Writeln('Pole powieszchni czworoscianu wynosi ',p:0:2,' [j2]'); end; end; end; if b='o' then begin bryly; case x of 1: begin clrscr; Write('Podaj dlugosc boku a : '); readln(bok); o:bok*bok)*bok; Writeln('Objetosc szescianu wynosi ',o:0:2,' [j3]'); end; 2: begin clrscr; Write('Podaj promien podstawy r : '); readln(r); Write('Podaj wysokosc h : '); readln(h); sqr(r); o:3.14*r*h)/3; Writeln('Objetosc stozka wynosi ',o:0:2,' [j3]'); end; 3: begin clrscr; Write('Podaj promien podstawy r : '); readln(r); Write('Podaj wysokosc h : '); readln(h); sqr(r); o:=3.14*r*h; Writeln('Objetosc walca wynosi ',o:0:2,' [j3]'); end; 4: begin clrscr; Write('Podaj promien podstawy r : '); readln(r); r:r*r)*r; o:3.14*r)*1.333333; Writeln('Objetosc kuli wynosi ',o:0:2,' [j3]'); end; 5: begin clrscr; Write('Podaj dlugosc boku a : '); readln(bok); bok:bok*bok)*bok; o:bok/12)*1.41421; Writeln('Objetosc czworoscianu wynosi ',o:0:2,' [j3]'); end; end; end;//koniec case readkey; end. Jeszcze napisz po co Ci on byl...

jeszcze zeby to dobrze wygladało to powinno wygladac tak Stosowanie komentarzy opisujących treść programu Zastosowanie zasad programowania strukturalnego (podział na funkcje i procedury) Zabezpieczenie programu przed wprowadzaniem nie prawidłowych danych wejściowych np. reagowanie stosownym komunikatem na próbę wprowadzenia tekstu zamiast liczby a potrzebne mi to było na referat