Задача на Pascal'e. Про файлы...

[Impulsive]

Я понял, спасибо за внимание... :-)

[Хыиуду]

ну, переделать всегда легче, чем сделать...
а вот как это будет соотносится с тем, что у вас задание - именно сделать процедуру?

Кстати, кому как, мне, например, обычно проще сделать что-то самому, чем переделывать чужое.

[Impulsive]

код не я писал

убрал процедуру - получилось так:

Код:

Код: Выделить всё

 uses crt;   
const n=10;
type cena=record
          tovar:string[20];
          rub:0..maxint;
          kop:0..99;
          stoim:real;
          end;
     preis=array[1..n]of cena;
var pr :p reis;
    i,k:integer;
    min:real;
    f:file of cena;



begin
clrscr;
for i:=1 to n do
    begin
      write('tovar:');readln(pr[i].tovar);
      write('rubli:');readln(pr[i].rub);
      write('kopeiki:');readln(pr[i].kop);
    end;
assign(f,'Preis.txt');
rewrite(f);
for i:=1 to n do
    begin
      write(f,pr[i]);
      end;
close(f);
reset(f);     
k:=0;
while not eof(f) do
   begin
     k:=k+1;
     read(f,pr[k]);
     end;
close(f);
begin
for i:=1 to k do
   begin
    pr[i].stoim:=pr[i].rub+pr[i].kop/100;
  end;
min:=pr[1].stoim;
for i:=2 to k do
if pr[i].stoim<min then
    begin
      min:=pr[i].stoim;
     end;
writeln;
write('Min cena=',min:5:2);
readln
end. 

И еще можно сделать, чтоб без ввода товара и цены - просто открыть текстовой файл - где уже находиться праис - и он там выберет минимальную цену.
Помогите..