Подалуйста, нужно очень срочно.

Дан файл F, компоненты которого являются действительными числами. Найти наименьшую из компонент файла.

F A Q : Файлы +
поиск, такая задача решалась буквально недавно.

Вот, копируешь себе и говоришь спасибо klem4

uses crt;
const
N=5;
var
f: file of real;
min,b: real;
i: integer;


begin
clrscr;
assign (f, 'c:\f_min'); rewrite(f);
writeln ('Введите компоненты: ');
for i:=1 to N do begin
readln (b);
write (f,b);
end;

reset (f);
while not eof(f) do begin
read(f,b);
min :=b;
for i := 1 to n-1 do begin
   read(f,b);
   if b<min then min:=b;
end;
   end;
       writeln ('MIN:', min); readln;
    close(f);
end.

Ну я всетаки не совсем так сделал .. вобщем вот еще короче вариант :

min := MaxLongInt;
while(not(eof(f))) do begin
   read(f,b); 
   if b < min then min := b;
end;

Максимум, что сделала изменила переменные, остальную часть писала сама (кроме этого куска)
klem4, логи показать?

ну так там кроме этого куска, который я кстати не так делал, только assign(f,'c:\test') отстается и close(f) ... чем ты не довольна то ?

Логи:

В каком месте ты другое предлагал?
Про seek сказал, что можно убрать ..

Ты будешь внимательно читать что тебе пишут ? Я сказал что не так сделал ? я сказал



КАКИЕ вообще могут быть ко мне претензии ? Я фактически решил тебе задачу, ты только моменяла seek на цикл, при этом потеряв в гибкости программы... что тебе конкретно не понравилось ? Если хочешь могу выложить логи того бреда, который ты мне как свой первоначальный вариант дала ?

Тема закрыта