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

Тема в разделе "Delphi - FAQ", создана пользователем Samopal, 1 май 2009.

  1. Samopal

    Samopal Гость

    Код (Text):
    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 товар а надо несколько неихто не может помочь?

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

Поделиться этой страницей