Технический форум - Ввод и вывод чисел

Технический форум (http://www.tehnari.ru/)

- Basic (http://www.tehnari.ru/f127/)

- - Ввод и вывод чисел (http://www.tehnari.ru/f127/t249735/)

iks2	31.10.2016 12:33

Ввод и вывод чисел

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

iks2	01.11.2016 12:30

Вариант 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

Вариант 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

Вариант 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

Вариант 4.

Код:

DECLARE SUB ABC ()



CLS

CALL ABC

END



SUB ABC

   INPUT A

   IF A THEN CALL ABC

   PRINT A;

END SUB

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