Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] разработать базу данных

Автор: L4M0 17.9.2007, 01:27

нужна помощь в вот каком заданице:
нужно разработать базу данных "Список родственников" (фамилия, имя, отчество, дата рождения, адрес, № телефона). Вывести на экран данные обо всех родственниках родившихся январе.

Знаю токлько то, что надо использовать структурированный тип записи.
большое спасибо, если кто откликница, а то я дуб совсем...)

Автор: Rodman 17.9.2007, 08:59

Код


uses
  Crt;
const N=10;
type
  TPeople = record
    FAM:String;
    Im:String;
    otc:String;
    DaB:String;
    adr:String;
    tel:String;
  end;
var APeople:array [1..N] of TPeople;
    i,j,c:Integer;
begin
  Writeln('Enter data');
  for i:=1 to N do
  begin
    Readln(APeople[i].FAM);
    Readln(APeople[i].Im);
    Readln(APeople[i].otc);
    Readln(APeople[i].Dab);
    Readln(APeople[i].adr);
    Readln(APeople[i].tel);
  end;
  for i:=1 to N do
  begin
    val(copy(APeople[i].Dab, 4, 2), j, c);
    if((c=0) and (j=1))then
    begin
      Writeln(APeople[i].FAM);
      Writeln(APeople[i].Im);
      Writeln(APeople[i].otc);
      Writeln(APeople[i].Dab);
      Writeln(APeople[i].adr);
      Writeln(APeople[i].tel);
    end;
  end;
  readln;
end.

Автор: L4M0 17.9.2007, 20:18

пасибо конечно, тока я че то непонимаю как это работает вообще((
программа просит ввести дату, я ввожу, но нечего непроисходит...

Автор: kapbepucm 18.9.2007, 11:28

L4M0, APeople заполни

Автор: Rodman 18.9.2007, 11:37

Цитата(L4M0 @ 17.9.2007, 20:18

)

но нечего непроисходит

вылетает?

Автор: volvo877 18.9.2007, 12:58

Цитата(L4M0 @ 17.9.2007, 19:18

)

программа просит ввести дату

Программа просит ввести данные... Чувствуешь разницу?

Автор: L4M0 19.9.2007, 02:59

ммм поятно))

а где конкретно прога считывает, дату ? т.е. задание "Вывести на экран данные обо всех родственниках родившихся январе.", я непонимаю в какой конкретно строчке она считывает в дате, месяц и потом выводит уже его на экран?...
... просто этот ключевой момент для меня из за которого я немагу даже коректно ввести данные что бы прога сработала... smile

Автор: Rodman 19.9.2007, 08:22

Цитата(L4M0 @ 19.9.2007, 02:59

)

Вывести на экран данные обо всех родственниках родившихся январе."

Код


    Readln(APeople[i].Dab);

вводишь "01,01,2001"