Олимпиадные задачи по программированию. Ч. 2. Лучшие решения. Ускова О.Ф - 24 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

GetNext(s,i,r);
Val(r,year,err);
if length(r)=2 then year:=year+1900;
GetNext(s,i,r);
Val(r,hour,err);
GetNext(s,i,r);
Val(r,min,err);
GetNext(s,i,r);
Val(r,sec,err);
GetNext(s,i,r);
if length(r)=5 then begin
Val(Copy(r,2,2),inch,err);
Val(Copy(r,4,2),incmin,err);
if s[1]='-' then
begin
inch:=-inch;
incmin:=-incmin;
end;
end
else
begin
if r='UT' then begin inch:=00; incmin:=00; end;
if r='GMT' then begin inch:=00; incmin:=00; end;
if r='EDT' then begin inch:=-4; incmin:=00; end;
if r='CDT' then begin inch:=-5; incmin:=00; end;
if r='MDT' then begin inch:=-6; incmin:=00; end;
if r='PDT' then begin inch:=-7; incmin:=00; end;
end;
INCH:=3-INCH;
INCMIN:=-INCMIN;
Close(f);
end;
Function IntToStr(x:integer):string;
{перевод из числа в строу}
var r:string; {временная переменная}
begin
Str(x,r);
IntToStr:=r;
end;
Function IntToStr2(x:integer):string;
{перевод из числа в строку длиной 2}
var r:string;
begin
Str(x,r);
if length(r)=1 then r:='0'+r;
IntToStr2:=r;
end;
Procedure WriteF;
{запись файла}
var s,r:string; {временные переменные для хранения строки и 1 слова}
begin
Assign(f,'output.txt');

Страницы