Рисунок nyan

18.04.2012, 14:06. **Показов** 5058. **Ответов** 5

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

помогите нарисовать в паскальАВС, картинка прилагается

@КонецСвета · 18.04.2012, 14:32

tiamin, картинка error...not found
выкладывайте на форум...

@Puporev · 18.04.2012, 14:43

Сообщение от КонецСвета

картинка error...not found

А у меня found, хотя и непорядок.

Добавлено через 51 секунду
Как-то рисовал этого кота матрицей, только без цветного шлейфа.

@КонецСвета · 18.04.2012, 17: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
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
uses graphabc;
var i,y: integer;
begin
setwindowsize(500,400);
clearwindow(clblue);
setpencolor(clred);
setbrushcolor(clred);
rectangle(0,150,200,160);
setpencolor(clyellow);
setbrushcolor(clyellow);
rectangle(0,160,200,170);
setpencolor(clgreen);
setbrushcolor(clgreen);
rectangle(0,170,200,180);
setpencolor(clskyblue);
setbrushcolor(clskyblue);
rectangle(0,180,200,190);
setpencolor(clblue);
setbrushcolor(clblue);
rectangle(0,190,200,200);
setpencolor(clFuchsia);
setbrushcolor(clFuchsia);
rectangle(0,200,200,210);
setpencolor(clPurple);
setbrushcolor(clPurple);
rectangle(0,210,200,220);
setpenwidth(3);
setbrushcolor(clgray);
setpencolor(clblack);
circle(210,240,13);
circle(240,240,13);
setbrushcolor(clCream);
roundrect(200,130,360,240,30,30);
setpencolor(clfuchsia);
setbrushcolor(clfuchsia);
for i:=1 to 20 do
    circle(random(140)+210,random(90)+140,3);
setpencolor(clblack);
setbrushcolor(clgray);
ellipse(310,150,340,190);
ellipse(390,150,360,190);
circle(370,240,13);
circle(330,240,13);
ellipse(300,170,400,240);
setbrushcolor(clblack);
circle(330,200,10);
circle(370,200,10);
setbrushcolor(clwhite);
circle(325,197,5);
circle(365,197,5);
arc(340,220,10,180,0);
arc(360,220,10,180,0);
circle(350,220,5);
end.

@Puporev · 18.04.2012, 20:13

Вот котяра матрицей, цвета стандартные почти все не подходят, взял из таблиц.

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
61
uses graphABC;
const
cv:array[1..15] of integer=($993300,clRed,$00bbff,clYellow,$66ff33,$ff9933,clBlue,clBlack,
                            $00ccff,$ff99ff,clFuchsia,clLtGray,clWhite,$ccccff,clAqua);
