Квадрат - Помощь студентам

Americana12 · 13.11.2013, 20:39

Ввести длину стороны квадрата и ширину границы и нарисовать звездочками квадрат.(прямоугольник)

пр.5 2
*****
** **
** **
** **
*****

Аватар · 13.11.2013, 21:50

Код:

CLEAR
@ 1,1 GET WidthValue SPINNER 1,5,80
READ
@ 2,1 GET HeightValue SPINNER 1,5,20
READ
FOR R=1 TO HeightValue
  FOR C=1 TO WidthValue
    IF R=1 .OR. R=HeightValue .OR. C<3 .OR. C>WidthValue-2
      @ R+2,C SAY '*'
    ELSE
      @ R+2,C SAY ' '
    ENDIF
  ENDFOR
ENDFOR

Poma][a · 13.11.2013, 21:52

Аватар, а если не секрет, то это какой язык?

UPDATE

Цитата:

я ему на FoxPro нарисовал квадратик

Спасибо!

Аватар · 13.11.2013, 21:54

Поскольку ТС без разницы на каком, я ему на FoxPro нарисовал квадратик

Arigato · 13.11.2013, 22:06

А что, верхняя и нижняя стороны всегда в одну звездочку толщиной?

Аватар · 13.11.2013, 22:10

ТС так же нарисовал вроде, все согласно ТЗ.

PS

Вообще-то ошибся - там еще ширину границы задавать, не досмотрел. У меня просто прямоугольник. ТС попросит, переделаю

ADD Переделал

Код:

CLEAR
@ 1,1 SAY 'Сторона'
@ 1,10 GET WidthValue SPINNER 1,10,20 DEFAULT 15
READ
@ 2,1 SAY 'Граница'
@ 2,10 GET HeightValue SPINNER 1,1,4 DEFAULT 2
READ
FOR R=1 TO WidthValue
  FOR C=1 TO WidthValue
    IF R<=HeightValue .OR. R>WidthValue-HeightValue .OR. C<=HeightValue .OR. C>WidthValue-HeightValue
      @ R+3,C SAY '*'
    ENDIF
  ENDFOR
ENDFOR

Americana12 · 13.11.2013, 22:44

Забыл отметить,что на c++ ,у меня не совсем верно выйодит,толщена не получается.

13.11.2013, 20:39	#1
Americana12 Новичок Джуниор Регистрация: 13.11.2013 Сообщений: 2	Квадрат Ввести длину стороны квадрата и ширину границы и нарисовать звездочками квадрат.(прямоугольник) пр.5 2 *** ***

13.11.2013, 21:50	#2
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Код: `CLEAR @ 1,1 GET WidthValue SPINNER 1,5,80 READ @ 2,1 GET HeightValue SPINNER 1,5,20 READ FOR R=1 TO HeightValue FOR C=1 TO WidthValue IF R=1 .OR. R=HeightValue .OR. C<3 .OR. C>WidthValue-2 @ R+2,C SAY '*' ELSE @ R+2,C SAY ' ' ENDIF ENDFOR ENDFOR` Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

13.11.2013, 21:54	#4
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Поскольку ТС без разницы на каком, я ему на FoxPro нарисовал квадратик Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

13.11.2013, 22:06	#5
Arigato Высокая репутация СуперМодератор Регистрация: 27.07.2008 Сообщений: 15,592	А что, верхняя и нижняя стороны всегда в одну звездочку толщиной? E-Mail: arigato.freelance@gmail.com

13.11.2013, 22:10	#6
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	ТС так же нарисовал вроде, все согласно ТЗ. PS Вообще-то ошибся - там еще ширину границы задавать, не досмотрел. У меня просто прямоугольник. ТС попросит, переделаю ADD Переделал Код: `CLEAR @ 1,1 SAY 'Сторона' @ 1,10 GET WidthValue SPINNER 1,10,20 DEFAULT 15 READ @ 2,1 SAY 'Граница' @ 2,10 GET HeightValue SPINNER 1,1,4 DEFAULT 2 READ FOR R=1 TO WidthValue FOR C=1 TO WidthValue IF R<=HeightValue .OR. R>WidthValue-HeightValue .OR. C<=HeightValue .OR. C>WidthValue-HeightValue @ R+3,C SAY '' ENDIF ENDFOR ENDFOR` Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию Последний раз редактировалось Аватар; 13.11.2013 в 22:33.*

13.11.2013, 22:44	#7
Americana12 Новичок Джуниор Регистрация: 13.11.2013 Сообщений: 2	. Забыл отметить,что на c++ ,у меня не совсем верно выйодит,толщена не получается.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Квадрат	program2001	Мультимедиа в Delphi	2	01.05.2012 13:11
Квадрат.Ур-ние С++	kolashik	Помощь студентам	10	06.10.2010 03:09
Возведение в квадрат	Polarbear	Помощь студентам	2	12.12.2009 14:05
ХИ квадрат	Vito89	Помощь студентам	3	25.10.2009 16:35