паскаль(записи)

[masterlomaster]

Вот задали написать базу данных, сижу и думаю и не знаю с чего начать.

Направление не подскажите?

P.S Чужие коды не люблю разбирать.

[VadikV]

начни с изучения динамических списков. на их основе создашь список записей твоей базы.

[masterlomaster]

 begin
         assign(f,'baza.txt');
         rewrite(f);
       repeat

         write('Naimenovanie : ');                readln(st.Naimenovanie);
         write('Kol-vo tovara:' );                     readln(st.Kol_vo_tovara);
         write('Cena tovara do ucenki:');                readln(st. Cena_tovara_do_ucenki);
         write('Srok xranenia tovara:');                    readln(st. Srok_xranenia);
         write(f,st);
       writeln('Danie dobavleni v bazu!');
       writeln('Hotite ese dobavit daniae? (y/n)');
       readln(h);
       until (h='n') or (h='N');
       close(f);
     end;

Программа создает файл. Можно добавить запись, после 1-ого добавления, программа спрашивает хотите еше добавить данные? нажимаем хотим, и вот тут проблема она записывает данные опять в 1 строчку. Как перейти на следующую строчку файла?

[Karina89]

а в какой среде надо написать?
в Delphi?

[masterlomaster]

turbo pascal

[masterlomaster]

Новая проблема.
Задание такое
Торговый склад производит уценку хранящийся продукции. Если продукция хранится на складе дольше
N месяцев, то она уценивается в 2 раза, а если срок хранения превысел M(M<N) месяцев
но не достиг N то в 1.5 раза.
Ведомость уценки товаров должна содержать информацию.
наименование товара, кол-во товара, цена товара до уценки,срок хранения товара,
цена товара после уценки, общая стомость товара после уценки.
выяснить мак и мин сроки хранения товаров до и после уценки.

Program zapisi;
uses Crt;
label 1;
  type BAZA=record
           Naimenovanie:string[15];
           Kol_vo_tovara:string[15];
           Cena_tovara_do_ucenki:string[15];
           Srok_xranenia:string[15]
  end;
  var      f:file of Baza;
           k:integer;
           st:baza;
           h,n:char;
procedure vvod_danix;
     var
     M:integer;
     begin
        writeln('Vvedite posle skolki mesasev M tovar ucenivaetsa v 2 raza');
        readln(M);
             assign(f,'baza.txt');
         rewrite(f);
       repeat

       write('Naimenovanie : ');                readln(st.Naimenovanie);
       write('Kol-vo tovara:' );                   readln(st.Kol_vo_tovara);
       write('Cena tovara do ucenki:');         readl(st.Cena_tovara_do_ucenki); 
         write('Srok xranenia tovara:');             readln(st. Srok_xranenia);
         write(f,st);
       writeln('Danie dobavleni v bazu!');
       writeln('Hotite ese dobavit daniae? (y/n)');
       readln(h);
       until (h='n') or (h='N');
       close(f);
     end;

procedure prosmotr;
       begin
        reset(f);


        while not eof(f) do
        begin
        read(f,st);
         writeln('Naimenovanie : ',st.Naimenovanie);
         writeln('Kol-vo tovara: ',st.Kol_vo_tovara);
         writeln('Cena tavara: ',st. Cena_tovara_do_ucenki);
         writeln('Srok xranenia: ',st. Srok_xranenia);
         writeln('Cena tovara posle ucenki:' );
         writeln('Press enter');
         readln;
       end;
        end;
     Begin

    1:  clrscr;

          writeln('1.Vvod prodekta v bazu');
          writeln('2.Prosmotr vedomosti');
          readln(k);
      case k of 1: begin vvod_danix; goto 1 end;
                2: begin prosmotr   end;


      else writeln('osibka vvoda, povtorite vvod');

    end;
    end.

Не понятно как сравнивать M месяцев (тип integer) и срок хранения товара (тип string)

[Serge_Bliznykov]

Не понятно как сравнивать M месяцев (тип integer) и срок хранения товара (тип string)

самый простой (и очевидный) выход из этой ситуации сделать срок хранения товара числовым полем.
Например, записывать туда целое число - количество месяцев, которое товар хранится на складе.

[masterlomaster]

Сообщение от Serge_Bliznykov

самый простой (и очевидный) выход из этой ситуации сделать срок хранения товара числовым полем.
Например, записывать туда целое число - количество месяцев, которое товар хранится на складе.

Да вы правы что очевидно, просто 4 часа ночи было.

[masterlomaster]

тема закрыта