Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
1 / 1 / 0
Регистрация: 25.12.2013
Сообщений: 26
1

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

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


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

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

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

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

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

1
Модератор
Эксперт Python
28354 / 15254 / 3009
Регистрация: 12.02.2012
Сообщений: 24,978
Записей в блоге: 4
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® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.