Благадарю....Концепция изменилась, доканали некоторые (не будем показывать пальцемSerge_Bliznykov писал(а):СОРРИ ЗА ОФФТОП!
MOTOCoder, не, что я вижу? Вы впервые не приводите полное решение? ;-))Концепция изменилась, или просто устали?..
).Код: Выделить всё
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
" писал(а):Описать процедуру min(П,Ц), присваивающую параметру Ц наименьшую цену из непустого прейскуранта П.