Работа с файлами

SMS13

Помогите ,пожалуйста, с написание программы.Даже не представляю как она должна выглядеть.А сделать надо срочно... Дан файл f, компоненты которого являются действительными числами.Найти последнюю компоненту файла. Если она положительна,заменить ею первую компоненту файла.
2 ответа

SMS13

Чтобы программа работала создадите файл с именем "f" в той папке, где находится Qbasic и запишите в него любые числовые значения, разделенные запятой, пробелом или переводом строки.
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


SMS13

Lyohich84,огромное спасибо!))