a:array[1..20,1..50] of byte=((1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,8,8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,8,8,1,1,1,1,1,1,1,1),
                             (1,1,1,2,2,2,2,2,2,2,1,1,1,1,1,1,1,2,2,2,2,2,2,2,8,9,9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,9,9,1,1,1,1,1,1,1,1),
                             (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,8,9, 9, 9,10,10,10,10,10,10,10,10,10,10,10,10,10, 9, 9,  9,8,1,1,1,1,1,1),
                             (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,8,9, 9,10,10,10,10,10,10,11,10,10,11,10,10,10,10,10, 9, 9,8,1,1,1,1,1,1),
                             (2,2,2,3,3,3,3,3,3,3,2,2,2,2,2,2,2,3,3,3,3,3,3,8,9,10,10,11,10,10,10,10,10,10,10,10,10,10,10,10,10,10, 9,8,1,1,1,1,1,1),
                             (3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,8,9,10,10,10,10,10,10,10,10,10,10,10, 8, 8,10,11,10,10, 9,8,1,1,1,1,1,1),
                             (3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,8,9,10,10,10,10,10,10,10,10,10,10, 8,12,12, 8,10,10,10, 9,8,1,1, 8, 8,1,1),
                             (3,3,3,4,4,4,4,4,4,4,3,3,3,3,3,3,3,4,4,4,4,4,4,8,9,10,10,10,10,10,10,11,10,10,10, 8,12,12,12, 8,10,10, 9, 8, 1, 8,12,12,8,1),
                             (4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 8, 8,4,4,4,8, 9,10,10,10,10,10,10,10,10,10,10, 8,12,12,12,12, 8, 8, 8, 8,12,12,12,12,8,1),
                             (4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,8,12,12,8,4,4,8, 9,10,10,10,11,10,10,10,10,10,10, 8,12,12,12,12,12,12,12,12,12,12,12,12,8,1),
                             (4,4,4,5,5,5,5,5,5,5,4,4,4,4,4,4,4,8,12,12, 8, 8, 8,8, 9,10,10,10,10,10,10,10,11,10, 8,12,12,12,12,12,12,12,12,12,12,12,12,12,12,8),
                             (5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, 8,12,12,12,12,8, 9,10,11,10,10,10,10,10,10,10, 8,12,12,12,13, 8,12,12,12,12,12,13, 8,12,12,8),
                             (5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, 5, 8, 8,12,12,8, 9,10,10,10,10,10,10,10,10,10, 8,12,12,12, 8, 8,12,12,12, 8,12, 8, 8,12,12,8),
                             (5,5,5,6,6,6,6,6,6,6,5,5,5,5,5,5,5,6, 6, 6, 6, 8, 8,8, 9,10,10,10,10,10,11,10,10,10, 8,12,14,14,12,12,12,12,12,12,12,12,12,14,14,8),
                             (6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6, 6, 6, 6, 6,8, 9, 9,10,11,10,10,10,10,10,10, 8,12,14,14,12, 8,12,12, 8,12,12, 8,12,14,14,8),
                             (6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6, 6, 6, 6, 6,8, 9, 9, 9,10,10,10,10,10,10,10,10, 8,12,12,12, 8, 8, 8, 8, 8, 8, 8,12,12, 8,1),
                             (6,6,6,7,7,7,7,7,7,7,6,6,6,6,6,6,6,7, 7, 7, 7, 7, 7, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 8,12,12,12,12,12,12,12,12,12,12, 8, 1,1),
                             (7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7, 7, 7, 7, 8,12,12, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 1, 1,1),
                             (7,7,7,7,7, 7,7,7,7,7,7,7,7,7,7,7,7,7, 7, 7, 7, 7, 8,12,12, 8, 1, 8,12,12, 8, 1, 1, 1, 1, 1, 1, 8,12,12, 8, 1, 8,12,12, 8, 1, 1, 1,1),
                             (7,7,7,1,1,15,1,1,1,1,7,7,7,7,7,7,7,1, 1, 1, 1, 1, 8, 8, 8, 1, 1, 1, 8, 8, 8, 1, 1, 1, 1, 1, 1, 1, 8, 8, 8, 1, 1, 8, 8, 8, 1, 1, 1,1));
                             
                             
var i,j,d,x,y,x1,y1,r:integer;
    u:real;
begin
clearwindow($993300);
d:=8;
x:=5;
y:=windowheight div 3;;
for i:=1 to 20 do
for j:=1 to 50 do
 begin
  setbrushcolor(cv[a[i,j]]);
  setpencolor(cv[a[i,j]]);
  rectangle(x+(j-1)*d,y+(i-1)*d,x+j*d,y+i*d);
 end;
x:=windowwidth-80;
y:=40;
d:=4;
r:=25;
u:=0;
setbrushcolor(clAqua);
setpencolor(clAqua);
for i:=1 to 8 do
 begin
  x1:=x+round(r*cos(u));
  y1:=y-round(r*sin(u));
  rectangle(x1-d,y1-d,x1+d,y1+d);
  u:=u+pi/4;
 end;
x1:=60*d;
y1:=windowheight-20;
rectangle(x1,y1,x1+2*d,y1+4*d);
x1:=windowwidth-14*d;
y1:=windowheight-30*d;
rectangle(x1,y1,x1+2*d,y1+2*d);
end.

@КонецСвета · 19.04.2012, 04:12

Puporev, как всегда, потрясающе, мастер...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 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-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

tiamin

	Рисунок nyan 18.04.2012, 14:06. Показов 5058. Ответов 5 Метки нет (Все метки) помогите нарисовать в паскальАВС, картинка прилагается Миниатюры

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	18.04.2012, 14:32
	tiamin, картинка error...not found выкладывайте на форум... 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	19.04.2012, 04:12
	Puporev, как всегда, потрясающе, мастер... 0