Автор: I`m F.I.N.E. 5.6.2007, 14:04
Используя тип запись занести информацию:
•Название завода изготовителя
•Названия завода поставщика сырья
•Номер магазина потребителя
•Номер производимых товаров (10 наим)
•Цена каждого товара за штуку в $
Выдать на экран названия тех товаров, которые не пользовались спросом и названия завода изготовителя.
Код
program kr3;
uses crt;
type
mas=array[1..10] of integer;
tovar=record
zavodizg,zavodpost:string;
ntovar:string;
chit:integer;
mag:mas;
cena:real;
end;
var
m:array[1..10] of tovar;
i,j,l,min,pos:integer;
k:array[1..10] of integer;
BEGIN
clrscr;
for i:=1 to 10 do
begin
writeln('Введите название товара:');
readln(m[i].ntovar);
writeln('Введите завод-изготовитель:');
readln(m[i].zavodizg);
writeln('Введите завод-поставщик:');
readln(m[i].zavodpost);
Writeln('Сколько магазинов заказало товар?');
readln(m[i].chit);
for l:=1 to m[i].chit do
begin
Writeln('Введите номер магазина:');
readln(m[i].mag[l]);
end;
writeln('Введите цену товара в $:');
readln(m[i].cena);
writeln('Ваша информация занесена в базу данных');
end;
writeln('Поиск товаров не пользующихся спросом:');
min:=1000;
for i:=1 to 10 do
if min>m[i].chit then
begin
pos:=i;
end;
writeln('Самый не популярный товар: ',m[pos].ntovar,', его изготовил: ',m[pos].zavodizg);
readln;
END.
Не выдает информацию. Чую что накосячил.
Автор: I`m F.I.N.E. 5.6.2007, 16:20
хм починил сам.... детские ляпы.... вот тут касячил:
Код
writeln('Поиск товаров не пользующихся спросом:');
min:=1000;
for i:=1 to 10 do
if min>m[i].chit then
begin
pos:=i;
end;
writeln('Самый не популярный товар: ',m[pos].ntovar,', его изготовил: ',m[pos].zavodizg);
вот правильная версия:
Код
writeln('Поиск товаров не пользующихся спросом:');
min:=1000;
for i:=1 to 10 do
begin
if min>m[i].chit then
begin
min:=m[i].chit;
pos:=i;
end;
end;
writeln('Самый не популярный товар: ',m[pos].ntovar,', его изготовил: ',m[pos].zavodizg);