Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
7joni7
2 / 2 / 0
Регистрация: 25.10.2009
Сообщений: 54
18.04.2010, 17:18 0

Графика в Турбо Паскаль

18.04.2010, 17:18. Просмотров 210050. Ответов 157
Метки (Все метки)

Ответ

Рисование забора

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
program za6oP;
uses crt, graph,graph0;
var x,y,r,i:integer;
begin
writeln('BBeDuTe Pa3MeP 3a6oPa ');
readln(x);
writeln('BBeDuTe Pa3MeP 1u DoCku');
readln(y);
Init('f:\pas\bp\bgi');
i:=x div y;
r:=y;
y:=0;
   for i:=1 to i do
   begin
   Moveto(y,50);
   setcolor(i);
   setfillstyle(i,i);
   Lineto(y+(r div 2),30);
   lineto(y+r,50);
   lineto(y+r,250);
   lineto(y,250);
   Lineto(y,50);
   floodfill(y+1,60,i);
   y:=y+r+1;
   end;
   reADLN;
end.
Добавлено через 7 минут
Рисуем ёлочки

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 program fforest;
uses Crt,Graph,Graph0;
procedure Triangle(x,y,h:integer;style,col1,col2:byte);
 
 
begin
setcolor(col2);
moveto(x,y);
linerel(h div 2,h);
linerel(-h,0);
linerel(h div 2,-h);
setfillstyle(style,col2);
floodfill(x,y+ (h div 2),col2);
 
 
end;
procedure fir(a,b,h,stl,color1,color2:word);
var I:byte;
begin
For i:=1 to 3 do
    begin
      triangle(a,b,h,stl,color1,color2);
      b:=b+h;
      h:=h+5
      end;
rectangle(a- (h div 10),b,a+(h div 10),b+h);
setfillstyle(stl,color2);
floodfill(a- (h div 10)+1,b+1,color2);
end;
 
procedure Forest (N:byte);
var i:byte;
    stl,a,b,color1,color2,h:integer;
begin
  Randomize;
  for i:=1 to n do
  begin
       h:=random(30)+10;
      a:=random(600)+20;
      b:=random(400)+5;
      color1:=random(15)+1;
      color2:=random(15)+1;
      stl:=random(11)+1;
      fir(a,b,h,stl,color1,color2);
  end;
end;
 
Procedure Wait;
begin
  OutTextXY(200,10,'Нажмите пробел');
  readkey
end;
 
begin
  init('c:\bp\bgi');
  Forest(25);
  Wait;
  CloseGraph
end.


Вернуться к обсуждению:
Графика в Турбо Паскаль
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.04.2010, 17:18

Графика в Турбо Паскаль. Нарисовать телефон
Кто может нарисовать такое??

Построение графика функции в турбо-Паскаль
Как построить график данной функции в...

Графика в Турбо Паскаль. Нарисовать флаг Македонии
Помогите пожалуста, нужно нарисовать флаг Македонии у паскале.

0
Другие темы раздела
Turbo Pascal Массив: элементы, следующие за максимумом, заменить на минимум http://www.cyberforum.ru/turbo-pascal/thread56257.html
В массиве из 10 элементов, элементы следующие за максимомум заменить на минемум.
Turbo Pascal Найти максимум среди нечетных отрицательных элементов каждого столбца матрицы У кого есть время, решите пожал. задачу!!! Заранее спасибо!!!))) Дана матрица 4Х5. Найти max среди нечетных отрицательных элементов каждого столбца. http://www.cyberforum.ru/turbo-pascal/thread56253.html
Turbo Pascal найти
if s='001' then write ('1'); В S выводится число вещественное. как то нужно сделать если встретили 001 то заменяем его на 1 . и так во всей строке..
Числа Turbo Pascal
if (s4=1) then insert('00',s,s1); нужно переписать чтоб вместо 1 были все нечетные числа .. if (s4=2) then insert('00',s,s1); нужно переписать чтоб вместо 2 были все четные числа ..
Turbo Pascal Перевод из двоичной системы в десятеричную. http://www.cyberforum.ru/turbo-pascal/thread56144.html
дано число в двоичной системе проверить правильность ввода этого числа(в его записи должны быть 0 и 1).если число введено неверно повторить ввод.при правильном вводе перевести число в десятичную...
Turbo Pascal Строки и телефонные номера. Задачка на строки и дин.массивы Номера мобильных телефонов могут выглядеть по-разному: 8-111-1111111 +7 111 1111111 +71111111111 8(111)111-1111 и т д Написать программу, приводящую... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru