Использование результата одной задачи в решении другой

[dubailand]

Итак, работу надо сдать завтра, поэтому желательно разъяснить предельно ясно.
Итак, у меня есть прога, которая вычисляет определенные числа (по определенной формуле). Числа - это номер дня в году (от 1 до 365 или 366).

Кроме того, имеется прога, которая преобразовывает эти числа в дату. То есть, 32 день - 1 февраля.
А вот теперь сам вопрос: чисел для перевода очень много и они выражены как сумма основного числа e+другое, а e+число переменная не присваивается. Вот и вопрос как перевести число без переменной?

З.Ы. Переменных понадобится много, поэтому их и не наберешься!

[JinglsOrg]

123e+13=123*10^13

109e+2=109*10^2=10900

1234567e-5=1234567*10^(-5)=12.34567

[dubailand]

????
Эт че такое?

[JinglsOrg]

ну это то как преобразуется очень длинное число в число с плавающей точкой - этим числам можно задать тип real

[dubailand]

Так не в этом суть, суть в том, что одна прога вычисляет данные для другой. А вопрос как решение ввести во вторую прогу!

Переменные не вариант потому, что их будет около 60.

[Hacker19_90]

Короч у тя две проги!
Одна высчитывает числа, другая ЭТИ числа преобразует!
И тебе надо из первой проги передать числа в другую!
ТАК?

У есть исходники? Передавать можно и через файл! Как вариант!
Конкретней объясни!

[dubailand]

Да именно так как вы объяснили

[New man]

те же сказали показать исходники этих двух проектов

Ну или хотябы, какие данные надо передать надо кажи

[dubailand]

вот код первой проги:

var
a,b,c,d,g,e,P:integer;
begin
write('Введите год');
read(P);
a:=P mod 4;
b:=P mod 7;
c:=P mod 19;
d:=(19*c+15) mod 30;
g:=(2*a+4*b+6*d+6) mod 7;
e:=94+d+g;
writeln(' Первый пр. - ',e-42);
writeln('Второй пр. - ',e-8);
writeln('Третий пр. - ',e-7);
writeln('Четвертый пр. - ',e-2);
writeln('Пятый пр. - ',e);
end.

А вот код который преобразует эти числа.

uses crt;
const mes:array[1..12] of string[10]=('января','февраля','марта','апрел я','мая',
'июня','июля','августа','сентября', 'октября','ноября','декабря');
var n,m,d:word;
begin
clrscr;
repeat
write('Введите номер дня в году от 1 до 365 n=');
readln(n);
until(n>0)and(n<366);
case n of
1..31 :begin
m:=1;
d:=n;
end;
32..59 :begin
m:=2;
d:=n-31;
end;
60..90 :begin
m:=3;
d:=n-59;
end;
91..120 :begin
m:=4;
d:=n-90;
end;
121..151:begin
m:=5;
d:=n-120;
end;
152..181:begin
m:=6;
d:=n-151;
end;
182..212:begin
m:=7;
d:=n-181;
end;
213..243:begin
m:=8;
d:=n-212;
end;
244..273:begin
m:=9;
d:=n-243;
end;
274..304:begin
m:=10;
d:=n-373;
end;
305..334:begin
m:=11;
d:=n-304;
end;
334..365:begin
m:=12;
d:=n-334;
end;
end;
writeln('День и месяц:');
if d<10 then write('0',d,' ')
else write(d,' ');
write(mes[m]);
writeln;
end.

Как преобразовать из первой проги, ведь переменных нет!

[GetMax]

Как вариант, можно первую программу описать как модуль для второй. А во второй программе вызвать и использовать этот модуль.