Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
yura`
11 / 8 / 0
Регистрация: 09.02.2010
Сообщений: 107
17.03.2010, 16:26

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

17.03.2010, 16:26. Просмотров 209338. Ответов 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
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
60
uses crt,graph;
var a,b:array [1..100] of PointType;
i,j,x,y,gd,gm,k:integer;
begin
clrscr;
write('Vvedite rozmer setki: ');
readln(x); y:=x;
gd:=Detect;
InitGraph(gd,gm,'');
i:=0; j:=0;
SetBkColor(15);
SetPalette(5,0);
SetColor(5);
while i<=x*30 do begin
Line(0+i,0,0+i,y*20);
i:=i+x;
end;
while j<=y*20 do begin
Line(0,0+j,x*30,0+j);
j:=j+y;
end;
i:=1;
a[i].x:=x*29; a[i].y:=y*11; inc(i);
a[i].x:=x*29; a[i].y:=y*12; inc(i);
a[i].x:=x*28; a[i].y:=y*13; inc(i);
a[i].x:=x*24; a[i].y:=y*13; inc(i);
a[i].x:=x*20; a[i].y:=y*14; inc(i);
a[i].x:=x*18; a[i].y:=y*17; inc(i);
a[i].x:=x*17; a[i].y:=y*17; inc(i);
a[i].x:=x*17; a[i].y:=y*14; inc(i);
a[i].x:=x*13; a[i].y:=y*14; inc(i);
a[i].x:=x*5; a[i].y:=y*11; inc(i);
a[i].x:=x*3; a[i].y:=y*14; inc(i);
a[i].x:=x*2; a[i].y:=y*14; inc(i);
a[i].x:=x*2; a[i].y:=y*11; inc(i);
a[i].x:=x*3; a[i].y:=y*10; inc(i);
a[i].x:=x*2; a[i].y:=y*9; inc(i);
a[i].x:=x*2; a[i].y:=y*4; inc(i);
a[i].x:=x*3; a[i].y:=y*4; inc(i);
a[i].x:=x*5; a[i].y:=y*9; inc(i);
a[i].x:=x*13; a[i].y:=y*6; inc(i);
a[i].x:=x*13; a[i].y:=y*3; inc(i);
a[i].x:=x*14; a[i].y:=y*3; inc(i);
a[i].x:=x*17; a[i].y:=y*6; inc(i);
a[i].x:=x*22; a[i].y:=y*7; inc(i);
a[i].x:=x*24; a[i].y:=y*8; inc(i);
a[i].x:=x*25; a[i].y:=y*10; inc(i);
a[i].x:=x*29; a[i].y:=y*11; inc(i);
k:=i;
i:=1;
b[i].x:=x*22; b[i].y:=y*9; inc(i);
b[i].x:=x*22; b[i].y:=y*10; inc(i);
b[i].x:=x*23; b[i].y:=y*10; inc(i);
b[i].x:=x*22; b[i].y:=y*9; inc(i);
SetColor(5);
SetLineStyle(0,1,3);
DrawPoly(k,a);
DrawPoly(i,b);
ReadKey;
end.


Вернуться к обсуждению:
Графика в Турбо Паскаль
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.03.2010, 16:26
Готовые ответы и решения:

Графика в Турбо Паскаль
(b+\sqrt{b-4ac}/2a)-a*a*a*c - помогите как это записать в турбо паскале...

Графика в Турбо Паскаль
ситуация следующая. написала програму в которой задаешь координаты точки и в...

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

Графика в Турбо Паскаль не работает
Люди помогите плиз. У меня windows 7 когда я пытаюсь запустить программу с...

построение графика на Турбо Паскаль
Помогите пожалуйста Y=(x*(3-x))/(1-x)*sqr(1-x)

157
Другие темы раздела
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