| задача на qbasic |
| katalist5296 | Дата: Вторник, 31.01.2012, 18:09 | Сообщение # 1 |
using XNA + MONO = SuperGame
Сообщений: 128
Сейчас нет на сайте
| Всем добрый вечер. Нужна помощь с задачей с меня +++
Найти и напечатать все трехзначные числа сумма кубов которых равна самому числу. Например: 407=4^3+0^3+7^3=64+0+343=407
Спасибо за внимание.3
Сообщение отредактировал katalist5296 - Вторник, 31.01.2012, 20:11 |
| |
| | |
| Rorschach | Дата: Вторник, 31.01.2012, 19:52 | Сообщение # 2 |
участник
Сообщений: 204
Сейчас нет на сайте
| Quote Найти и напечатать все трехзначные числа сумма кубов которых равна самому числу. Например: 407=43+03+73=64+0+343
Ничего не понял. Объясни по-человечески.
Never compromise. Not even in the face of Armageddon.
|
| |
| | |
| katalist5296 | Дата: Вторник, 31.01.2012, 20:12 | Сообщение # 3 |
|
using XNA + MONO = SuperGame
Сообщений: 128
Сейчас нет на сайте
| Rorschach, а так Quote 407=4^3+0^3+7^3=64+0+343=407
|
| |
| | |
| Rorschach | Дата: Вторник, 31.01.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.01.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.01.2012, 21:20 |
| |
| | |
| Coment | Дата: Вторник, 31.01.2012, 22:54 | Сообщение # 6 |
|
частый гость
Сообщений: 57
Сейчас нет на сайте
| Не примите за грубость и неуважение (мол я сам ничего не написали а еще приклепываюсь) Но ведь этот блок
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 Я чес слово без сарказма и обиды. Просто что-то похожее вчера дали на собеседовании (не взяли меня  ) Сказали создать сортировку массива базы данных по трем параметрам без SQL, JDBC итд. Короче сумбурно написал 
P.S. кстати цикл ( от 100 и до 999) лучше всего заменить на (1000) как у Rorschach-а хотя возможно в BASIC итак прокатит.
Сообщение отредактировал Coment - Вторник, 31.01.2012, 22:57 |
| |
| | |
| Rorschach | Дата: Вторник, 31.01.2012, 23:04 | Сообщение # 7 |
|
участник
Сообщений: 204
Сейчас нет на сайте
| Разумеется можно, но так как я писал код на языке отличном от того, который нужен был ТС, старался написать как можно более развернуто и показать какие переменные почему и откуда берутся. А так, вариант с циклом нам уже продемонстировал katalist5296. У меня же не было цели написать самый кошерный вариант 
Повезет в другой раз.
Never compromise. Not even in the face of Armageddon.
|
| |
| | |
| Coment | Дата: Вторник, 31.01.2012, 23:11 | Сообщение # 8 |
|
частый гость
Сообщений: 57
Сейчас нет на сайте
| Quote (Rorschach) Разумеется можно, но так как я писал код на языке отличном от того, который нужен был ТС, старался написать как можно более развернуто и показать какие переменные почему и откуда берутся.
Претензии снимаются
Quote (Rorschach) Повезет в другой раз.
Да думаю ту не везение, а мое не знание всех аспектов языка решает  Но все ровно спасибо за поддержку.
|
| |
| |
|
