вопрос по БД в паскале

[PRYANIK]

КАК написать программу создания базы данных структура которой
название топлива
день, месяц, год поставки
цена за единицу
количество
стоимость (не вводится а определяется по количеству и введенной цене за единицу)
вывести базу данных в виде таблицы

[vasermantolik]

например это можно сделать так!!!


PROGRAM LAB;
uses CRT;
VAR Z:TEXT;
J,I,L:INTEGER;
MARKA:STRING [15];
RAZ,CVET:INTEGER;

BEGIN
clrscr;
ASSIGN (Z,'СВЕДЕНИЯ.txt');
REWRITE(Z);
J:=1;
FOR L:=1 TO 3 DO BEGIN
WRITE('НАЗВАНИЕ МОНИТОРА ');READLN(MARKA);
WRITE('РАЗМЕР МОНИТОРА ');READLN(RAZ);
WRITE('ЦВЕТНОСТЬ ИЛИ МОНОХРОМНОСТЬ (1 ИЛИ 0)');READLN(CVET);
WRITELN(Z,MARKA,' ',RAZ);WRITELN(Z,' ',CVET);
J:=J+1;
END;
CLOSE(Z);
END.

есть вопросы пиши: ISQ 597695502
vasermantolik@yandex.ru

[PRYANIK]

а месяц год день все отдельно вводить???
для каждого writeln (den) readln (den
writeln (mesyac ) readln (mecyac)
типо так??

[psycho-coder]

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

например это можно сделать так!!!

Вы меня убиваете))

создания базы данных структура которой

Нужно объявить структуру и работать с ней, например так(шаблон)

uses crt;
type
  mydb = record
    Date: String[10];
    Price: Integer;
    Count: Integer;
    Cost: Integer;
  end;
var
  db: mydb;

begin
  db.Date := 'asdasd';
  WriteLn(db.Date);
  ReadKey;
end.

[PRYANIK]

во теперь понял спс большое

[Анатоль]

Это называется тип данных 'ЗАПИСЬ'.(RECORD)

[PRYANIK]

а у мя не выводит в виде таблицы что делать??

[PRYANIK]

вообщем вот так получилося

Program baza;
Uses crt;
label 10;
type spisok=record
     nazvapaluva:string;
     data:string;
     zina:real;
     kilkict:real;
     q:real;
     end;
FT= file of spisok;
Var a:ft;
    i,z:integer;
    s:real;

Procedure Sozd (var a:ft);
Var i,j:integer;
    zk:spisok;
begin
rewrite (a);
j:=1;
 repeat
          begin
          write ('NAZVA PALUVA ');
          readln (zk.nazvapaluva);
          write ('DATA ');
          readln (zk.data);
          write ('zina ');
          Readln (zk.zina);
          write ('vvedite kilkist ');
          readln (zk.kilkict);
          write (a,zk);
          writeln ('continue? yes-1 no-0');
          readln (j);
          end;
until j=0;
close (a);
end;
Procedure vyvod (var a:ft);
Var i:integer;
    zk:spisok;
begin
reset (a);
 writeln ('=================================================================');
 writeln ('|   NAZVA   |   DATA   |    zina   |   kilkist   |   VARTICT    |');
 writeln ('=================================================================');
 while not eof(a) do
  while not eof(a) do
   begin
    read (a,zk);
    write ('|',zk.nazvapaluva:6,'     ');
    write ('|',zk.data:10);
    write ('|',zk.zina:6,'     ');
    write ('|',zk.kilkict:6,'    ');
       zk.q:=zk.kilkict*zk.zina;
       write ('|',zk.q:5:2,'      |');

    writeln;
    writeln ('-----------------------------------------------------------------');
   end;
close (a);
end;
Procedure poisk (var a:ft);
var i:integer;
    zk:spisok;
    name:string;
begin
reset (a);
 writeln ('Vvedite nazvy dlja poiska ');
 readln (name);
 writeln ('spisok s zadannym nazvaniem ');
 writeln ('=================================================================');
 writeln ('|   NAZVA   |   DATA   |    zina   |   kilkist   |   VARTICT    |');
 writeln ('=================================================================');
 while not eof(a) do
 begin
  read (a,zk);
  if zk.nazvapaluva=name then
  begin
        write ('|',zk.nazvapaluva:6,'     ');
    write ('|',zk.data:10);
    write ('|',zk.zina:4,'     ');
    write ('|',zk.kilkict:4,'    ');
       zk.q:=zk.kilkict*zk.zina;
       write ('|',zk.q:5:2,'      |');
  writeln;
    writeln ('-----------------------------------------------------------------');
  end;
 end;
close(a);
end;
begin
clrscr;
10:
assign (a,'fff');
writeln ('       MEHIO      ');
writeln ('    1:cozdanie ');
writeln ('    2:vyvod ');
writeln ('    3:poisk ');
writeln ('    4:vyxod ');
readln (z);
 case z of
  1:sozd(a);
  2:vyvod (a);
  3:poisk (a);
  4:exit;
  end; goto 10;
readln
end.

[PRYANIK]

)))) вот так вот работает в полне нормально.))