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

Тема: y=n!-m!

  1. #1 y=n!-m! 
    Новичок
    Регистрация
    07.01.2012
    Сообщений
    6
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Вычислить y=n!-m! в QBasic

    Помогите пожалуйста
    Ответить с цитированием  
     

  2. #2  
    Профи
    Регистрация
    31.10.2011
    Адрес
    Планета Земля
    Сообщений
    117
    Сказал(а) спасибо
    7
    Поблагодарили 9 раз(а) в 8 сообщениях
    Вот код программы:
    Код :
    DIM M, N AS INTEGER 
    DIM FactM, FactN AS INTEGER
    CLS 
     
    PRINT "Введите число N" 
    INPUT N
    PRINT "Введите число M"
    INPUT M
     
    FactM = 1
    FactN = 1
     
    FOR i = 1 TO M
    FactM = FactM * i
    NEXT i
     
    FOR i = 1 TO N
    FactN = FactN * i
    NEXT i
     
    PRINT "Факториал числа N="; N; "равен"; FactN
    PRINT "Факториал числа M="; M; "равен"; FactM
    y = FactN - FactM
     
    PRINT "Выражение y = n! - m!"; " "; "равно"; y

    P.S Факториал от какого-либо числа - произведени всех чисел - от 1 до этого числа.
    Например факториал от числа 4 равен произведению: "1 x 2 x 3 x 4", т.е 24.
    А факториал числа 3 равен произведению: "1 x 2 x 3", т..е числу 6.

    Обозначается он как: "n!" , где n-любое число, а значок "!" - обозначает факториал.
    Последний раз редактировалось Doomer_; 10.01.2012 в 16:47.
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    07.01.2012
    Сообщений
    6
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    спасибо большое Вам за помощь!
    я составила текст программы такой:
    CLS
    INPUT "Введите n:",n
    f=1
    for i=1 to n
    f=f*i
    Next
    Print "n!=",f
    INPUT "Введите m:",m
    f1=1
    for i=1 to m
    f1=f1*i
    Next
    Print "m!=",f1
    y=f-f1
    Print "Значение выражения y=n!-m! равно:", y
    end

    А блок-схему той программы которую Вы составили можете написать?
    Ответить с цитированием  
     

  4. #4  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    По сути вы сделали то же самое, что и Doomer_, только в другом порядке)
    Да и у вас есть ошибка: после next необходимо указывать имя переменной, которая я вляется счётчиком, т.е. в вашем случае:
    Код qbasic:
    f=1
    FOR i=1 TO n
    f=f*i
    NEXT i
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

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

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

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

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

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