С ПОМОЩЬЮ WHILE...

Тема в разделе "Информатика", создана пользователем Painkiller, 9 янв 2010.

  1. Painkiller

    Painkiller New Member

    С ПОМОЩЬЮ WHILE НАПИШИТЕ ПРОГРАММУ ВВОДА ВСЕХ НЕЧЁТНЫХ ЧИСЕЛ ОТ 1 ДО 100. ЭТО В QBASIC
     
    Painkiller, 9 янв 2010
    #1
  2. Gore

    Gore New Member

    s$ = ""
    FOR i = 1 TO 100
    IF (i MOD 2) <> 0 THEN
    s$ = s$ + STR$(i) + " "
    END IF
    NEXT i
    PRINT s$
     
     
    Дополнение :
     
    Чисел много, на экран не убираются
    Будем из запоминать в текстовую переменную s$
    s$ = "" -- Инициализирует пустую строковую переменную
    FOR i = 1 TO 100 -- цикл от 1 до 100
    IF (i MOD 2) <> 0 THEN -- нечетное число то, у которого отстаток от деления
    -- на 2 не равен 0
    -- <> логический оператор НЕ РАВНО
    -- MOD - оператор возвращает остаток от деления
    s$ = s$ + STR$(i) + " " -- Положить в конец переменной s$ строковое
    -- предствление числовой переменной i
    END IF -- конец блока цикла
    NEXT i
    PRINT s$ -- вывод переменной s$ на экран
     
    Gore, 9 янв 2010
    #2

Поделиться этой страницей

Наша группа