1 / 1 / 0
Регистрация: 25.12.2013
Сообщений: 26
1

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

04.03.2014, 21:05. Показов 2011. Ответов 1
Метки нет (Все метки)

Text46. Дан текстовый файл, каждая строка которого содержит изображения
нескольких чисел, разделенные пробелами (вещественные числа имеют
ненулевую дробную часть). Создать файл вещественных чисел, содержащий (в том же порядке) все числа из исходного файла, имеющие ненулевую дробную часть.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.03.2014, 21:05
Ответы с готовыми решениями:

Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого содержит символы
Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого...

Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого содержит символы
Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого...

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

Дан файл, каждая запись которого содержит тройки чисел
Добрый день. Помогите пожалуйста с прогой: Дан файл, каждая запись которого содержит тройки чисел,...

1
Модератор
Эксперт функциональных языков программированияЭксперт Python
33778 / 18815 / 3968
Регистрация: 12.02.2012
Сообщений: 31,559
Записей в блоге: 12
04.03.2014, 21:24 2
Лучший ответ Сообщение было отмечено Евгения_кибер как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.03.2014, 21:24
Помогаю со студенческими работами здесь

Создать файл, каждая строка которого в первой половине содержит больше отрицательных чисел, чем во второй
Дан числовой текстовый файл. Создать новый текстовый файл, каждая строка которого в первой половине...

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

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

Задан текстовый файл который содержит последовательность целых чисел.Упорядочить элементы которые имеют остаток L при делении числа на K.
Задан текстовый файл который содержит последовательность целых чисел.Упорядочить за возрастанием те...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru