Developing.ru

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

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;  //типизированный файл для хранения информации   
procedure MINCENA(k:integer;pr :p reis; var min:real); //процедура   
var i:integer;   
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;   
end;   
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);           //закрываем файл   
MINCENA(n,pr,min);  //находим минимум   
writeln;   
write('Min cena=',min:5:2);   
readln   
end.

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

k:integer;pr :p reis; var min:real