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

@SMS13 · Регистрация: 14.06.2010

Студворк — интернет-сервис помощи студентам

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

@Lyohich84 · 14.06.2010, 22:50

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

PureBasic

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 · 15.06.2010, 20:20 **[ТС]**

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

@SMS13 2 / 2 / 0 Регистрация: 14.06.2010 Сообщений: 13
		1
	Работа с файлами 14.06.2010, 20:14. Показов 2818. Ответов 2 Метки нет (Все метки) Помогите ,пожалуйста, с написание программы.Даже не представляю как она должна выглядеть.А сделать надо срочно... Дан файл f, компоненты которого являются действительными числами.Найти последнюю компоненту файла. Если она положительна,заменить ею первую компоненту файла. 0

@SMS13 2 / 2 / 0 Регистрация: 14.06.2010 Сообщений: 13
	15.06.2010, 20:20 [ТС]	3
	Lyohich84,огромное спасибо!)) 0

Опции темы

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

Решение