Дан файл f, компоненты которого являются действительными числами.Найти последнюю компоненту файла. Если она положительна,заменить ею первую компоненту файла — QBasic(Бейсик)

disel

Чтобы программа работала создадите файл с именем «f» в той папке, где находится Qbasic и запишите в него любые числовые значения, разделенные запятой, пробелом или переводом строки

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
CLS
DIM a(1000)
OPEN "f" FOR INPUT AS #1
PRINT "ishodniye komponenti faila f"
i = 0
DO WHILE NOT EOF(1)
    i = i + 1
    INPUT #1, a(i)
    PRINT a(i);
LOOP
CLOSE #1
PRINT: PRINT
 
IF a(i) > 0 THEN
    a(1) = a(i)
    OPEN "f" FOR OUTPUT AS #1
    FOR k = 1 TO i
        PRINT #1, a(k);
    NEXT k
    CLOSE #1
END IF
 
OPEN "f" FOR INPUT AS #1
PRINT "komponenti faila f posle preobrazovaniy"
DO WHILE NOT EOF(1)
    i = i + 1
    INPUT #1, a(i)
    PRINT a(i);
LOOP
CLOSE #1

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

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

Leave a Comment