File, "Создать отсутствующий файл и записать в него начальный и конечный элементы существующего файла."

@Nastya_710 · Регистрация: 23.02.2011

Author24 — интернет-сервис помощи студентам

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

Добавлено через 22 часа 58 минут
напишите, пожалуйста, алгоритм хотя бы(

@flcl · 28.04.2011, 18:14

uses crt;
var
i:integer;
f,f2:text;
numbers:array [1..1000] of string;
begin
assign(f,'numbers1.txt'); //связываем с существующим файлом
assign(f2,'numbers2.txt');//связываем с несуществующим файлом
reset(f); //открываем для чтения
rewrite(f2); //открываем для записи
i:=1;
while not eof(f) do begin
readln(f,numbers[i]); //заполняем массив числами из файла
i:=i+1
end;
writeln(f2,strtoint(numbers[1])); //записываем в файл первое число

writeln(f2,strtoint(numbers[i-1]));//записываем в файл последнее число
close(f);
close(f2)
end.

@Nastya_710 0 / 0 / 0 Регистрация: 23.02.2011 Сообщений: 40
		1
	File, "Создать отсутствующий файл и записать в него начальный и конечный элементы существующего файла." 28.04.2011, 14:55. Показов 1356. Ответов 1 Метки нет (Все метки) Даны имена двух файлов вещественных чисел. Известно, что первый из них существует и является непустым, а второй в текущем каталоге отсутствует. Создать отсутствующий файл и записать в него начальный и конечный элементы существующего файла (в указанном порядке). Добавлено через 22 часа 58 минут напишите, пожалуйста, алгоритм хотя бы( 0

@flcl 4 / 4 / 2 Регистрация: 22.03.2011 Сообщений: 13
	28.04.2011, 18:14	2
	uses crt; var i:integer; f,f2:text; numbers:array [1..1000] of string; begin assign(f,'numbers1.txt'); //связываем с существующим файлом assign(f2,'numbers2.txt');//связываем с несуществующим файлом reset(f); //открываем для чтения rewrite(f2); //открываем для записи i:=1; while not eof(f) do begin readln(f,numbers[i]); //заполняем массив числами из файла i:=i+1 end; writeln(f2,strtoint(numbers[1])); //записываем в файл первое число writeln(f2,strtoint(numbers[i-1]));//записываем в файл последнее число close(f); close(f2) end. 1