Технический форум

Технический форум (http://www.tehnari.ru/)
-   Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)
-   -   Помогите написать программу в Pascal (http://www.tehnari.ru/f43/t271386/)

goldi003 19.05.2021 13:24

Помогите написать программу в Pascal
 
Разработать программу,, которая на вход получает 4 числа (X,Y,K,N);На экран выводится N квадратов с координатами X,X1,Y,Y1 на расстояние между квадратами, K;

Vladimir_S 19.05.2021 13:42

Цитата:

Сообщение от goldi003 (Сообщение 2754582)
Разработать программу,, которая на вход получает 4 числа (X,Y,K,N);На экран выводится N квадратов с координатами X,X1,Y,Y1 на расстояние между квадратами, K;

Уточните:
1. О каком Паскале речь? Объясню: если это Turbo (Free) Pascal с Borland-графикой, то без проблем, а вот если Pascal ABC и его клоны, то — увы, не владею.
2. Что означают переменные X, X1, Y, Y1? Почему X1 и Y1 не задаются? Или они произвольны? И в каких единицах задаются X, Y и K? В пикселах?

AlexZir 19.05.2021 15:28

Если нужно выводить квадраты, то со стороной более менее понятно, она вычисляется как Y-X. Тогда X1 и Y1 тоже легко вычислить. Только непонятно, почему в таком порядке координаты для отрисовки прямоугольника задаются, ну да фиг с ним, пусть остается на совести составителя задачи.

Алгоритм решения следующий:
1. Вводим исходные значения
2. Вычисляем длину стороны a:=Y-X
3. Заводим цикл от 1 до N
3.1 Отрисовываем прямоугольник с координатами (X,X+a,Y,X+a)
3.2 Изменяем координаты X:=X+a+K и Y:=Y+a+K

Раз не удосужились указать версию Pascal, то алгоритм портируете сами :)


Часовой пояс GMT +4, время: 12:34.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.