//Paweł Zemliński
program egzamin;
uses graph, crt;
var
w:char;
dlugosc:integer;
promien:real;
procedure wczytaj();
begin
writeln('Podal dlugosc boku kwadratu w pikselach z przedzialu od 10 do 200 =:');
repeat
readln(dlugosc);
if ((dlugosc<10) OR (dlugosc>200)) then
begin
writeln('Podano bledne wartosci prosze je skorygowac!');
writeln('Podal dlugosc boku kwadratu=');
end;
until((dlugosc>=10) AND (dlugosc<=200));
writeln('Dlugosc boku kwadratu wynosi ',dlugosc,' piksele');
end;
procedure opisz();
begin
Clrscr();
promien:=(sqrt(2)*dlugosc)/2;
writeln('Promien okregu opisanego na kwadracie o boku ',dlugosc,' wynosi = ',promien:0:2,' piksela');
readln();
end;
procedure rysuj();
var
gm,dm:smallint;
srednica:integer;
begin
gm:=d8bit; dm:=m800x600;
initgraph(gm,dm,' ');
srednica:=Round(promien)*2;
writeln(srednica);
Circle(400,300,srednica);
line(400-dlugosc,300-dlugosc,dlugosc+400,300-dlugosc);
line(400-dlugosc,300+dlugosc,dlugosc+400,300+dlugosc);
line(400-dlugosc,300+dlugosc,400-dlugosc,300-dlugosc);
line(400+dlugosc,300+dlugosc,400+dlugosc,300-dlugosc);
readln();
closegraph();
end;
begin
repeat
writeln('w - wczytywanie dlugosci boku kwadratu');
writeln('o - obliczanie promienia kola opisanego na kwadracie');
writeln('r - rysunek');
writeln('q - wyjscie z programu');
writeln('Wybieraj...');
readln(w);
case w of
'w' : wczytaj();
'o' : opisz();
'r' : rysuj();
end;
until(w='q');
writeln('Do zobaczenia');
readln;
end.
{"html5":"htmlmixed","css":"css","javascript":"javascript","php":"php","python":"python","ruby":"ruby","lua":"text\/x-lua","bash":"text\/x-sh","go":"go","c":"text\/x-csrc","cpp":"text\/x-c++src","diff":"diff","latex":"stex","sql":"sql","xml":"xml","apl":"apl","asterisk":"asterisk","c_loadrunner":"text\/x-csrc","c_mac":"text\/x-csrc","coffeescript":"text\/x-coffeescript","csharp":"text\/x-csharp","d":"d","ecmascript":"javascript","erlang":"erlang","groovy":"text\/x-groovy","haskell":"text\/x-haskell","haxe":"text\/x-haxe","html4strict":"htmlmixed","java":"text\/x-java","java5":"text\/x-java","jquery":"javascript","mirc":"mirc","mysql":"sql","ocaml":"text\/x-ocaml","pascal":"text\/x-pascal","perl":"perl","perl6":"perl","plsql":"sql","properties":"text\/x-properties","q":"text\/x-q","scala":"scala","scheme":"text\/x-scheme","tcl":"text\/x-tcl","vb":"text\/x-vb","verilog":"text\/x-verilog","yaml":"text\/x-yaml","z80":"text\/x-z80"}