Условие задачи:
Даны имена двух файлов вещественных чисел. Известно что один из них (не обязательно первый) существует и является не пустым, а другой отсутствует. Создать отсутствующий файл и записать в него конечный и начальный элементы существующего файла (в указанном порядке).
Пожалуйста помогите решить!!!!!!! 
Задача на файлы
Страница: 1
Тема закрыта
Сообщений 1 страница 3 из 3
Поделиться12011-08-15 15:42:40
Поделиться22011-08-15 16:11:29
- Администратор
- Откуда: Россия
- Зарегистрирован: 2009-07-09
- Приглашений: 0
- Сообщений: 503
- Уважение: [+1/-0]
- Позитив: [+1/-0]
- Пол: Мужской
- Возраст: 34 [1990-07-18]
- Провел на форуме:
15 часов 19 минут - Последний визит:
2011-09-05 11:04:34
Решение:
Код:
Program z1;
var f: text;
name, name2: string;
num, num2: real;
begin
readln ( name );
readln ( name2 );
if FileExists ( name ) then begin
assign ( f, name );
reset ( f );
read ( f, num );
while not eof ( f ) do
read ( f, num2 );
close ( f );
assign ( f, name2 );
rewrite ( f );
write ( f, num2, ' ', num );
close ( f );
end else begin
assign ( f, name2 );
reset ( f );
read ( f, num );
while not eof ( f ) do
read ( f, num2 );
close ( f );
assign ( f, name );
rewrite ( f );
write ( f, num2, ' ', num );
close ( f );
end;
end.Комментарий к решению:
Входные данные:
Имя файлов и их типы.
Пример:
first.txt
second.txt
Поделиться32011-08-15 17:12:33
Спасибо большое!!!
Всё прекрасно работает! 
Тема закрыта
Страница: 1