Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Basic


Ответ
 
Опции темы Опции просмотра
Старый 31.10.2016, 12:33   #1 (permalink)
iks2
Member
 
Регистрация: 22.10.2016
Сообщений: 62
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Ввод и вывод чисел

Требуется написать программу, которая будет запрашивать ввести число. После введения нуля программа должна вывести все введенные числа на экран в обратном порядке.
iks2 вне форума   Ответить с цитированием

Старый 31.10.2016, 12:33
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Рекомендую вам потратить минутку и прочитать схожие обсуждения

Блоковый ввод-вывод
Консольный ввод-вывод Ассемблер MASM
Ввод-вывод в языке Си
Pascal ABC: File23. Дан файл вещественных чисел, создать файл целых чисел
WmbuySell - обмен, ввод-вывод Вебмани

Старый 01.11.2016, 12:30   #2 (permalink)
iks2
Member
 
Регистрация: 22.10.2016
Сообщений: 62
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Вариант 1.

Код:
CLS
DIM A(1 TO 999)

DO
   i = i + 1
   INPUT A(i)
LOOP UNTIL A(i) = 0

FOR j = i TO 1 STEP -1
   PRINT A(j);
NEXT
END
iks2 вне форума   Ответить с цитированием
Старый 01.11.2016, 12:53   #3 (permalink)
iks2
Member
 
Регистрация: 22.10.2016
Сообщений: 62
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Вариант 2.

Код:
CLS
OPEN "1.txt" FOR RANDOM AS #1 LEN = 4

DO
   i = i + 1
   INPUT A
   PUT #1, i, A
LOOP UNTIL A = 0

FOR j = i TO 1 STEP -1
   GET #1, j, A
   PRINT A;
NEXT
END
iks2 вне форума   Ответить с цитированием
Старый 01.11.2016, 14:44   #4 (permalink)
iks2
Member
 
Регистрация: 22.10.2016
Сообщений: 62
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Вариант 3.

Код:
CLS
DIM s AS STRING
DIM t AS STRING
CONST p = " "
s = s + p

DO
   INPUT t
   s = t + p + s
LOOP UNTIL t = "0"

s = p + s
k1 = 1

DO
   k2 = INSTR(k1 + 1, s, p)
   t = MID$(s, k1 + 1, k2 - 1 - k1)
   PRINT VAL(t);
   k1 = k2
LOOP UNTIL k2 = LEN(s)
END
iks2 вне форума   Ответить с цитированием
Старый 02.11.2016, 12:58   #5 (permalink)
iks2
Member
 
Регистрация: 22.10.2016
Сообщений: 62
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Вариант 4.

Код:
DECLARE SUB ABC ()

CLS
CALL ABC
END

SUB ABC
   INPUT A
   IF A THEN CALL ABC
   PRINT A;
END SUB
iks2 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 09:08.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.