Текстовый файл: найти минимальное значение, результат вывести в другой файл

@Zerowt · Регистрация: 18.11.2012

Текстовый файл содержит набор чисел, найти минимальное значение, результат вывести в другой файл.

@CodeR · 30.05.2013, 15:02

Pascal

Var f,g:text;
    m,min:integer;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    read(f,min);
    While not Eof(f) do
    Begin
      While not Eoln(f) do
      Begin
        read(f,m);
        if m<min then min:=m;
      End;
      readln(f);
    End;
    writeln(g,min);
    Close(f);Close(g);
    writeln('Результат в файле "out.txt"');
    readln;
End.

@Zerowt 0 / 0 / 0 Регистрация: 18.11.2012 Сообщений: 5
		1
	Текстовый файл: найти минимальное значение, результат вывести в другой файл 30.05.2013, 11:19. Показов 2219. Ответов 1 Метки нет (Все метки) Текстовый файл содержит набор чисел, найти минимальное значение, результат вывести в другой файл. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Текстовый файл: найти минимальное значение, результат вывести в другой файл

Решение