Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 19.05.2021, 13:24   #1 (permalink)
goldi003
Новичок
 
Регистрация: 19.05.2021
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите написать программу в Pascal

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

Старый 19.05.2021, 13:24
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Ознакомьтесь с данными темами и вы наверняка найдете что то важное

Pascal Написать программу помогите help
Помогите написать программу на Pascal
Помогите написать программу в Pascal
Помогите написать программу на PASCAL

Старый 19.05.2021, 13:42   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,775
Сказал(а) спасибо: 339
Поблагодарили 579 раз(а) в 207 сообщениях
Репутация: 112176
По умолчанию

Цитата:
Сообщение от goldi003 Посмотреть сообщение
Разработать программу,, которая на вход получает 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? В пикселах?
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 19.05.2021, 15:28   #3 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,498
Записей в дневнике: 64
Сказал(а) спасибо: 148
Поблагодарили 182 раз(а) в 78 сообщениях
Репутация: 71464
По умолчанию

Если нужно выводить квадраты, то со стороной более менее понятно, она вычисляется как 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, то алгоритм портируете сами
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.