Рисуем КУБ
Друзья, добрый день.
Нужно составить программу, которая рисует куб в центре графического окна (см. рисунок ниже). Окно должно появляться в центре экрана и иметь заголовок: “Куб”. Размер стороны передней грани куба (S) должен задаваться с клавиатуры. Расстояние от куба до верхней, правой, нижней и левой границ окна равно 1/4 размера стороны передней грани куба (S/4).

Рассмотрим куб, стороны которого раскрашены в некоторые цвета. Его всегда можно будет повернуть.

как написать на я зыке паскаль куб числа? и какие вобще есть команды?

Нужно нарисовать Куб

Создать программу в которой нужно ввести число с клавиатуры и оно должно возвестись в куб и вывести.
Просто АВС или АВС.net?
Добавлено через 11 минут
ZX Spectrum-128, Там не такой.
Решение
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
Элементы матрицы возвести в куб
Надо написать программу которая каждый элемент двойного масива, возведет в куб, надо вывести.
Куб, который нужно вращать мышкой
Используя графическую библиотеку языка и не используя специализированных процедур, кроме базовых.
Нарисовать куб, создав свой модуль
Нужно создать модуль, в нем нарисовать кубик (картинка кубика во вложении). И написать программу.

Составить программу, которая запрашивает у пользователя целое число и выводит квадрат, куб и пятую.

Нарисовать в Turbo Pascal следующее изображение:
Рисуем треугольник
Нарисуйте треугольник по данным, введенным пользователем. Цвет линий и стиль заполнения.
Источник статьи: http://www.cyberforum.ru/pascalabc/thread2083840.html
Как сделать куб в паскале
Exp паскаль
Автор Андрей Рыбаков задал вопрос в разделе Другие языки и технологии
как в паскале записать число в кубе? и получил лучший ответ
Ответ от [WinneR][гуру]x*x*x или sqr(x)*x, где sqr — возведение в квадрат
Ответ от Lom[гуру]Используй следующую формулу:
То есть в твоем случаи получается так:
exp(3*ln(x))
Возведение в степень в турбо паскале
На твоем примере это будет выглядеть так:
лабораторные работы и задачи по программированию и информатике, егэ по информатике













Графика в Паскале
Для работы с графикой в pascal abc используется модуль GraphABC. Для его подключения используется следующий код:
uses GraphABC; begin . end.
Система координат в Паскале соответствует экранной системе координат и выглядит следующим образом:
Управление цветом
Для того, чтобы использовать цвет, необходимо применить этот цвет к инструменту перо:
- SetPenColor(color) — устанавливает цвет пера, задаваемый параметром color;
- setBrushColor(color) — устанавливает цвет кисти, задаваемый параметром color;
- либо для палитры RGB: SetPenColor(rgb(0-255, 0-255, 0-255));
или использовать для заливки:
FloodFill(x,y,color) — заливает область одного цвета цветом color, начиная с точки (x,y).
После чего можно использовать процедуры для рисования геометрических фигур.
clBlack – черный
clPurple – фиолетовый
clWhite – белый
clMaroon – темно-красный
clRed – красный
clNavy – темно-синий
clGreen – зеленый
clBrown – коричневый
clBlue – синий
clSkyBlue – голубой
clYellow – желтый
clCream – кремовый
clAqua – бирюзовый
clOlive – оливковый
clFuchsia – сиреневый
clTeal – сине-зеленый
clGray – темно-серый
clLime – ярко-зеленый
clMoneyGreen – цвет зеленых денег
clLtGray – светло-серый
clDkGray – темно-серый
clMedGray – серый
clSilver – серебряный
Точки, отрезки и ломаные
Для отображения точки в паскале используется процедура:
SetPixel(x,y,color) — Закрашивает один пиксел с координатами (x,y) цветом color
uses GraphABC; begin SetPixel(300,200,clred); end.
Для рисования линии используется:
Line(x1,y1,x2,y2) — рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2)
uses GraphABC; begin SetPenColor(clgreen); line(100,50,500,250); end.
Ломаные можно рисовать с помощью процедур MoveTo (x1, y1) и LineTo (x2, y2) .
Процедуры работают в паре: MoveTo передвигает курсор в определенную точку, а процедура LineTo рисует линию с этой точки до точки, определенной параметром данной процедуры.
uses GraphABC; begin . SetPenColor(clblue); MoveTo (x1, y1); LineTo (x2, y2); LineTo (x3, y3); LineTo (x4, y4); LineTo (x5, y5); end.
Для установки размеров графического окна используется процедура
SetWindowSize(ширина, высота)
Рисование фигур
uses GraphABC; begin Rectangle(50,50,200,200); end.
uses GraphABC; begin Rectangle(50,50,200,200); FloodFill(100,100,clBlue); end.
Line(x1,y1,x2,y2);
LineTo(x,y);
uses GraphABC; begin setpenwidth(20); setpencolor(clred); moveTo(300,100); lineTo(500,300); lineto(100,300); lineto(300,100); floodfill(300,200,clgreen); end.
uses GraphABC; begin Circle(500,200,100); FloodFill(500,200,clred); end.
uses GraphABC; Begin SetPenWidth(10); Arc(300,250,150,45,135); end.
Функция random для использования окраски
* раскрасить круги случайным цветом
Нарисовать штриховку на Паскале можно, используя процедуры рисования прямоугольника и линии:
Программа будет выглядеть следующим образом:
uses graphABC; var i, x1, x2, y1, y2, N: integer; h, x: real; begin x1 := 100; y1 := 100; x2 := 300; y2 := 200; N := 10; Rectangle (x1, y1, x2, y2); h := (x2 — x1) / (N + 1); x := x1 + h; for i:=1 to N do begin Line(round(x), y1, round(x), y2); x := x + h; end; end.
Анимация в Паскале
Анимация в программировании заключается в том, что сначала рисуется фигура цветным инструментом, затем с тем же координатами рисуется та же фигура белым цветом. После чего происходит сдвиг фигуры и действия повторяются.
uses GraphABC; var x:integer; begin x:=40; repeat SetPenColor(clWhite); Circle(x,100,10); SetPenColor(clBlack); Circle(x,100,10); x:=x+1 until x>600; end.
Задача
Вывести на экран кубы чисел от A до B, которые вводит пользователь.
Решение
Для решения задачи используется цикл for.
Программа на языке Паскаль:
Пользователь может ввести значения так, что a будет больше b. В таком случае цикл for не выполнится.
Действительно, if здесь лишнее. Оно имеет смысл только в случае, когда обрабатывается ситуация, где значение b меньше, чем a:
Источник статьи: http://ligabeatbox.ru/kak-sdelat-kub-v-paskale/














