1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [ code=pas ] ... [ /code ].
Всем привет.
Вот взялся за обучение Паскаля, решил написать маленькую програмку вычисления Юлианской даты. Но что то не получается у меня Вот алгоритм.
Условимся обозначать:
YYYY - год ММ - номер месяца ДД - число месяца(дата)
Если ММ>2, то Y=YYYY и m=ММ Если ММ=1 или ММ=2, то Y=YYYY-1 и m=MM+12
Вот что я намудрил, не до конца но где начинается оператор else if выдаёт ошибку....
Program JDay; Var YYYY,MM,DD, y,m: real; Begin Write('Year'); Readln(YYYY); Write('Month'); Readln(MM); Write('Day'); Readln(DD); If MM>2 then begin y:=YYYY; m:=Month; end else if MM:=1 or MM:=2 then begin y:=YYYY-1; m:=MM+!12; End
Помогите Please разобраться почему там ошибка.
Автор: volvo 12.09.2007 21:05
... else if (MM=1) or (MM=2) then ...
, приоритет операции OR выше чем приоритет операций сравнения, у тебя получалось: