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

Тема: Провертье программу под названием клумба

  1. #1 Провертье программу под названием клумба 
    Разбирающийся Аватар для Denis
    Регистрация
    24.10.2011
    Адрес
    РК ВКО Зыряновский район г Серебрянск
    Сообщений
    38
    Сказал(а) спасибо
    3
    Поблагодарили 0 раз(а) в 0 сообщениях
    Cls
    Print "KLUMBA"
    INPUT "введите кол-во роз: "; x, y
    Open "Inf_112.out" For Output As #1
    Print #1, USING; "##,##"; x; y
    Close
    m = x + y
    Open "Inf_112.in" For Output As #2
    For m = x To m Step 1
    If k / 3 = k \ 3 Then Print " k" Else Print " b"
    If k / 3 = k \ 3 Then Print #2, " k" Else Print #2, " b"
    k = k + 1
    Next m
    Close
    End
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    И сразу вопрос: что она должна делать?
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

  3. Пользователь сказал cпасибо:

    Denis (29.10.2011)

  4. #3  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Действительно, поведайте сначала о том, что должна делать программа. И тем не менее:
    Строка:
    Print #1, USING; "##,##"; x; y
    Должна быть записана так:
    PRINT #1, USING "##,##"; x; y
    Без ; после Using, а то не компилируется.

    Проверку If k / 3 = k \ 3 (как понимаю, проверка на деление без остатка) можно реализовать проще и быстрее:
    If K Mod 3 = 0 Then... (если остаток от деления на 3 = 0 то...).
    Дружба-магия-радость!
    Ответить с цитированием  
     

  5. Пользователь сказал cпасибо:

    Denis (29.10.2011)

  6. #4  
    Разбирающийся Аватар для Denis
    Регистрация
    24.10.2011
    Адрес
    РК ВКО Зыряновский район г Серебрянск
    Сообщений
    38
    Сказал(а) спасибо
    3
    Поблагодарили 0 раз(а) в 0 сообщениях
    ах да я забыл написать программа выводит в столбик буквы к и б столько раз сколько вы вевели но я немогу реализовать так чтоб она выдавала сообщение о том что если вы ввеличисло больше 100 то она начинает сначала но,в файл архива заносит сообщение типа NO SOLUTION
    Ответить с цитированием  
     

  7. #5  
    Разбирающийся Аватар для Denis
    Регистрация
    24.10.2011
    Адрес
    РК ВКО Зыряновский район г Серебрянск
    Сообщений
    38
    Сказал(а) спасибо
    3
    Поблагодарили 0 раз(а) в 0 сообщениях
    Абадябер я компилировал и все нормально ,но на будующее я учту
    Ответить с цитированием  
     

  8. #6  
    Разбирающийся Аватар для Denis
    Регистрация
    24.10.2011
    Адрес
    РК ВКО Зыряновский район г Серебрянск
    Сообщений
    38
    Сказал(а) спасибо
    3
    Поблагодарили 0 раз(а) в 0 сообщениях
    Абадябер я компилировал и все нормально ,но на будующее я учту нет вы ошибаетесь это не деление без остатка это проверка на четность но можно использывать и так
    Ответить с цитированием  
     

  9. #7  
    Разбирающийся Аватар для Denis
    Регистрация
    24.10.2011
    Адрес
    РК ВКО Зыряновский район г Серебрянск
    Сообщений
    38
    Сказал(а) спасибо
    3
    Поблагодарили 0 раз(а) в 0 сообщениях
    Уважаемые Абадябер, Dispetcher14, Dimon012 имеется ли увас логины в MAIL@RU если да то киньте авторизацию мне на [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  10. #8  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Цитата Сообщение от Denis Посмотреть сообщение
    ...но я немогу реализовать так чтоб она выдавала сообщение о том что если вы ввеличисло больше 100 то она начинает сначала но,в файл архива заносит сообщение типа NO SOLUTION
    Я так понял, что изначально в водится количество красных и белых цветов, в выводе их количество не совпадает с введенным, а именно вводим 3 и 4 (всего 7 цветов), вывод: k b b k b их всего 5??? Непонятно зачем использован такой сложный оператор PRINT #1, USING "##,##"; x; y using это вообще-то форматирование вывода нецелых чисел...
    Какое из двух вводимых чисел не должно быть более 100? Не понятно какой из двух файлов Вы называете файлом архива? Что значит начинает сначала? Пишите подробнее, проще и понятнее, поймите Вы пишите для людей которые не в курсе что Вам нужно...
    Последний раз редактировалось Dimon012; 29.10.2011 в 17:51.
    Ответить с цитированием  
     

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

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

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