ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1070. Местное время

liuzhizhi why Compilation Error again ? [4] // Задача 1070. Местное время 14 июл 2004 15:37
var
 as,be,bs,ae:real;

procedure init;
 begin
  readln(as,be);
  readln(bs,ae);
 end;

procedure ik;
 var
  I,J:integer;
  flytime1,flytime2:real;
 begin
  for I:=-5 to 5 do
   begin
    if be-i<as then be:=be+24;
    flytime1:=(be-i)-as;
    if ae<bs-i then ae:=ae+24;
    flytime2:=ae-(bs-i);
    if abs(flytime1-flytime2)<1/6 then
     begin
      write(abs(I));
      halt;
     end;
   end;
 end;

begin
 init;
 ik;
end.
A new start... "as" is reserved word. [3] // Задача 1070. Местное время 14 июл 2004 18:58
liuzhizhi Re: "as" is reserved word. [2] // Задача 1070. Местное время 15 июл 2004 06:13
but how many reserved words?

main,as,try.......
Dmitry 'Diman_YES' Kovalioff. Retired Reserved words in Delphi (+) [1] // Задача 1070. Местное время 15 июл 2004 13:46
and, array, as, asm, begin, case, class, const, constructor, destructor, dispinterface, div, do, downto, else, end, except, exports, file, finalization, finally, for, function, goto, if, implementation, in, inherited, initialization, inline, interface, is, label, library, mod, nil, not, object, of, or, out, packed, procedure, program, property, raise, record, repeat, resourcestring, set, shl, shr, string, then, threadvar, to, try, type, unit, until, uses, var, while, with, xor
Akshin Salimov Re: Reserved words in Delphi (+) // Задача 1070. Местное время 29 дек 2005 02:28
plz read FAQ before asking such questions...