Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Evgeniy512
0 / 0 / 0
Регистрация: 15.11.2015
Сообщений: 12
#1

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

15.11.2015, 22:03. Просмотров 793. Ответов 2
Метки нет (Все метки)

Написать программу, которая бы рисовала текстовые окна произвольных цветов со случайными размерами в произвольном месте экрана
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.11.2015, 22:03
Ответы с готовыми решениями:

Написать программу, которая рисовала окрашенную елку
Написать программу, которая рисовала окрашенную елку.

Написать процедуру, которая рисовала бы лестницу
Написать процедуру, которая рисовала бы лестницу. Данные: число ступенек, длина самой маленькой,...

Написать программу, которая позволяет просматривать текстовые файлы
Написать программу, которая позволяет просматривать текстовые файлы...

Написать программу которая бы выводила латинские символы в произвольном порядке случайными цветами в пределах всего экрана
Кто сможет написать програму Написать программу которая бы выводила латинские символы в...

Написать программу, которая вычисляет 5 произвольных чисел
Помогите сделать задание: Написать программу, которая вычисляет 5 произвольных чисел, и если...

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3862 / 2848 / 3632
Регистрация: 05.06.2014
Сообщений: 13,964
16.11.2015, 10:12 #2
Лучший ответ Сообщение было отмечено Evgeniy512 как решение

Решение

http://pascal.net.ru/Window

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses Crt; 
 
var
  X, Y : Byte;
 
begin
  TextBackground(Black);   { Очищаем экран }
  ClrScr;
  repeat
    X := Succ(Random(80));   { Рисуем произвольные окна }
    Y := Succ(Random(25));
    Window(X, Y, X + Random(10), Y + Random(8));
    TextBackground(Random(16));   { Произвольными цветами }
    ClrScr;
  until KeyPressed;
end.
0
Puporev
Модератор
54407 / 41979 / 28997
Регистрация: 18.05.2008
Сообщений: 98,888
16.11.2015, 10:23 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var i,x,y,w,h,c:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do
 begin
  w:=3+random(20);
  h:=3+random(10);
  x:=1+random(80-w);
  y:=1+random(25-h);
  c:=1+random(8);
  window(x,y,x+w,y+h);
  textbackground(c);
  clrscr;
 end;
textbackground(0);
clrscr;
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.11.2015, 10:23

Написать программу, которая заполняет матрицу A размерами m*n, где m и n задаются с клавиатуры
Написать программу, которая заполняет матрицу A размерами m*n, где m и n задаются с клавиатуры,...

Написать программу, которая заполняет элементы массива случайными числами
Написать программу, которая заполняет элементы массива X, состоящего из n элементов (n≤10 вводится)...

написать программу чтобы рисовала:домик и солнце!
помогите пожалуйста написать программу чтобы рисовала:домик и солнце!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru