//Ввод файла в текстовом редакторе Var f:text; s:string; a:integer; begin writeln('First file:'); assign(f,'text.txt'); reset(f); while not Eof(f) do begin read(f,a); write(a:4); if (a>8) or (a<6) then a:=sqr(a); s:=s+a+' '; end; close(f); writeln; writeln('Final file:'); write(s); assign(f,'text.txt'); rewrite(f); write(f,s); close(f); end.
Пример работы программы: First file: 1 2 3 4 5 6 7 8 Final file: 1 4 9 16 25 6 7 8
//Ввод файла программе
Var f:text; s,s1:string; a,i:integer; begin assign(f,'text.txt'); rewrite(f); for i:=1 to 10 do begin read(a); write(f,a); s1:=s1+inttostr(a)+' '; if (a>8) or (a<6) then a:=sqr(a); s:=s+inttostr(a)+' '; end; close(f); writeln('First file:'); writeln(s1); writeln('Final file:'); write(s); assign(f,'text.txt'); rewrite(f); write(f,s); close(f); end.
Пример ввода: 1 2 3 4 5 6 7 8 9 10 Пример вывода: First file: 1 2 3 4 5 6 7 8 9 10 Final file: 1 4 9 16 25 6 7 8 81 100
Var f,h:text; i,maxi:integer; ar:array[1..n] of real; begin ar[6]:=real.MinValue; assign(f,'text.txt'); rewrite(f); for i:=1 to n-1 do begin readln(ar[i]); if ar[i]>ar[6] then begin ar[6]:=ar[i]; maxi:=i; end; end; ar[maxi]:=ar[maxi]/2; writeln('F:'); for i:=1 to n do begin write(f,ar[i],' '); write(ar[i],' '); end; close(f); writeln; i:=0; writeln('H:'); assign(h,'text1.txt'); rewrite(h); while i<n do begin i:=i+2; write(h,ar[i],' '); write(ar[i]:4); end; close(h); end.
Пример ввода: 1 2 3 4 5 Пример вывода: F: 1 2 3 4 2.5 5 H: 2 4 5
//Ввод файла в текстовом редакторе
Var
f:text;
s:string;
a:integer;
begin
writeln('First file:');
assign(f,'text.txt');
reset(f);
while not Eof(f) do
begin
read(f,a);
write(a:4);
if (a>8) or (a<6) then
a:=sqr(a);
s:=s+a+' ';
end;
close(f);
writeln;
writeln('Final file:');
write(s);
assign(f,'text.txt');
rewrite(f);
write(f,s);
close(f);
end.
Пример работы программы:
First file:
1 2 3 4 5 6 7 8
Final file:
1 4 9 16 25 6 7 8
//Ввод файла программе
Var
f:text;
s,s1:string;
a,i:integer;
begin
assign(f,'text.txt');
rewrite(f);
for i:=1 to 10 do
begin
read(a);
write(f,a);
s1:=s1+inttostr(a)+' ';
if (a>8) or (a<6) then a:=sqr(a);
s:=s+inttostr(a)+' ';
end;
close(f);
writeln('First file:');
writeln(s1);
writeln('Final file:');
write(s);
assign(f,'text.txt');
rewrite(f);
write(f,s);
close(f);
end.
Пример ввода:
1
2
3
4
5
6
7
8
9
10
Пример вывода:
First file:
1 2 3 4 5 6 7 8 9 10
Final file:
1 4 9 16 25 6 7 8 81 100
Const
n=6;
Var
f,h:text;
i,maxi:integer;
ar:array[1..n] of real;
begin
ar[6]:=real.MinValue;
assign(f,'text.txt');
rewrite(f);
for i:=1 to n-1 do
begin
readln(ar[i]);
if ar[i]>ar[6] then
begin
ar[6]:=ar[i];
maxi:=i;
end;
end;
ar[maxi]:=ar[maxi]/2;
writeln('F:');
for i:=1 to n do
begin
write(f,ar[i],' ');
write(ar[i],' ');
end;
close(f);
writeln;
i:=0;
writeln('H:');
assign(h,'text1.txt');
rewrite(h);
while i<n do
begin
i:=i+2;
write(h,ar[i],' ');
write(ar[i]:4);
end;
close(h);
end.
Пример ввода:
1
2
3
4
5
Пример вывода:
F:
1 2 3 4 2.5 5
H:
2 4 5