Цитата:
Сообщение от Katyusha123
создать файл целых чисел. В другой файл переписать подряд отрицательные элементы первого файла и. подсчитать их количество. Первоначальный и полученный файлы выдать на печать.
Тема "файлы в паскале" помогите пожалуйста))) а то я себя полным чайником сейчас чувствую((
|
Пожалуйста (имена и адреса файлов задайте свои):
Код:
VAR
f_in, f_out: File of Integer;
i,N,Nn,vl:integer;
BEGIN
N:=40;
Randomize;
Assign(f_in,'D:\Inp.dat');
Rewrite(f_in);
Nn:=0;
for i:=1 to N do
begin
vl:=50-Random(100);
Write(f_in, vl);
end;
Close(f_in);
Reset(f_in);
Assign(f_out,'D:\Out.dat');
Rewrite(f_out);
for i:=1 to N do
begin
Read(f_in,vl);
If vl<0 then
begin
Inc(Nn);
Write(f_out,vl);
end;
end;
Close(f_out);
Writeln('Input file contents: ');
Reset(f_in);
For i:=1 to N do
begin
Read(f_in,vl);
Write(vl:4);
end;
Close(f_in);
Writeln;
Writeln('Number of negative elements is ',Nn);
Writeln;
Writeln('Output file contents: ');
Reset(f_out);
For i:=1 to Nn do
begin
Read(f_out,vl);
Write(vl:4);
end;
Close(f_out);
Readln
END.