Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
crab2000
1 / 1 / 1
Регистрация: 11.12.2009
Сообщений: 29
#1

Файлы - Pascal

19.02.2010, 12:44. Просмотров 311. Ответов 1
Метки нет (Все метки)

type stroka=array [0..100] of char; textfile=file of char; Описать процедуру cifer(s,t),которая записывает в текст t все цифры из строки s.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.02.2010, 12:44
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Файлы (Pascal):

Файлы
Доброго времени суток возник вопросик: Дан текстовой файл и некоторое слово....

файлы
имеется файл,который состоит из ФИО, 5 зачетов, 5 оценок. получить новый...

файлы
в общем есть текстовый файл, в нем 10 слов, как эти слова можно записать в...

файлы
Не подскажете где ошибка? program files; const nmax=10; ...

Файлы\\
заданы файлы f1, f2, f3, f4, f5, компонентами которого являються действительные...

Файлы
Дан файл Товар, содержащий сведения об экспортируемых товарах: 1) наименование...

1
Vovan-VE
13148 / 6532 / 1038
Регистрация: 10.01.2008
Сообщений: 15,071
19.02.2010, 18:33 #2
Лучший ответ Сообщение было отмечено crab2000 как решение

Решение

Pascal
1
2
3
4
5
6
7
procedure cifer(s:stroka; var f:textfile);
var i:Intreger;
begin
    for i:=0 to 100 do begin
        if (s[i] >= '0') and (s[i] <= '9') then write(f, s[i]);
    end;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.02.2010, 18:33
Привет! Вот еще темы с решениями:

Файлы.
дополнение каждой сроки заданым символом таким образом, чтобы ее длина стала...

Файлы
Уважаемые модератоы. Помогите, пожалуйста с решением, если это не составит...

файлы
надо позарез&quot;&quot;&quot; Прямо сейчас!!!!!!!!!! Дано два файла g1 и g2, содержащих...

Файлы
1. Дан текстовый файл. Вывести строку, содержащую максимальное ...


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

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

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