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

Графика: в цикле нарисовать 4 квадрата

30.01.2011, 20:14. Просмотров 2664. Ответов 3
Метки нет (Все метки)

Мне нужно нарисовать 1 квадрат закрашенный и сделать ещё 4 копи при помощи цыкал по горизонту и закрасить их в любой цвет! Только между квадратами должен быть промежуток! Заранее благодарю!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2011, 20:14
Ответы с готовыми решениями:

Нарисовать в окне 4 закрашенных квадрата
Написать программу будет окно и в этом окне 4 закрашенных квадрата...

Нарисовать вложенные квадраты в цикле
Выручите пожалуйста с программой мне надо сделать Через Turbo Pascal как на...

Нарисовать 4 квадрата
Нарисовать 4 квадрата каждый должен касаться нижним левым углом следующего...

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

Графика. Нарисовать калькулятор
Нарисовать калькулятор

3
marshal
Robin Bad на форуме
235 / 235 / 194
Регистрация: 14.12.2010
Сообщений: 513
30.01.2011, 20:21 2
рисовал с помощью обычного модуля crt
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program ddd;
uses crt;
var a,x,b,i:integer;
begin
clrscr;x:=1;
for i:=1 to 5 do
begin
x:=random(50);
a:=random(17)+1;
b:=random(17)+1;
gotoxy(x,1);textbackground(b);textcolor(a);write('####');
gotoxy(x,2);write('#  #');
gotoxy(x,3);write('#  #');
gotoxy(x,4);write('####');
end;
end.
Но идею вы поняли
1
Эдвин
0 / 0 / 0
Регистрация: 30.01.2011
Сообщений: 5
30.01.2011, 20:32  [ТС] 3
спасибо за помощ
0
Puporev
Модератор
54590 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,319
30.01.2011, 21:03 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses graph;
procedure Square(x,y,c:integer);
begin
setcolor(c);
rectangle(x,y,x+50,y+50);
setfillstyle(1,c);
floodfill(x+5,y+5,c);
end;
var x,y,i:integer;
begin
x:=0;
initgraph(x,y,'');
x:=50;
y:=getmaxY div 2+25;
for i:=1 to 5 do
Square(x+(i-1)*100,y,i+1);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.01.2011, 21:03

Графика нарисовать шарик
Нарисовать шарик и добавить анимацию к шарику так, чтобы он прыгал) Помогите...

Графика. Нарисовать бабочку.
Нужно нарисовать бабочку в Турбо Паскале. Помогите, пожалуйста!:gsad:

Графика. Чебурашку нарисовать
Помогите пожалуйста чебурашку нарисовать


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

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

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