Дан текстовый файл,каждая строка которого содержит изображения нескольких чисел,разделенные пробелами(вещественные числа имеют ненулевую дробную часть

@Евгения_кибер · Регистрация: 25.12.2013

Text46. Дан текстовый файл, каждая строка которого содержит изображения
нескольких чисел, разделенные пробелами (вещественные числа имеют
ненулевую дробную часть). Создать файл вещественных чисел, содержащий (в том же порядке) все числа из исходного файла, имеющие ненулевую дробную часть.

@Catstail · 04.03.2014, 21:24

Visual Basic

Sub Task(finp as string,fout as string)
    fi%=freefile
    open finp for input as #fi%
    fo%=freefile
    open fout for binary access write as #fo%
    Do While (Not EOF(fi%))
        Line input #fi%,Stri$
        Arr=Split(Stri$," ")
        for i%=0 to Ubound(Arr,1)
            s$=Arr(i%)
            if len(s$) > 0 then
              Z#=Val(s$)
              if Abs(Z#-Fix(Z#)) >= 1E-14 then Put #fo%,,Z# 
            end if 
        Next i%
    Loop
    Close #fi%
    Close #fo%
End Sub

@Евгения_кибер 1 / 1 / 0 Регистрация: 25.12.2013 Сообщений: 26
		1
	Дан текстовый файл,каждая строка которого содержит изображения нескольких чисел,разделенные пробелами(вещественные числа имеют ненулевую дробную часть 04.03.2014, 21:05. Просмотров 1455. Ответов 1 Метки нет (Все метки) Text46. Дан текстовый файл, каждая строка которого содержит изображения нескольких чисел, разделенные пробелами (вещественные числа имеют ненулевую дробную часть). Создать файл вещественных чисел, содержащий (в том же порядке) все числа из исходного файла, имеющие ненулевую дробную часть. 0

Опции темы

Дан текстовый файл,каждая строка которого содержит изображения нескольких чисел,разделенные пробелами(вещественные числа имеют ненулевую дробную часть

Решение