Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите поправить процедурку.
Форум «Всё о Паскале» > Pascal, Object Pascal > Теоретические вопросы
Arti
Помогите пишет ошибку но не пойму где и в чём
 Program Sun;
{-------------Входные параметры---------}
procedure VJD (YYYY,Y:word; MM,m,DD:byte; JD,A,B: real);
begin

Write('Год', 'Месяц', 'День'); Readln(YYYY, MM, DD);
IF MM>2 then
begin
Y:=YYYY;
m:=MM;
end
Else if (MM=1) or (MM=2) then
begin
Y:=YYYY-1;
m:=MM+12;
end
end
begin
A:=Int(Y/100);
B:=2-A+int(A/4);
{-------------Вычисляем Юлианскую дату-------------}
JD:=int(365.25*Y)+int(30.6001*(m+1))+DD+1720994.5+B;
WriteLn(' JD = ',JD);
end
end;

FreeMan
как объявлять переменные знаешь? если да, то фперет объявлять. есле нед - смотри faq, литеротуро...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.