Нарисовать дом, солнце и траву

@investr · Регистрация: 30.11.2011

Студворк — интернет-сервис помощи студентам

НУжна программма рисующая любое цветное изображение для pascal ABC
Например: домик, солнышко и травка.

@КонецСвета · 22.12.2011, 12:44

если совсем просто...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses graphABC;
begin
setwindowsize(700,500);
setpencolor(clblue);
setbrushcolor(clblue);
rectangle(0,0,700,300);
setpencolor(clgreen);
setbrushcolor(clgreen);
rectangle(0,300,700,500);
setpencolor(clsilver);
setbrushcolor(clsilver);
rectangle(100,450,350,250);
setpencolor(clwhite);
setbrushcolor(clwhite);
rectangle(150,400,220,300);
rectangle(230,400,300,300);
line(100,250,225,100);
line(225,100,350,250);
floodfill(225,120,clgray);
setpencolor(clyellow);
setbrushcolor(clyellow);
circle(600,100,50);
end.

Добавлено через 22 минуты
или так

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
uses graphABC;
var i,y,x: integer;
begin
setwindowsize(700,500);
setpencolor(clblue);
setbrushcolor(clblue);
rectangle(0,0,700,300);
setpencolor(clgreen);
setbrushcolor(clgreen);
rectangle(0,300,700,500);
for i:=1 to 1000 do
    begin
    setpencolor(rgb(random(255),255,random(255)));
    x:=random(700);
    y:=random(271)+270;
    line(x,y,x+(random(15)-7),y+(random(20)+20));
    end;
setpencolor(clsilver);
setbrushcolor(clsilver);
rectangle(50,450,300,250);
setpencolor(clwhite);
setbrushcolor(clwhite);
rectangle(100,400,170,300);
rectangle(180,400,250,300);
line(50,250,180,100);
line(180,100,300,250);
floodfill(170,120,clgray);
setpencolor(clyellow);
setbrushcolor(clyellow);
circle(600,100,50);
setpencolor(clbrown);
setbrushcolor(clbrown);
rectangle(400,280,420,420);
setpencolor(clyellow);
setbrushcolor(clgreen);
ellipse(320,100,500,350);
setpencolor(clyellow);
setbrushcolor(clred);
for i:=1 to 10 do
   circle((random(121)+340),(random(161)+140),10);
end.

@Crazy_Chaz · 23.12.2011, 14:32

Помогите пожалуйста нарисовать вот такой рисунок с помощью цикла)

@КонецСвета · 23.12.2011, 15:06

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses graphABC;
var i,x,x0,y,y0,n: integer;
begin
setwindowsize(500,500);
x0:=250; y0:=250;
setpenwidth(3);n:=0;
for i:=1 to 8 do
begin
x:=x0+Round(120*sin(Pi*n/20));
y:=y0-Round(120*cos(Pi*n/20));
line(x0,y0,x,y);
n:=n+45;
end;
end.

@investr · 23.12.2011, 17:10 **[ТС]**

а как графически писать текст?

@КонецСвета · 23.12.2011, 17:27

investr, если ты спрашиваешь про вывод текста в графическом режиме, то процедура textout, например

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses graphABC;
begin
textout(20,40,'textout');
SetFontColor(clblue);
textout(20,50,'SetFontColor');
SetFontSize(25);
textout(20,100,'SetFontSize');
SetFontName('Times');
textout(20,150,'SetFontName');
SetFontStyle(fsItalicUnderline);
textout(20,200,'SetFontStyle');
SetFontStyle(fsBoldUnderline);
textout(20,250,'SetFontStyle');
end.

@Frontend dvp · 11.05.2018, 11:47

Помогите пожалуйста написать эту же программу в Turbo pascal Дом,Солнышко,травка,небо.

@Puporev · 11.05.2018, 13:04

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
uses graph;
var i,y,x: integer;
begin
initgraph(x,y,'');
setcolor(9);
setfillstyle(1,1);
bar(0,0,getmaxX,300);
setcolor(2);
setfillstyle(1,2);
bar(0,300,getmaxX,getmaxY);
for i:=1 to 1000 do
 begin
  setcolor(1+random(15));
  x:=random(getmaxX);
  y:=random(210)+270;
  line(x,y,x+(random(15)-7),y+(random(20)+20));
 end;
