Facebook
From zemlin, 9 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 614
  1. //Paweł Zemliński
  2.  
  3. program egzamin;
  4.  
  5. uses graph, crt;
  6.  
  7. var
  8. w:char;
  9. dlugosc:integer;
  10. promien:real;
  11.  
  12. procedure wczytaj();
  13. begin
  14.      writeln('Podal dlugosc boku kwadratu w pikselach z przedzialu od 10 do 200 =:');
  15.  
  16.      repeat
  17.            readln(dlugosc);
  18.            if ((dlugosc<10) OR (dlugosc>200)) then
  19.            begin
  20.                 writeln('Podano bledne wartosci prosze je skorygowac!');
  21.                 writeln('Podal dlugosc boku kwadratu=');
  22.            end;
  23.      until((dlugosc>=10) AND (dlugosc<=200));
  24.  
  25.      writeln('Dlugosc boku kwadratu wynosi ',dlugosc,' piksele');
  26. end;
  27.  
  28. procedure opisz();
  29. begin
  30.      Clrscr();
  31.      promien:=(sqrt(2)*dlugosc)/2;
  32.  
  33.      writeln('Promien okregu opisanego na kwadracie o boku ',dlugosc,' wynosi = ',promien:0:2,' piksela');
  34.      readln();
  35. end;
  36.  
  37. procedure rysuj();
  38. var
  39. gm,dm:smallint;
  40. srednica:integer;
  41. begin
  42.      gm:=d8bit; dm:=m800x600;
  43.      initgraph(gm,dm,' ');
  44.  
  45.      srednica:=Round(promien)*2;
  46.  
  47.      writeln(srednica);
  48.  
  49.      Circle(400,300,srednica);
  50.      line(400-dlugosc,300-dlugosc,dlugosc+400,300-dlugosc);
  51.      line(400-dlugosc,300+dlugosc,dlugosc+400,300+dlugosc);
  52.      line(400-dlugosc,300+dlugosc,400-dlugosc,300-dlugosc);
  53.      line(400+dlugosc,300+dlugosc,400+dlugosc,300-dlugosc);
  54.  
  55.      readln();
  56.      closegraph();
  57. end;
  58.  
  59. begin
  60.      repeat
  61.            writeln('w - wczytywanie dlugosci boku kwadratu');
  62.            writeln('o - obliczanie promienia kola opisanego na kwadracie');
  63.            writeln('r - rysunek');
  64.            writeln('q - wyjscie z programu');
  65.            writeln('Wybieraj...');
  66.            readln(w);
  67.  
  68.            case w of
  69.            'w' : wczytaj();
  70.            'o' : opisz();
  71.            'r' : rysuj();
  72.            end;
  73.  
  74.      until(w='q');
  75.  
  76.      writeln('Do zobaczenia');
  77.      readln;
  78. end.