Program FileTest1;
uses crt;
const
N=100;
var
X:array [1..N] of integer;
F: file of integer;
i,j,T: integer;
m: integer;
begin
randomize;
clrscr;
Assign(F,'test1.dat');
ReWrite(F);
for i:=1 to N do begin
x:= Random(N);
write(f, x);
end;
Close(F);
ReSet(F);
for i:=1 to N do
begin
read(f, x);
End;
for i := 0 to n - 1 do begin
T := x;
j := i - 1;
while (j >= 0) and (T < x[j]) do begin
x[j + 1] := x[j];
Dec(j);
end;
x[j + 1] := T;
end;
for i:=1 to N do
writeln (x);
Close(F);
WriteLn;
readln;
end.
Pascal. Файлы
Создать файл, содержащий не более 100 случайных целых чисел. Выполнить сортировку чисел по возрастанию.
посмотрите, пожалуйста, я правильно сделал? если да, то не могу понять, почему в результате обязательно присутствует число 2573. остальные числа рандомны.
Код:
посмотрите, пожалуйста, я правильно сделал? если да, то не могу понять, почему в результате обязательно присутствует число 2573. остальные числа рандомны.
вот посмотрите:
я немного изменил Вашу сортировку. Запись и чтение у вас были сделаны верно, а вот из-за сортировки вылазило это число 2573 (правда откуда оно там бралось, я так и не нашёл:D)
Код:
Program FileTest1;
uses crt;
const N=100;
var X:array [1..N] of integer;
F: file of integer;
i,j,T: integer;
m: integer;
begin
randomize;
clrscr;
Assign(F,'test1.txt');
Rewrite(F);
for i:=1 to N do begin
x:= Random(N);
write(f, x);
end;
Close(F);
for i:=1 to N do begin
write(x,' ');
end;
ReSet(F);
for i:=1 to N do begin
read(f, x);
End;
Close(F);
writeln;
write('Po vozrastaniu');
writeln;
for i:=1 to N-1 do
for j:=i+1 to N do
if (x[j]<x) then
begin
T:=x;
x:=x[j];
x[j]:=T;
end;
for i:=1 to N do begin
write(x,' ');
end;
readln;
end.
uses crt;
const N=100;
var X:array [1..N] of integer;
F: file of integer;
i,j,T: integer;
m: integer;
begin
randomize;
clrscr;
Assign(F,'test1.txt');
Rewrite(F);
for i:=1 to N do begin
x:= Random(N);
write(f, x);
end;
Close(F);
for i:=1 to N do begin
write(x,' ');
end;
ReSet(F);
for i:=1 to N do begin
read(f, x);
End;
Close(F);
writeln;
write('Po vozrastaniu');
writeln;
for i:=1 to N-1 do
for j:=i+1 to N do
if (x[j]<x) then
begin
T:=x;
x:=x[j];
x[j]:=T;
end;
for i:=1 to N do begin
write(x,' ');
end;
readln;
end.
я немного изменил Вашу сортировку. Запись и чтение у вас были сделаны верно, а вот из-за сортировки вылазило это число 2573 (правда откуда оно там бралось, я так и не нашёл:D)
Цитата: Енот_в_Засаде
я немного изменил Вашу сортировку. Запись и чтение у вас были сделаны верно, а вот из-за сортировки вылазило это число 2573 (правда откуда оно там бралось, я так и не нашёл:D)
Спасибо огромное!!! =)
да не за что:)