dzieki Mog za program...wsadze go tutaj dla innych jakby potrzebowali :
Delphi
program promien;
uses crt;
var klawisz:char;
procedure kwadrat;
var
bok:real;
wynik:real;
begin
write('prosze podac dlugosc boku kwadratu: ');
readln(bok);
wynik:=bok/2;
writeln('promien okregu ma: ', wynik:5:5);
delay(500);
readkey;
end;
procedure romb;
var
h:real;
wynik:real;
begin
write('prosze podac wysokosc rombu: ');
readln(h);
wynik:=h/2;
writeln('promien okregu ma: ', wynik:5:5);
delay(500);
readkey;
end;
procedure trojkat;
var
a,b,c:real;
wynik:real;
begin
write('prosze podac dlugosc boku a trojkata: ');
readln(a);
write('prosze podac dlugosc boku b trojkata: ');
readln(b);
write('prosze podac dlugosc boku c trojkata: ');
readln(c);
wynik:=(2*pi) / (a+b+c);
writeln('promien okregu ma: ', wynik:5:5);
delay(500);
readkey;
end;
begin
clrscr;
writeln('obliczyc promien okregu wpisanego w: ');
writeln('1 - kwadrat');
writeln('2 - romb');
writeln('3 - trojkat');
writeln('ESC - rezygnacja i wyjscie');
repeat
klawisz:=readkey;
until (klawisz in ['1','2','3',#27]);
case klawisz of
'1':kwadrat;
'2':romb;
'3':trojkat;
end;
end.nd.
/* Czy przycisk DELPHI jest zamalo widoczny? */