задача на qbasic - Программирование - Basic

задача на qbasic

Дата: Вторник, 31 Января 2012, 18:09 | Сообщение # 1

using XNA + MONO = SuperGame

Сейчас нет на сайте

Всем добрый вечер. Нужна помощь с задачей с меня +++
Найти и напечатать все трехзначные числа сумма кубов которых равна самому числу. Например: 407=4^3+0^3+7^3=64+0+343=407
Спасибо за внимание.3

Сообщение отредактировал katalist5296 - Вторник, 31 Января 2012, 20:11

Rorschach

Дата: Вторник, 31 Января 2012, 19:52 | Сообщение # 2

участник

Сообщений: 204

Сейчас нет на сайте

Quote

Найти и напечатать все трехзначные числа сумма кубов которых равна самому числу. Например: 407=43+03+73=64+0+343

Ничего не понял. Объясни по-человечески.

Never compromise. Not even in the face of Armageddon.

katalist5296

Дата: Вторник, 31 Января 2012, 20:12 | Сообщение # 3

using XNA + MONO = SuperGame

Сообщений: 128

Сейчас нет на сайте

Rorschach, а так

Quote

407=4^3+0^3+7^3=64+0+343=407

Rorschach

Дата: Вторник, 31 Января 2012, 20:48 | Сообщение # 4

участник

Сообщений: 204

Сейчас нет на сайте

Неа, непонятно. Как 7^3 получилось 343?! Если я правильно понял задачу, вот решение на С, на васик перепишешь сам:

Code

     int a = 0;
     int b = 0;
     int c = 0;

     for(int i = 100; i<1000; i++)
     {
         a = i/100;                            // узнаем сколько сотен в нашем числе
         b = (i-a*100)/10;                 // узнаем сколько десятков в нашем числе, '%' - деление по модулю
         c = i%10;                            // узнаем сколько единиц в нашем числе
         if(pow(a,3)+pow(b,3)+pow(c,3) == i)         // pow(X,Y) возводит X в степень Y
         {
             printf("a == %d\n", a);
             printf("b == %d\n", b);
             printf("c == %d\n\n\n", c);
             printf("%d\n",i);

         }

  }

Never compromise. Not even in the face of Armageddon.

katalist5296

Дата: Вторник, 31 Января 2012, 21:19 | Сообщение # 5

using XNA + MONO = SuperGame

Сообщений: 128

Сейчас нет на сайте

жду варианты на qbasic а тебе Rorschach, все равно спасибо

Добавлено (31.01.2012, 21:19)
---------------------------------------------
немного подумав и посмотрев на пример Rorschach, получилось это

Code

REM
CLS
FOR i = 100 TO 999
S = 0
X = i
FOR j = 1 TO 3
D = X MOD 10
S = S + D * D * D
X = INT(X / 10)
NEXT j
IF i = S THEN PRINT i,
NEXT i
END

кому надо берите

Сообщение отредактировал katalist5296 - Вторник, 31 Января 2012, 21:20

Coment

Дата: Вторник, 31 Января 2012, 22:54 | Сообщение # 6

почетный гость

Сообщений: 85

Сейчас нет на сайте

Не примите за грубость и неуважение (мол я сам ничего не написали а еще приклепываюсь) Но ведь этот блок

Code

  a = i/100;                            // узнаем сколько сотен в нашем числе
           b = (i-a*100)/10;                 // узнаем сколько десятков в нашем числе, '%' - деление по модулю
           c = i%10;                            // узнаем сколько единиц в нашем числе
           if(pow(a,3)+pow(b,3)+pow(c,3) == i)         // pow(X,Y) возводит X в степень Y

можно ли тоже реализовать циклом? Ну а вдруг цифр будет больше? Писать очередную строку?

2 Rorschach Я чес слово без сарказма и обиды. Просто что-то похожее вчера дали на собеседовании (не взяли меня wink

) Сказали создать сортировку массива базы данных по трем параметрам без SQL, JDBC итд. Короче сумбурно написал dry

P.S. кстати цикл ( от 100 и до 999) лучше всего заменить на (1000) как у Rorschach-а хотя возможно в BASIC итак прокатит.

Сообщение отредактировал Coment - Вторник, 31 Января 2012, 22:57

Rorschach

Дата: Вторник, 31 Января 2012, 23:04 | Сообщение # 7

участник

Сообщений: 204

Сейчас нет на сайте

Разумеется можно, но так как я писал код на языке отличном от того, который нужен был ТС, старался написать как можно более развернуто и показать какие переменные почему и откуда берутся. А так, вариант с циклом нам уже продемонстировал katalist5296. У меня же не было цели написать самый кошерный вариант smile