var f1,f2:file of integer;
------------
assign(f1,'/путь'); assign(f2,'/путь');
rewrite(f1); {создаем файл если нет или очищаем}
for i:=1 to N do write(f1,random(126)-75); {формируем}
reset(f1);{на чтение} sum:=0;
rewrite(f2);
while not eof(f1) do
begin
read(f1,x);
write(x,' '); {выводим}
if x>0 then write(f2,x);
if x>5 then sum:=sum+x {заодно сумму копим}
end;
reset(f2);
whiel not eof(f2) do begin read(f2,x); write(x,' ') end;
Pascal(Работа с файлами)
Помогите пожалуйста сам то Pascal то знаю плохо.:confused:
Вот на С++ сделал бы а так даже и незнаю.
А задание в по Pascal.:eek:
Составить пррамму, которая создаёт файл состоящий из N элементов
типа INTEGER сгенерированных случайным образом из интервала от -75 до 50.Вывести файл на экран.Выяснить верно ли что сумма тех чисел,
которые больше 5,меньше P. Переписать в другой файл положительные элементы из 1 файла.Вывести новый файл на экран,исходный 1 файл
удалить.:(
Можете просто скинуть маленькую прогу где производят подобные действия с файлами вполне и сам смогу разобраться.
Просто материала по файлам у меня нет, а задание есть.!!!
Вот на С++ сделал бы а так даже и незнаю.
А задание в по Pascal.:eek:
Составить пррамму, которая создаёт файл состоящий из N элементов
типа INTEGER сгенерированных случайным образом из интервала от -75 до 50.Вывести файл на экран.Выяснить верно ли что сумма тех чисел,
которые больше 5,меньше P. Переписать в другой файл положительные элементы из 1 файла.Вывести новый файл на экран,исходный 1 файл
удалить.:(
Можете просто скинуть маленькую прогу где производят подобные действия с файлами вполне и сам смогу разобраться.
Просто материала по файлам у меня нет, а задание есть.!!!
;) Спасибо хоть что то, а как файл удалить?
erase
Выручили, работа ессть спасибо!!.:D
Тему можно закрыть.
:)
Ой извините, не тот знак в заголовке всё класно.!!.
Извеняюсь за знак.
Тему можно закрыть.
:)
Ой извините, не тот знак в заголовке всё класно.!!.
Извеняюсь за знак.