"Нарисовать в Turbo Pascal окружность заданного радиуса"


Страницы: 1
Пользователь: k1000
Сообщений: 2
Статус: Пользователь
Зарегистрирован:
17 июня 2008, 23:04
Был:27 июня 2008, 3:39
k1000
smsup
Дата: 17 июня 2008, 23:16 Сообщение № 1
Как написать программу в Pascal, чтобы при задании радиуса окружности, рисовался круг с этим радиусом!))
Пользователь: k1000
Сообщений: 2
Статус: Пользователь
Зарегистрирован:
17 июня 2008, 23:04
Был:27 июня 2008, 3:39
k1000
smsup
Дата: 17 июня 2008, 23:21 Сообщение № 2
Вот пример простого рисования круга с зданным радиусом + еще рисуется внутри квадрата заданной длинны:

Код на Pascal
  1. program grafitka (input, output);
  2. uses crt,graph;
  3. var i,a,d,s,k,p,driver,mode: integer;
  4. begin
  5. writeln ('введите длинну стороны квадрата');
  6. readln (i);
  7. s:=i;
  8. clrscr;
  9. writeln ('Введите радиус окружности');
  10. readln (a);
  11. clrscr;
  12. driver:=detect;
  13. mode:=VGAHi;
  14. Initgraph (driver,mode,'F:\Borland Turbo Pascal 7.0\tp7\BGI');
  15. setbkcolor (2);
  16. rectangle (s,s,s+i,s+i);
  17. circle (400,150,a);
  18. readkey;
  19. closegraph;
  20. end.
При использовании обязательна ссылка на http://DMTSoft.ru

Страницы: 1