Меняем местами рубли и копейки (ошибка)

@Dr.House · Регистрация: 28.10.2010

Студворк — интернет-сервис помощи студентам

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
CLS
 
INPUT "Vvedite M (M<51): "; M
INPUT "Vvedite R: "; R
INPUT "Vvedite K: "; K
 
 
LET P = 1
LET i = 0
DO
    LET i = i + 1
    LET P = R * 100 + K - M
    IF P > 0 THEN
        LET K = INT(P / 100)
        LET R = P - K * 100
        IF (100 * R + K) > P + M THEN LET t = i
    END IF
LOOP UNTIL P <= 0
 
PRINT t

Вот в чем суть программы: У человека есть R рублей и К копеек. Он отдает М копеек и всего его копейки становятся рублями, а рубли - копейками. Когда вот так вот отдавать М копеек - можно денег получить больше, чем у тебя было сначало. Программа считает на который раз человек получит макс прибыль. Например:
М=29
R=46
K=47
Ответ: 3

Но вот программа у меня загружает процессор на 100% если я вписываю:
М=1
R=99
K=0

Как мне ее подправить, чтобы она работала и с большими числами? (т.е. при малом целом М)

@softmob · 30.10.2010, 21:17

попробуй так, вроде работает

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
n = 1000
DIM a(n)
INPUT "vvedite r"; r
INPUT "vvedite k"; k
INPUT "vvedite m"; m
r = r * 100
DO
    i = i + 1
    s = r + k - m
    r1 = (s MOD 100)
    k = (s - r1) / 100
    r = r1 * 100
    w = r + k
    IF w > s THEN a(i) = w
LOOP UNTIL i = n
c = 0
FOR i = 1 TO n
    IF a(i) > c THEN c = a(i): z = i
NEXT
PRINT "otvet ="; z
END

@Dr.House · 30.10.2010, 21:36 **[ТС]**

Да, спасибо большое!! Теперь работает как надо)

@softmob · 30.10.2010, 21:41

сменил последовательность запросов на r,k,m. если ввожу 46,47,29 и ответ 3.

@Dr.House · 30.10.2010, 21:46 **[ТС]**

Да да, я сначала не заметил и сразу кинулся проверять)) Потом вник, и понял, что вы поменяли попросту буквы)) Спасибо большое!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Dr.House 0 / 0 / 0 Регистрация: 28.10.2010 Сообщений: 10
	30.10.2010, 21:36 [ТС]
	Да, спасибо большое!! Теперь работает как надо) 0

@softmob 1255 / 705 / 359 Регистрация: 20.02.2010 Сообщений: 1,035
	30.10.2010, 21:41
	сменил последовательность запросов на r,k,m. если ввожу 46,47,29 и ответ 3. 1

@Dr.House 0 / 0 / 0 Регистрация: 28.10.2010 Сообщений: 10
	30.10.2010, 21:46 [ТС]
	Да да, я сначала не заметил и сразу кинулся проверять)) Потом вник, и понял, что вы поменяли попросту буквы)) Спасибо большое! 0