IPB
ЛогинПароль:

> помогите не пашет алгоритм по вычеслению прожитых дней...
prevedmuraved
сообщение 8.06.2010 23:43
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 17
Пол: Мужской
Реальное имя: pavel

Репутация: -  0  +


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

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



--------------------
Жизнь хитра - когда у меня на руках все карты,
она внезапно решает играть в шахматы.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
prevedmuraved   помогите не пашет алгоритм по вычеслению прожитых дней...   8.06.2010 23:43
volvo   Как минимум - вызова процедуры (или более логичных...   8.06.2010 23:55
prevedmuraved   извините не тот фаил закачал..... :huh: :( :cra...   9.06.2010 7:31
volvo   А теперь - по русски напиши тот алгоритм, который ...   9.06.2010 9:07
prevedmuraved   Только не надо опять увиливать и писать что-то др...   9.06.2010 9:23
volvo   Это - не алгоритм. Это - задача. Алгоритм - это де...   9.06.2010 9:45
prevedmuraved   вычитываю из нынешнего года год рождения пользоват...   9.06.2010 10:25
volvo   И все? А если я родился 4-го мая 2009, а сегодня -...   9.06.2010 11:35
prevedmuraved   тогда нужно проверять: * если месяц рождения > ...   10.06.2010 9:09
TarasBer   Ладно, подскажу. Удобнее перевести дату рождения ...   10.06.2010 9:41
prevedmuraved   Удобнее перевести дату рождения и текущую дату в ...   10.06.2010 9:52
Lapp   а можно по подробнее а то я чёт не понял... :blink...   10.06.2010 10:02
prevedmuraved   Считаем все в днях от Рождества Христова. аа...   10.06.2010 10:22
Lapp   ааа... ну или с дня рождения... :)Если ты делаешь ...   10.06.2010 23:41
TarasBer   ааа... ну или с дня рождения... :) Со дня рожден...   11.06.2010 9:26
prevedmuraved   всё можно закрывать тему... :cool: пасиба за помо...   18.06.2010 12:04


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 24.06.2025 1:52
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"