вывести на экран прямоугольные окна 16 различных цветов, поместить в них текст различного размера и стиля

10.07.2013, 10:48. **Показов** 980. **Ответов** 1

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

вывести на экран прямоугольные окна 16 различных цветов, поместить в них текст различного размера и стиля...

@Puporev · 10.07.2013, 13:20

Это в текстовом или в графическом режиме?
Просто в текстовом режиме изменение размера шрифта приводит к изменению размеров окон.

Добавлено через 20 минут
В текстовом режиме без изменения размеров шрифта

Pascal

uses crt;
var i,j,w,h,c,k:integer;
begin
hidecursor;
w:=20;
h:=6;
i:=0;
c:=16;
k:=0;
while i<=24 do
 begin
  j:=0;
  while j<=60 do
   begin
    if c>0 then c:=c-1;
    k:=k+1;
    window(j+1,i+1,j+w,i+h);
    textbackground(c);
    if c<9 then c:=c+8
    else c:=c-8;
    textcolor(c);
    clrscr;
    gotoXY(5,3);
    if k mod 2=0 then textbold //в четных столбцах стиль жирный
    else textnormal;//в нечетных нормальный
    write(i,'+',j,'=',i+j); //можно что-то другое выводить
    j:=j+w
   end;
  i:=i+h
 end
end.

Bariska
		1
	вывести на экран прямоугольные окна 16 различных цветов, поместить в них текст различного размера и стиля 10.07.2013, 10:48. Показов 980. Ответов 1 Метки нет (Все метки) вывести на экран прямоугольные окна 16 различных цветов, поместить в них текст различного размера и стиля...

	10.07.2013, 13:20

вывести на экран прямоугольные окна 16 различных цветов, поместить в них текст различного размера и стиля

Решение