Составление прайс-листа

  • Автор темы Samopal
  • Дата начала
S

Samopal

Гость
#1
Код:
program n_3;
uses crt;
const
n = 1;
type
TFootWear = record
name: string;
countru: string;
price: string;
material: string;
size: byte;
recomend: string;
end;
dateb = array [1..n] of TFootWear;
procedure input(var y:dateb); {ввод новго товара}
var i:byte;
begin
clrscr;
for i:=1 to n do
begin
writeln('Tovar',i);
write('Naimenovaniye tovara: ');readln(y[i].name);
write('Strana proizvoditela: ');readln(y[i].countru);
write('Cena: ');readln(y[i].price);
write('Material: ');readln(y[i].material);
write('Razmer: ');readln(y[i].size);
write('Recomendacii po ispolzovaniuy: ');readln(y[i].recomend);
end;
clrscr;
end;
procedure output(nm:string;var mas:dateb); {Вывод на экран информации о определённом тарифе.}
var i,k:integer;
begin
clrscr;
k:=0;
for i:=1 to n do
if mas[i].name=nm then
begin
k:=1;
writeln('Naimenovaniye tovara:',mas[i].name);
writeln('Strana proizvoditela:',mas[i].countru);
writeln('Cena:',mas[n].price);
writeln('Material:',mas[i].material);
writeln('Razmer:',mas[i].size);
writeln('Recomendacii po ispolzovaniuy: ',mas[i].recomend);
end;
if k=0 then writeln('Takogo tovara net!');
readln;
clrscr;
end;
procedure prais(var mas:dateb);
var i:integer;
begin
clrscr;
writeln('Price-list':40);
writeln('---------------------------------------------------------------------');
writeln('| Наименование |  Страна | Цена | Материал | Размер | Рекомендации|');
writeln('---------------------------------------------------------------------');
for i:=1 to n do
begin
gotoXY(1,whereY);write('| ',mas[i].name);
gotoXY(16,whereY);write('| ',mas[i].countru);
gotoXY(28,whereY);write('| ',mas[i].price);
gotoXY(35,whereY);write('| ',mas[i].material);
gotoXY(46,whereY);write('| ',mas[i].size);
gotoXY(55,whereY);write('| ',mas[i].recomend);
gotoXY(69,whereY);write('|');
writeln;
end;
writeln('---------------------------------------------------------------------');
readln;
clrscr;
end;
var
m: dateb;
i,v,w: integer;
nam: string;
begin
clrscr;
w:=0;
while w<5 do
begin
writeln('1. Vvod novogo tovera');
writeln('2. Vivod na ekran informacii o tovare:');
writeln('3. Raspechatka price-lista v vide tablici:');
writeln('4. Vixod');
write('Vash vibor:' );
readln(v);
case v of
1: input(m);
2: begin
write('Vvedite naimenovaniye tovara:' );
readln(nam);
output(nam,m);
end;
3:prais(m);
4:exit;
end;
end;
readln
end.

Проблемка прога пашет.. тока она добавляет тока 1 товар а надо несколько неихто не может помочь?

Текст задания такой:
Составте прайс-лист магазина "обувь", включающий в себя наименование товара, страну производителя, его цену, материал, размер, рекоменджации для использования. Информацию о каждом товаре оформить в программе в виде записи. Совокупность записей объедините в массив. Составте программу которая обеспечивает ввод полученой информации, распечатку её в виде таблицы. Выведите на экран меню, а затем информацию о товаре в зависимости от запроса покупателя.