setcolor(7);
setfillstyle(1,7);
bar(50,450,300,250);
setcolor(15);
setfillstyle(1,15);
bar(100,400,170,300);
bar(180,400,250,300);
setcolor(8);
line(50,250,180,100);
line(180,100,300,250);
line(50,250,300,250);
setfillstyle(1,8);
floodfill(200,240,8);
setcolor(14);
setfillstyle(1,14);
fillellipse(570,100,50,50);
setcolor(6);
setfillstyle(1,6);
bar(400,280,420,420);
setcolor(2);
setfillstyle(1,2);
fillellipse(410,225,90,125);
setcolor(12);
setfillstyle(1,12);
for i:=1 to 10 do
fillellipse((random(121)+340),(random(161)+140),10,10);
readln
end.

@Frontend dvp · 13.05.2018, 13:30

Cпасибо огромное!!! Очень помогли)))

@Frontend dvp · 16.05.2018, 16:00

Вы можете теперь удалить этот код отсюда именно тот что на турбо паскале?

Добавлено через 21 секунду
Буду признателен)

Добавлено через 1 минуту
Ато в моей аудитории тоже хотят скопировать.Потом препод увидит и будет плохо!

@Puporev · 16.05.2018, 16:00

Конечно нет, ибо это запрещено правилами форума.

@Frontend dvp · 16.05.2018, 16:08

Puporev можешь удалить?

Добавлено через 1 минуту
Ясно я понял.А вы могли бе для меня сделать что бы вместо дерева там было типа небольшое озеро? И в личку скинуть?

Добавлено через 27 секунд
Буду признателен)))

Добавлено через 5 минут
Puporev, а как сделать что бы вместо дерева было типа «Озеро»?

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

Нарисовать дом, солнце и траву

Решение

Решение

Решение

@investr 1 / 1 / 2 Регистрация: 30.11.2011 Сообщений: 77

	Нарисовать дом, солнце и траву 22.12.2011, 11:35. Показов 30093. Ответов 11 Метки нет (Все метки) НУжна программма рисующая любое цветное изображение для pascal ABC Например: домик, солнышко и травка. 0

@Crazy_Chaz 0 / 0 / 0 Регистрация: 19.12.2011 Сообщений: 6
	23.12.2011, 14:32
	Помогите пожалуйста нарисовать вот такой рисунок с помощью цикла) Миниатюры 0

@investr 1 / 1 / 2 Регистрация: 30.11.2011 Сообщений: 77
	23.12.2011, 17:10 [ТС]
	а как графически писать текст? 0

@Frontend dvp 0 / 0 / 0 Регистрация: 04.05.2018 Сообщений: 4
	11.05.2018, 11:47
	Помогите пожалуйста написать эту же программу в Turbo pascal Дом,Солнышко,травка,небо. 0

@Frontend dvp 0 / 0 / 0 Регистрация: 04.05.2018 Сообщений: 4
	13.05.2018, 13:30
	Cпасибо огромное!!! Очень помогли))) 0

@Frontend dvp 0 / 0 / 0 Регистрация: 04.05.2018 Сообщений: 4
	16.05.2018, 16:00
	Вы можете теперь удалить этот код отсюда именно тот что на турбо паскале? Добавлено через 21 секунду Буду признателен) Добавлено через 1 минуту Ато в моей аудитории тоже хотят скопировать.Потом препод увидит и будет плохо! 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	16.05.2018, 16:00
	Конечно нет, ибо это запрещено правилами форума. 0

@Frontend dvp 0 / 0 / 0 Регистрация: 04.05.2018 Сообщений: 4
	16.05.2018, 16:08
	Puporev можешь удалить? Добавлено через 1 минуту Ясно я понял.А вы могли бе для меня сделать что бы вместо дерева там было типа небольшое озеро? И в личку скинуть? Добавлено через 27 секунд Буду признателен))) Добавлено через 5 минут Puporev, а как сделать что бы вместо дерева было типа «Озеро»? 0