Файлы Опции

[Mitek]

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

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

[klem4]

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.

[klem4]

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

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) ... чем ты не довольна то ?

Сообщение отредактировано: klem4 - 21.12.2005 16:42

[Анна]

Логи:

20.12.2005 23:29 klem4: seek(f,0);
read(f,r);
min := r;
for i := 1 to n-1 do begin
seek(f,i)
read(f,r);
if r<min then min := r;
end;

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

[klem4]

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

Ну я всетаки не совсем так сделал

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

Тема закрыта