Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Genius94
1 / 1 / 0
Регистрация: 21.11.2011
Сообщений: 112
1

Файл символов. Все цифры записать во второй файл, а остальные символы - в третий файл

14.06.2012, 10:11. Просмотров 665. Ответов 1
Метки нет (Все метки)

Имеется файл, элементами которого являются отдельные символы. Все цифры записать во второй файл, а остальные символы - в третий файл. Порядок следования сохраняется.помогите плиз
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2012, 10:11
Ответы с готовыми решениями:

Все цифры числа первого файла записать во второй файл, а остальные символы - в третий файл
Имеется файл, элементами которого являютса отдельные символы. Все цифры числа...

Записать в файл g все строки длиной менее 10 символов, а в файл h - все остальные строки
Дан текстовый файл f. Записать в файл g все строки длиной менее 10 символов, а...

Все четные числа файла записать во второй файл, а нечетные — в третий
Имеется файл, элементами которого являются целые числа. Все четные числа этого...

Создать файл произвольных символов: Вывести в один файл цифры, содержащиеся в файле, а в другой файл литеры
Создать файл произвольных символов. Вывести в один файл цифры, содержащиеся в...

Создать файл из N чисел. Вывести содержимое на экран. Заменить отрицательные элементы на 5 остальные на 0. Записать в новый файл
1. Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на...

1
CodeR
Фрилансер
3384 / 2785 / 3000
Регистрация: 08.02.2012
Сообщений: 6,830
Записей в блоге: 1
14.06.2012, 10:31 2
Лучший ответ Сообщение было отмечено Genius94 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Var f,g,h:file of char;
    c:char;
    i,n:integer;
Begin
    Assign(f,'a1.dat');Rewrite(f);
    writeln('Введите кол-во символов для заполнения: ');readln(n);
    For i:=1 to n do
     Begin
      write('Введите ',i,'-ый символ: ');readln(c);
      write(f,c);
     End;
    Reset(f);
    Assign(g,'a2.dat');Rewrite(g);
    Assign(h,'a3.dat');Rewrite(h);
    While not Eof(f) do
     Begin
      read(f,c);
      if c in ['0'..'9'] then write(g,c) 
       else write(h,c);
     End;
    Close(f);Close(g);Close(h);
    writeln('Формирование окончено!');
    readln;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2012, 10:31

В первый файл поместить первые n слов, во второй все остальные
1) Создать программу, в которой любой, созданный ранее текстовый файл,...

Записать во второй файл все симметрические матрицы из первого, а в третий – остальные
Здравствуйте. Помогите пожалуйста решить задачку. В первом файле хранится k...

Все четные числа файла записать во второй файл, а нечетные — в третий файл
Имеется файл, элементами которого являются целые числа. Все четные числа этого...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru