[okrąg wpisany do figury płaskiej]

0

potrzebuje program napisany w postaci procedury , ktory bedzie liczyl promien okregu wpisanego do figury plaskiej.czy ktos moze mi pomoc ??potrzebuje tego najpozniej na wtorek, szukam juz 3 dzien i nic nie znalazlem.

program musi byc dosowy i napisany w Delphi.

0

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? /

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0