Cформировать новый массив B из отрицательных элементов одномерного массива А. Ввести результаты с клавиатуры, из тела цикла(операторы DATA READ) и из файла LABRAB8.BAS — QBasic(Бейсик)

disel

Предварительно создаём файл, в который пишем числа через пробел, можно в несколько строк, и называем его LABRAB8.BAS

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
CLS
DIM a(1000)
OPEN "LABRAB8.BAS" FOR INPUT AS #1
DO WHILE NOT EOF(1)
k = k + 1
INPUT #1, a(k)
LOOP
CLOSE
FOR i = 1 TO k
IF a(i) < 0 THEN n = n + 1: b(n) = a(i)
NEXT
OPEN "output.txt" FOR OUTPUT AS #2
FOR i = 1 TO n
WRITE #2, b(i)
NEXT
close

Следующий вариант

1
2
3
4
5
6
7
8
9
10
11
12
13
14
CLS
DIM a(1000)
OPEN "LABRAB8.BAS" FOR INPUT AS #1
DO WHILE NOT EOF(1)
    k = k + 1
    INPUT #1, a(k)
LOOP
CLOSE
FOR i = 1 TO k
    IF a(i) < 0 THEN n = n + 1: b(n) = a(i)
NEXT
FOR i = 1 TO n
    PRINT b(i)
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment