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

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

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

Kodzaev · 17.01.2013, 14:03

Pascal

Var
  f,g: File of Integer;
  i,n,x,max,min: Integer;
BEGIN
Repeat
 Write('Vvedite kol-vo chisel <=50: ');
 Readln(n);
until n in [1..50];
Assign(f,'file.dat');
Rewrite(f);
Randomize;
For i:=1 to n do
begin
  x:=Random(51)-25;
  Write(f,x);
end;
max:=Low(max);
min:=High(min);
Reset(f);
Writeln;
Writeln('Fail:');
For i:=0 to Filesize(f)-1 do
begin
  Seek(f,i);
  Read(f,x);
  If x>max Then
  max:=x;
  If x<min Then
  min:=x;
  Write(x,' ');
end;
Assign(g,'file2.dat');
Rewrite(g);
Write(g,max);
Write(g,min);
Reset(f);
Writeln;
Writeln('Max & Min: ');
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 2 / 2 / 0 Регистрация: 07.11.2012 Сообщений: 26
		1
	Создать файл, содержащий не более 50 случайных целых чисел. Записать в новый файл и вывести на экран максимальное и минимальное числа 17.01.2013, 12:37. Показов 2205. Ответов 1 Метки нет (Все метки) Создать файл, содержащий не более 50 случайных целых чисел. Записать в новый файл и вывести на экран максимальное и минимальное числа. __________________ Помощь в написании контрольных, курсовых и дипломных работ здесь 0

Опции темы

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

Решение