Форум АНТИЧАТ - Показать сообщение отдельно

Цитата:

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

Люди, дайте у кого есть ссылку на словарик по Дням роднениям.
Сверху есть такие, например 031279, а я ищу с полным годом, например 03121979 и 19790312. Если кто встречал поделитесь сылкой ПЛИЗЗЗ

Сама программа ... сделал диапазоны по годам 1900-2050 т.к врядли другие будут,что маловероятно.

Код:

program HappyDays;

uses windows,sysutils;

var
Years,Months,Days : word;
f :textfile;
Tmp :string;

begin
Years:=1900;
AssignFile(f,'dictonary.txt');
Rewrite(f);

while Years<2050 do begin
inc(Years);
for Months:=1 to 12 do begin
for Days:=1 to 31 do begin
tmp:=IntToStr(years)+IntToStr(Months)+IntToStr(days);
WriteLn(f,tmp);
end;
end;
end;

CloseFile(f);
end.

И сами словари:
Год,Месяц,День : http://slil.ru/25509309
День,Месяц,Год:http://slil.ru/25509311

Каждый по 104 килобайта(zip).

Have a nice day!