Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Амазоночка
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 15
1

Модуль Graph, Crt

27.11.2010, 12:58. Просмотров 961. Ответов 0
Метки нет (Все метки)

Дорого времени суток!

Прошу помощи! Катастрофически не успеваю! Помогите пожалуйста!

1. Построить семейство разноцветных случайным образом расположенных квадратиков.

С помощью модуля Graph.

2. Построить семейство разноцветных прямоугольников, расположив по горизонтали, в каждом из которых стоит знак «*».

С помощью модуля Crt.

Заранее благодарна!!!

Добавлено через 18 часов 22 минуты
Цитата Сообщение от Амазоночка Посмотреть сообщение
Дорого времени суток!

Прошу помощи! Катастрофически не успеваю! Помогите пожалуйста!

1. Построить семейство разноцветных случайным образом расположенных квадратиков.

С помощью модуля Graph.

2. Построить семейство разноцветных прямоугольников, расположив по горизонтали, в каждом из которых стоит знак «*».

С помощью модуля Crt.

Заранее благодарна!!!
Как переделать эту программу, чтобы квадратики располагались случайным образом?

PROGRAM Primer_8;
uses Graph;
const Step=35;
var grDriver: Integer;
grMode : Integer;
i,x,y : Integer;
{ ------------------------------- }
PROCEDURE Square (x,y: Integer);
{ Рисует цветастый квадрат, центр которого }
{ имеет координаты (x,y) }
var i,d: Integer;
BEGIN
For i:=15 downto 0 do
begin
SetFillStyle (SolidFill,i); d:=i*3+2;
Bar (x-d,y-d,x+d,y+d)
end
END;
{ --- }
BEGIN
GrDriver:=VGA; grMode:=VGAHi;
InitGraph (grDriver,grMode,'..\bgi');
If GraphResult=grOk
then begin
For i:=0 to 10 do
{ На "побочной" диагонали - 11 точек }
begin
x:=50+i*Step; y:=50+(10-i)*Step;
SetColor(i); Square(x,y)
end;
ReadLn
end
END.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2010, 12:58
Ответы с готовыми решениями:

Модуль Graph, Crt
Пожалуйста напишите текст программы на движущийся квадрат вниз а потом...

CRT совместно с Graph
Всем добрый вечер! Столкнулся с такой проблемой: работую с модулем Graph,...

Модуль CRT
Здравствуйте! Помогите, пожалуйста. Как написать такую программу на Pascal?

модуль CRT
не удивляйтесь вопросу, но мне очень нужно узнать ,что-то дополнительно...

Модуль CRT
У меня есть такого вида меню: uses crt; var s,s1,s2,s3,s4:string;...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.11.2010, 12:58

Модуль CRT
Задание: 1. Напишите 3 подпрограммы, каждая из которых будет выдавать заданную...

Модуль Crt
1. Сгенерировать случайным образом и вывести на экран 8 окон разного цвета и...

Модуль Crt....
немогу никак доделать задачку ... ". Создать программу «Электронно -...


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

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

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