Инструменты пользователя
msx:basic_dialogue_programming_language:012
Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
msx:basic_dialogue_programming_language:012 [2022-10-01 22:30] GreyWolf [Задача 41] |
msx:basic_dialogue_programming_language:012 [2023-02-19 16:24] (текущий) GreyWolf |
||
|---|---|---|---|
| Строка 6: | Строка 6: | ||
| <WRAP group 99%> | <WRAP group 99%> | ||
| <WRAP half column> \\ </WRAP> | <WRAP half column> \\ </WRAP> | ||
| - | <WRAP half column><WRAP justify> | + | <WRAP half column><WRAP right> |
| Программированию нельзя научить при помощи выполняемых под команду массовых вольных упражнений… В нем нужно упражняться индивидуально, как в хождении на лыжах и вождении автомобиля. | Программированию нельзя научить при помощи выполняемых под команду массовых вольных упражнений… В нем нужно упражняться индивидуально, как в хождении на лыжах и вождении автомобиля. | ||
| <WRAP rightalign> | <WRAP rightalign> | ||
| Строка 329: | Строка 329: | ||
| <WRAP group 99%> | <WRAP group 99%> | ||
| <WRAP half column> \\ </WRAP> | <WRAP half column> \\ </WRAP> | ||
| - | <WRAP half column><WRAP justify> | + | <WRAP half column><WRAP right> |
| Аналогичный случай был… | Аналогичный случай был… | ||
| <WRAP rightalign> | <WRAP rightalign> | ||
| Строка 379: | Строка 379: | ||
| <WRAP group 99%> | <WRAP group 99%> | ||
| <WRAP half column> \\ </WRAP> | <WRAP half column> \\ </WRAP> | ||
| - | <WRAP half column><WRAP justify> | + | <WRAP half column><WRAP right> |
| Совершенные числа красивы. Но известно, что красивые вещи редки и немногочисленны, безобразные же встречаются в изобилии. | Совершенные числа красивы. Но известно, что красивые вещи редки и немногочисленны, безобразные же встречаются в изобилии. | ||
| <WRAP rightalign> | <WRAP rightalign> | ||
| Строка 569: | Строка 569: | ||
| <WRAP group 99%> | <WRAP group 99%> | ||
| <WRAP half column> \\ </WRAP> | <WRAP half column> \\ </WRAP> | ||
| - | <WRAP half column><WRAP justify> | + | <WRAP half column><WRAP right> |
| Каждая истинная работа имеет свою красоту. | Каждая истинная работа имеет свою красоту. | ||
| <WRAP rightalign> | <WRAP rightalign> | ||
| Строка 731: | Строка 731: | ||
| <WRAP group 99%> | <WRAP group 99%> | ||
| <WRAP half column> \\ </WRAP> | <WRAP half column> \\ </WRAP> | ||
| - | <WRAP half column><WRAP justify> | + | <WRAP half column><WRAP right> |
| А вы, друзья, как ни садитесь,\\ | А вы, друзья, как ни садитесь,\\ | ||
| Всё в музыканты не годитесь. | Всё в музыканты не годитесь. | ||
| Строка 926: | Строка 926: | ||
| <WRAP group 99%> | <WRAP group 99%> | ||
| <WRAP half column> \\ </WRAP> | <WRAP half column> \\ </WRAP> | ||
| - | <WRAP half column><WRAP justify> | + | <WRAP half column><WRAP right> |
| Вся шахматная партия — это один замаскированный ход конём. | Вся шахматная партия — это один замаскированный ход конём. | ||
| <WRAP rightalign> | <WRAP rightalign> | ||
| Строка 935: | Строка 935: | ||
| <WRAP group 99%> | <WRAP group 99%> | ||
| <WRAP half column> \\ </WRAP> | <WRAP half column> \\ </WRAP> | ||
| - | <WRAP half column><WRAP justify> | + | <WRAP half column><WRAP right> |
| Трава не растёт там, где ступил мой конь. | Трава не растёт там, где ступил мой конь. | ||
| <WRAP rightalign> | <WRAP rightalign> | ||
| Строка 1163: | Строка 1163: | ||
| <WRAP group 99%> | <WRAP group 99%> | ||
| <WRAP half column> \\ </WRAP> | <WRAP half column> \\ </WRAP> | ||
| - | <WRAP half column><WRAP justify> | + | <WRAP half column><WRAP right> |
| Если в задаче меньше трёх переменных, это не задача; если больше восьми — она неразрешима. | Если в задаче меньше трёх переменных, это не задача; если больше восьми — она неразрешима. | ||
| <WRAP rightalign> | <WRAP rightalign> | ||
| Строка 1444: | Строка 1444: | ||
| 270 Y$=INKEY$ | 270 Y$=INKEY$ | ||
| 280 INPUT "А,может,Вы желаете извлечь корень? (Да/Нет)";Y$ | 280 INPUT "А,может,Вы желаете извлечь корень? (Да/Нет)";Y$ | ||
| - | 290 IF Y$="Д" OR Y$="д" THEN N$=T$:GOSUB 180:T=N:W=INT(SQR(T)):GOSUB 110:? "Корень из ";T$;" равен: ";C$:GOTO 400 | + | 290 IF Y$="Д" OR Y$="д" THEN N$=T$:GOSUB 180:T=N:W=INT(SQR(T)):GOSUB 110: |
| + | ? "Корень из ";T$;" равен: ";C$:GOTO 400 | ||
| 300 IF Y$="Н" OR Y$="н" THEN 310 ELSE 270 | 300 IF Y$="Н" OR Y$="н" THEN 310 ELSE 270 | ||
| 310 N$=T$:GOSUB 180:T=N:N$=L$:GOSUB 180:L=N | 310 N$=T$:GOSUB 180:T=N:N$=L$:GOSUB 180:L=N | ||
| Строка 1476: | Строка 1477: | ||
| 90 FOR J=1 TO K:PRINT C(J);:NEXT J:PRINT | 90 FOR J=1 TO K:PRINT C(J);:NEXT J:PRINT | ||
| 100 FOR J=K TO 1 STEP -1 | 100 FOR J=K TO 1 STEP -1 | ||
| - | 110 IF C(J)=N-K+J THEN NEXT J:GOTO 60 ELSE C(J)=C(J)+1:IF J+1>K THEN GOTO 60 ELSE FOR I=J+1 TO K:C(I)=C(I-1)+1:NEXT I:GOTO 60 | + | 110 IF C(J)=N-K+J THEN NEXT J:GOTO 60 ELSE C(J)=C(J)+1:IF J+1>K |
| + | THEN GOTO 60 ELSE FOR I=J+1 TO K:C(I)=C(I-1)+1:NEXT I:GOTO 60 | ||
| run | run | ||
| Укажите N и K? 3,2 | Укажите N и K? 3,2 | ||
| Строка 1491: | Строка 1493: | ||
| <WRAP group 99%> | <WRAP group 99%> | ||
| <WRAP half column> \\ </WRAP> | <WRAP half column> \\ </WRAP> | ||
| - | <WRAP half column><WRAP justify> | + | <WRAP half column><WRAP right> |
| Что наша "Жизнь"? Игра! | Что наша "Жизнь"? Игра! | ||
| <WRAP rightalign> | <WRAP rightalign> | ||
| Строка 1626: | Строка 1628: | ||
| <WRAP group 99%> | <WRAP group 99%> | ||
| <WRAP half column> \\ </WRAP> | <WRAP half column> \\ </WRAP> | ||
| - | <WRAP half column><WRAP justify> | + | <WRAP half column><WRAP right> |
| Один человек купил трёх коз и заплатил 3 рубля. \\ | Один человек купил трёх коз и заплатил 3 рубля. \\ | ||
| Спрашивается: по чему каждая коза пошла? | Спрашивается: по чему каждая коза пошла? | ||
| Строка 1664: | Строка 1666: | ||
| <WRAP group 99%> | <WRAP group 99%> | ||
| <WRAP half column> \\ </WRAP> | <WRAP half column> \\ </WRAP> | ||
| - | <WRAP half column><WRAP justify> | + | <WRAP half column><WRAP right> |
| Незатейливые головоломки о целых числах веками служили источником обновления математики. | Незатейливые головоломки о целых числах веками служили источником обновления математики. | ||
| <WRAP rightalign> | <WRAP rightalign> | ||
msx/basic_dialogue_programming_language/012.1664652605.txt.gz · Последние изменения: 2022-10-01 22:30 — GreyWolf
Инструменты страницы
Если не указано иное, содержимое этой вики предоставляется на условиях следующей лицензии: CC Attribution-Noncommercial-Share Alike 4.0 International
