рисунок на паскале с помощью массива

[darika]

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

[raxp]

поищите в сети текстовые ASCII рисунки, и печатайте на экран из массива, можно из файла, набора файлов...
http://ascii.kiev.ua/example.php
http://art.kibi.ru/frames.htm?sta/sta20.htm

...если творчество приветcтвуется, выведите снежинку Коха например
подсказка - фракталы

[darika]

мне нужно наподобие этого,только рисунок конечно же другой!
const=15;m=20;
var array [1..n,1..m] of char;
i,j,c:word;
Begin
for i:=1 to n do
for j:=1 to m do if (j>=1) and (i<=5) then a[i,j]:='0';
for i:=6 to n do
for j:=1 to m do if (j<=15) and (i<=10) then a[i,j]:='1';
for i:=11 to n do
for j:=1 to m do if (j>0) then a[i,j]:='2';
for i:=11 to n do begin
for j:=1 to n begin if a[i,j]:='0' then c:=2
else c:=14;
if a[i,j]:='2' then c:=1
write (a[i,j]:2);
End.

[raxp]

переставьте местами где-нить i,j и рисунок сразу помняется...

[darika]

в этой программе?? тогда получится не пойми что!) а нужен рисунок милый и красивый

[darika]

ну я рисунок то смоги найти а программу под него не могу написать то!

[raxp]

так красиво?

__________@@__@_@@@_____
_____________@__@@_____@_____
____________@@_@__@_____@_____
___________@@@_____@@___@@@@@_____
__________@@@@______@@_@____@@_____
_________@@@@_______@@______@_@_____
_________@@@@_______@_______@_____
_________@@@@@_____@_______@_____
__________@@@@@____@______@_____
___________@@@@@@@______@_____
__@@@_________@@@@@_@_____
@@@@@@@________@@_____
_@@@@@@@_______@_____
__@@@@@@_______@@_____
___@@_____@_____@_____
____@______@____@_____@_@@_____
_______@@@@_@__@@_@_@@@@@_____
_____@@@@@@_@_@@__@@@@@@@_____
____@@@@@@@__@@______@@@@@_____
____@@@@@_____@_________@@@_____
____@@_________@__________@_____
_____@_________@_____
_______________@_____
____________@_@_____
_____________@@_@_____
______________@@_____

- подсказываю еще раз, фракталы вам помогут... ну на крайняк- нарисуйте спираль архимеда

[raxp]

ну я рисунок то смоги найти а программу под него не могу написать то

- оператор writeln

[darika]

фракталами какими то нельзя пользоваться нужно как я писала в задаче

[darika]

помогите составить то программу(((( пожалуйста...могу копеечкой отблагодарить(маленькой))!