Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Задание паскаль (цыкл)(пока, повтор) http://www.cyberforum.ru/pascal/thread198134.html
Числа Фибоначчи (f n) определяются формулами: f 0 =f1=1, f n = fn-1 + f n+1 при n=2, 3, …. Найти f- первое число Фибоначчи, большее m (m>1). Вычислить s - сумму всех чисел Фибоначчи,...
Pascal двкмерный массив с суммой, составить двумерный массив, заполнить случайными числами, после чего вывести на экран сумму всех положительных чисел http://www.cyberforum.ru/pascal/thread198133.html
Pascal Задание паскаль (цыкл)(пока, повтор)
Вычислить приближенное значение бесконечной суммы (справа от суммы дается ее точное значение, с которым можно сравнить полученный ответ): 1/1*2 + 1/2*3 + 1/3*4 + .... 1 Нужное...
Задание паскаль (цикл) Pascal
Напечатать все составные числа из диапазона .
Pascal Вычислить значение выражения http://www.cyberforum.ru/pascal/thread198128.html
Дано натуральное число n. Вычислить: сумма(формула...) Добавлено через 1 час 34 минуты Формула: (-1)^(k+1) сумма от к=1 до n ---------------- ...
Pascal Записи Даны описания переменных: type имя = (Аня,Ваня,Валя,Женя,Юра)ж данные = record пол : 140..200 end. группа = array of данные; описать функцию высокий (ГР) для определения имени самого высокого... подробнее
Амазоночка
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 15
0

Модуль Graph, Crt

27.11.2010, 12:58. Просмотров 962. Ответов 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.

Вернуться к обсуждению:
Модуль Graph, Crt
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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru