помогите не пашет алгоритм по вычеслению прожитых дней... Опции

[prevedmuraved]

не пойму чё ей не хватает...

program pr;
 uses crt,dos;
 var dn,an,ln:word;
 procedure days;
 var f:text;
      a:array[1..28,1..12] of integer;
      i,j:integer;
      ac,lc,dc,zc:word;
 begin
 getdate(ac,lc,dc,zc);
 assign(f,'D:\pascal\TP\BIN\exem\tebel1.txt');
 reset(f);
 for i:=1 to 28 do begin
  for j:=1 to 12 do begin
  read(f,a[i,j]);
  end;
  readln(f);
  end;
  close(f);

 end;
  begin
  writeln('dati data dvs de nastere ( dd ll aaa/EXEMPLU:  05 08 1999 )');
 readln(dn,ln,an);
 end.

М

Небольшие программы лучше все же помещать в текст мессаджа (с тегами code=pas), а не прикреплять файлом Lapp

[volvo]

вычитываю из нынешнего года год рождения пользователя

И все? А если я родился 4-го мая 2009, а сегодня - 1 мая 2010, что будет?

Вычитаем из 2010 (текущий год) 2009 (год рождения). = 1
Умножаем на 365 = 365.

Год рождения - не високосный (а вот проверяешь ты это неправильно, недостаточно просто поделить на 4, это частичное решение), значит ничего не делаю. Между датами високосных нет, ничего не делаю. Итого ответ = 365? Неправда. 365 будет 4-го мая, а пока 361... Ты не учитываешь, какой день от начала года - дата рождения, а какое - текущая дата. Это тоже надо учитывать.

Так что проблема у тебя с алгоритмом, я ж говорил... Исправляй, пиши опять описание, посмотрим, как тебе удастся справиться с этим. Программу пока не делай, только напиши словами...