Developing.ru

Помогите дописать программу, в общем нужно вывести на экран 200 знаков “+”, цвета и месторасположения которых изменялись бы случайным образом.

Код: Выделить всё

program bilet17;
uses graphabc;
var x1,y1,x2,y2,col,kol:integer;
begin
kol:=0;
while kol<=200 do
begin
randomize;
x1:=random(500);
y1:=random(300);
x2:=x1+3;
y2:=y1+3;
col:=random(15);
setcolor(15);
line(x1,y2,x2,y2);
kol:=kol+1;
end;
readln;
end.

Проблема с тем что не могу просчитать координаты так чтобы выводился именно + и то что в pascal abc не работает setcolor.

Зачем вам граф?
+ ClrScr
[syntax='Pascal']
uses crt;
var
x,y,i,kol:integer;
begin
kol:=0;
while kol<=200 do
begin
randomize;
i:=random(10);
TextColor(i);
x:=random(80);
y:=random(60);
gotoXY(x,y);
writeln('+');
inc(kol);
end;
readln;
end.

[/syntax]

Да можно и еще проще

Код: Выделить всё

uses crt;
var i: byte;
begin
  randomize;
  for i:=1 to 200 do
  begin
      gotoxy(random(80), random(60));
      textcolor(random(16));
      write('+');
  end;
end.

Ну раз на то пошло, то и еще проще

Код: Выделить всё

var i: byte;
begin
randomize;
for i := 1 to 200 do memw[$B800:random(4000) and $FFFE] := random(10) shl 8 + byte('+');
end.

Developing.ru

Помогите дописать(исправить) программу (Pascal ABC)

Помогите дописать(исправить) программу (Pascal ABC)

Re: Помогите дописать(исправить) программу (Pascal ABC)

Re: Помогите дописать(исправить) программу (Pascal ABC)

Re: Помогите дописать(исправить) программу (Pascal ABC)