Вот задание надом было! Может кто поможет на 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:preis;
    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;
end.

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

[puporev]

Не понимаю как из нормальной, протестированной программы можно сделать такого урода. Наверное это талант.

[Impulsive]

Ну она нормально работает, ток процедуру убрал - т.к. нашему препаду они не нравяться..

[puporev]

Так ты не процедуру убрал, а ее название, так программа вообще работать не будет. Сейчас переделаю тебе без процедуры.

[Impulsive]

почему не работает? все норм, проверьте.. Или и правда

[puporev]

Описать процедуру min(П,Ц), присваивающую параметру Ц наименьшую цену из непустого прейскуранта П.

Это цитата из задания.

ток процедуру убрал - т.к. нашему препаду они не нравяться..

Это ты пишешь сейчас, где правда?

Извини, программа правда работает, ты видимо правку в тексте сделал, а я раньше смотрел.

Записи обычно в типизированных файлах хранят, а их набирать программно надо. Если лень,убери товар, его в условии нет, возьми n не 10, а 5, и все быстрее будет.

[Impulsive]

Извините если я вас обидел! Ваше решение очень хорошое! Как по условию задачи!

[puporev]

Посмотри поправленный мной пост выше твоего.