Важная информация
Показано с 1 по 4 из 4

Тема: Магические квадраты

  1. #1 Магические квадраты 
    Модератор Аватар для pingvin
    Регистрация
    11.02.2011
    Сообщений
    389
    Сказал(а) спасибо
    80
    Поблагодарили 75 раз(а) в 48 сообщениях
    Условие задачи во вложении. Совсем не понимаю как такое решить
    Изображения
    Последний раз редактировалось pingvin; 23.04.2011 в 19:24.
    Ответить с цитированием  
     

  2. #2  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Для начала постарайся найти более четкую картинку, где все можно прочитать, при этом не вырывая себе глаза . А то я разобрал пару слов, и забил вскоре - слишком мелко.
    Дружба-магия-радость!
    Ответить с цитированием  
     

  3. #3  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Вот более четкая картинка. Будем думать
    Изображения
    Дружба-магия-радость!
    Ответить с цитированием  
     

  4. #4  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Как и договаривались с автором темы. Не смотря на то, что программка должна быть написана на C, я выкладываю на бейсике. Останется лишь перевести ее на язык C - алгоритм то один и тот же
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ] SUB PrintSqr (Arr() [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], XSize%, YSize%)
     
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] Size%
    DO
        [Ссылки могут видеть только зарегистрированные пользователи. ] "Size: ", Size%
    LOOP UNTIL (Size% / 2) <> (Size% \ 2) [Ссылки могут видеть только зарегистрированные пользователи. ] Size% < 30
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] Sq(Size%, Size%) [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] X%, Y%, Value%
    X% = Size% \ 2 + 1: Y% = 1: Value% = 1
    Sq(X%, Y%) = Value%
    DO
        Value% = Value% + 1
        X% = X% + 1: Y% = Y% - 1
     
        IF X% > Size% [Ссылки могут видеть только зарегистрированные пользователи. ] Y% < 1 THEN
            X% = X% - 1: Y% = Y% + 2
        ELSEIF X% > Size% THEN
            X% = 1
        ELSEIF Y% < 1 THEN
            Y% = Size%
        [Ссылки могут видеть только зарегистрированные пользователи. ] IF
     
        IF Sq(X%, Y%) > 0 THEN
            Y% = Y% + 2: X% = X% - 1
            IF Y% > Size% THEN Y% = 1
        [Ссылки могут видеть только зарегистрированные пользователи. ] IF
     
        Sq(X%, Y%) = Value%
    LOOP UNTIL Value% = Size% * Size%
     
    CALL PrintSqr(Sq(), Size%, Size%)
     
    SUB PrintSqr (Arr() [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], XSize%, YSize%)
        [Ссылки могут видеть только зарегистрированные пользователи. ] X [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], Y [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
        FOR Y = 1 TO YSize%
            FOR X = 1 TO XSize%
                [Ссылки могут видеть только зарегистрированные пользователи. ] Arr(X, Y);
            NEXT X
            [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ](10)
        NEXT Y
    [Ссылки могут видеть только зарегистрированные пользователи. ] SUB
    Дружба-магия-радость!
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

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