Выведите свое имя разными цветами на разном фоне по главной диагонали экрана.

@Gerard · Регистрация: 16.09.2010

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

CRT Выведите свое имя разными цветами на разном фоне по главной диагонали экрана.

@Puporev · 26.09.2011, 15:54

Примерно так можно.

Pascal

uses crt;
const s='Софокл';
var n,m,i,j,cf,ct:integer;
begin
randomize;
n:=25;
m:=(80)div n;
for i:=1 to n do
 begin
  gotoXY(m*(i-1),i);
  cf:=random(9)+8;//от голубого до желтого
  ct:=random(9);//от синего до серого
  textbackground(cf);
  textcolor(ct);
  write(s);
 end;
end.

@konsul777 · 12.03.2013, 16:58

если выбрать имя с большим количеством букв, то в этом случае произойдет смещение рисунка...

@Gerard 5 / 3 / 0 Регистрация: 16.09.2010 Сообщений: 31
		1
	Выведите свое имя разными цветами на разном фоне по главной диагонали экрана. 25.09.2011, 19:15. Показов 2831. Ответов 2 Метки нет (Все метки) CRT Выведите свое имя разными цветами на разном фоне по главной диагонали экрана. 0

@konsul777 4 / 4 / 2 Регистрация: 13.11.2012 Сообщений: 253
	12.03.2013, 16:58	3
	если выбрать имя с большим количеством букв, то в этом случае произойдет смещение рисунка... 0

Опции темы

Выведите свое имя разными цветами на разном фоне по главной диагонали экрана.

Решение