Главная » Статьи » Задачи в паскале » 2013

Имеется файл, в котором записаны некоторые числа и слова. Создать два файла: в одном только слова, во втором числа. Задача в паслале
Имеется файл, в котором записаны некоторые числа и слова. Создать два файла: в одном только слова, во втором числа (из первого файла).  

РЕШЕНИЕ.

program p; 

var f,w,c:text; s:string; x,k:integer; 
begin 
assign(w,'w.txt');rewrite(w); 
assign(c,'c.txt');rewrite(c); 
assign(f,'f.txt');reset(f); 

while not(eof(f)) do begin 
readln(f,s); 
val(s,x,k); 
if k=0 then writeln(w,s) else writeln(c,s); 
end; 

close(f);close(c);close(w); 

end
Категория: 2013 | Добавил: BLADELION (14.12.2013)
Просмотров: 580 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]