Предмет: Информатика,
автор: zulfat98
помогите написать программу на паскале абс
Файловый тип данных.
задача: Дан целочисленный файл А. Записать в файл В все положительные числа.
Ответы
Автор ответа:
0
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var f,fp: file of integer;
var i:integer;
Assign(f,'in.int'); Reset(f);
Assign(fp,'out.int'); Rewrite(fp);
while not eof(f) do begin
Read(f,i);
if i>0 then Write(fp,i)
end;
Close(f); Close(fp)
end.
Прикрепленный файл in.txt - тестовый in.int, у которого переименовано расширение, поскольку файл с расширением int присоединить сюда не получается.
begin
var f,fp: file of integer;
var i:integer;
Assign(f,'in.int'); Reset(f);
Assign(fp,'out.int'); Rewrite(fp);
while not eof(f) do begin
Read(f,i);
if i>0 then Write(fp,i)
end;
Close(f); Close(fp)
end.
Прикрепленный файл in.txt - тестовый in.int, у которого переименовано расширение, поскольку файл с расширением int присоединить сюда не получается.
Приложения:
Автор ответа:
0
Входной файл бы создан дополнительной программой
Автор ответа:
0
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var a:=ArrRandom(20,-50,50); a.Println;
var f:file of integer;
Assign(f,'in.int'); Rewrite(f);
foreach var i in a do Write(f,i);
Close(f);}
end.
begin
var a:=ArrRandom(20,-50,50); a.Println;
var f:file of integer;
Assign(f,'in.int'); Rewrite(f);
foreach var i in a do Write(f,i);
Close(f);}
end.
Автор ответа:
0
Здесь 20 - количество чисел, -50,50 - диапазон
Автор ответа:
0
А вот так можно распечатать выходной файл
Автор ответа:
0
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var f: file of integer;
var i:integer;
Assign(f,'out.int'); Reset(f);
while not eof(f) do begin
Read(f,i); Write(i,' ')
end;
Close(f)
end.
begin
var f: file of integer;
var i:integer;
Assign(f,'out.int'); Reset(f);
while not eof(f) do begin
Read(f,i); Write(i,' ')
end;
Close(f)
end.
Похожие вопросы
Предмет: Геометрия,
автор: Mafia2194
Предмет: Математика,
автор: halkzbad
Предмет: Литература,
автор: amg124
Предмет: Биология,
автор: antosharadchen
Предмет: Химия,
автор: Аноним