Создать файл, содержащий не более 100 случайных целых чисел

@Masox · Регистрация: 07.11.2012

Author24 — интернет-сервис помощи студентам

Создать файл, содержащий не более 100 случайных целых
чисел. Создать новый файл, разместив все нечетные числа в начале
файла, а четные – в конце, при этом порядок следования чисел
сохраняется.

Kodzaev · 17.01.2013, 14:39

Pascal

Var
  f,g: File of Integer;
  i,n,x: Integer;
BEGIN
Repeat
 Write('Vvedite kol-vo chisel: ');
 Readln(n);
until n in [1..100];
Assign(f,'one.dat');
Rewrite(f);
Randomize;
For i:=1 to n do
begin
  x:=Random(101);
  Write(f,x);
end;
Reset(f);
Writeln('Fail 1:');
For i:=0 to Filesize(f)-1 do
begin
  Seek(f,i);
  Read(f,x);
  Write(x,' ')
end;
Assign(g,'two.dat');
Rewrite(g);
For i:=0 to Filesize(f)-1 do
begin
  Seek(f,i);
  Read(f,x);
  If odd(x) Then
  Write(g,x);
end;
For i:=0 to Filesize(f)-1 do
begin
  Seek(f,i);
  Read(f,x);
  If not odd(x) Then
  Write(g,x);
end;
Reset(g);
Writeln;
Writeln('Fail 2:');
For i:=0 to Filesize(g)-1 do
begin
  Seek(g,i);
  Read(g,x);
  Write(x,' ');
end;
Close(f);
Close(g);
Readln
END.

@Masox · 17.01.2013, 17:00 **[ТС]**

Сообщение от Kodzaev

Pascal

Var
  f,g: File of Integer;
  i,n,x: Integer;
BEGIN
Repeat
 Write('Vvedite kol-vo chisel: ');
 Readln(n);
until n in [1..100];
Assign(f,'one.dat');
Rewrite(f);
Randomize;
For i:=1 to n do
begin
  x:=Random(101);
  Write(f,x);
end;
Reset(f);
Writeln('Fail 1:');
For i:=0 to Filesize(f)-1 do
begin
  Seek(f,i);
  Read(f,x);
  Write(x,' ')
end;
Assign(g,'two.dat');
Rewrite(g);
For i:=0 to Filesize(f)-1 do
begin
  Seek(f,i);
  Read(f,x);
  If odd(x) Then
  Write(g,x);
end;
For i:=0 to Filesize(f)-1 do
begin
  Seek(f,i);
  Read(f,x);
  If not odd(x) Then
  Write(g,x);
end;
Reset(g);
Writeln;
Writeln('Fail 2:');
For i:=0 to Filesize(g)-1 do
begin
  Seek(g,i);
  Read(g,x);
  Write(x,' ');
end;
Close(f);
Close(g);
Readln
END.

а разве это в блокноте не должно работать?
или воспроизводить в самом паскале тоже правильно?

Kodzaev · 17.01.2013, 17:15

Сообщение от Masox

а разве это в блокноте не должно работать?

Не понял юмора. Этот код должен быть запущен в среде Turbo Pascal

@Masox 2 / 2 / 0 Регистрация: 07.11.2012 Сообщений: 26
		1
	Создать файл, содержащий не более 100 случайных целых чисел 17.01.2013, 12:34. Показов 1886. Ответов 3 Метки нет (Все метки) Создать файл, содержащий не более 100 случайных целых чисел. Создать новый файл, разместив все нечетные числа в начале файла, а четные – в конце, при этом порядок следования чисел сохраняется. 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	17.01.2013, 17:15	4
	Сообщение от Masox а разве это в блокноте не должно работать? Не понял юмора. Этот код должен быть запущен в среде Turbo Pascal 0

Опции темы