Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
zxcvbnm
1 / 1 / 0
Регистрация: 15.10.2009
Сообщений: 49
1

Написать программу циклом с модулем Graph

26.02.2011, 12:39. Просмотров 963. Ответов 2
Метки нет (Все метки)

1. программа [404]
2. программа [404]
3.программа [404]
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2011, 12:39
Ответы с готовыми решениями:

Написать любую задачу с модулем graph
написать любую задачу с модулем graph

Как работать с модулем Graph
товарищи!!! скажите пожалуйста у кого есть информация на тему "Использование стандартных процедур...

Построить график функции модулем graph
График y=x/4.

Ошибка при работе с модулем Graph
govorit kaka9to owibka''unit expendet'' togda 9 piwy ''unit'' on gvorit ''interface expendet'' i...

Работа с модулем graph: построить график функции
http://www.cyberforum.ru/attachment.php?attachmentid=268092&stc=1&d=1368647905 Вот задание.

2
MegaAce
330 / 304 / 155
Регистрация: 14.02.2010
Сообщений: 662
26.02.2011, 14:54 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1. Но не доделана, эллипсы не закрашены((( Уже и в древнем конспекте поискал. Кто может, помогите(если конечно, это возможно). Ну и цыкл имеет смысл, только на бусинки, поэтому я его не делал
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses Graph;
var Gd, Gm: Integer;
    x,y:integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then
    Halt(1);
  x:=320; y:=320;
  ellipse(x, y, 0, 360, 75, 120);
  circle(x,y,12);
  circle(x,y-35,12);
  circle(x,y-70,12);
  circle(x-70,y-70,25);
  circle(x+70,y-70,25);
  ellipse(x+60,y+110,0,360,50,25);
  ellipse(x-60,y+110,0,360,50,25);
 
  y:=140;
  Ellipse(x,y,0,360,75,60);
  Ellipse(x,y-60,0,360,75,30);
  circle(x,y-90,20);
  circle(x-30,y,15);
  circle(x+30,y,15);
  circle(x,y+35,15);
  Readln;
  CloseGraph;
end.
Добавлено через 35 минут
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses Graph;
const n=6;
var Gd, Gm: Integer;
    x,y,i,y1,x1:integer;
    p:real;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then
    Halt(1);
 
   x:=320; y:=240;
  for i:=1 to n do
  begin
   p:=3*sqr(i*15);
   y1:=trunc(sqrt(p));
   y1:=y-(y1);
   x1:=x+(i*15);
 
   line(x,y,x+(i*30),y);
   line(x,y,x+(i*15),y1);
   line(x+(i*30),y,x1,y1);
   x:=x-15;
   y:=y+7;
  end;
  readln;
  closegraph;
end.
0
Puporev
Модератор
54590 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,319
26.02.2011, 15:41 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

2. Треугольники. Там цвет сами подберите.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses crt,graph;
var gd,gm:integer;
procedure Treug(a,x,y,c:integer);
var d,h,x1,y1,x2,y2,x3,y3:integer;
begin
d:=a div 2;
h:=round(d*sqrt(3)/3);
x1:=x-d;y1:=y+h;
x2:=x;y2:=y-2*h;
x3:=x+d;y3:=y1;
setcolor(c);
line(x1,y1,x2,y2);
line(x1,y1,x3,y3);
line(x3,y3,x2,y2);
setfillstyle(1,c);
floodfill((x1+x3) div 2,(y1+y2) div 2,c);
end;
var xc,yc,n,i,d,h,c:integer;
begin
d:=0;
initgraph(d,c,'');
setbkcolor(15);
xc:=getmaxX div 2;
yc:=getmaxY div 2;
n:=6;
d:=240;
h:=40;
for i:=1 to n do
 begin
  if odd(i) then c:=7
  else c:=15;
  Treug(d,xc,yc,c);
  d:=d-h;
 end;
readln
end.
Добавлено через 32 минуты
Вот у Вас написано в заголовке с циклами, а в 1 и 3 задаче про них ни слова.
Третья задача уже была у нас, так там нужно было нарисовать 4 домика, может и здесь также нужно. Если нет, нарисуете 1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses graph;
procedure Dom(x,y:integer);
begin
setcolor(6);
rectangle(x,y,x+80,y+10);
rectangle(x+50,y-15,x+60,y);
rectangle(x+10,y+10,x+70,y+80);
setfillstyle(1,6);
floodfill(x+5,y+5,6);
floodfill(x+52,y-5,6);
floodfill(x+15,y+15,6);
setcolor(7);
ellipse(x+65,y-25,0,360,5,4);
ellipse(x+80,y-35,0,360,9,7);
rectangle(x+15,y+25,x+35,y+45);
rectangle(x+45,y+35,x+65,y+75);
setfillstyle(1,7);
floodfill(x+65,y-25,7);
floodfill(x+80,y-35,7);
floodfill(x+20,y+35,7);
floodfill(x+50,y+70,7);
end;
var x,y,i:integer;
begin
x:=0;
initgraph(x,y,'');
x:=40;
y:=getmaxY div 2-40;
setbkcolor(15);
for i:=1 to 4 do
Dom(x+(i-1)*160,y);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2011, 15:41

Полноэкранный режим при работе с модулем graph
Ребят, я начинающий программист и мне хотелось бы узнать... запускается ли илиможно ли как нибудь...

Модули. Использование стандартных модулей. Работа с модулем Graph
Исследовать область определения функции и построить график функций

Существует ли онлайн компилятор turbo pascal (с модулем graph)?
Есть онлайн компилятор турбо паскаля с библиотекой graph? не могу найти


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru