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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

52
while (i<=length(s)) and (s[i] in [' ', ','
, ':' ]) do inc(i);
while (i<=length(s)) and not (s[i] in [' ',
',' , ':' ]) do
begin
r:=r+s[i];
inc(i);
end;
end;
Procedure ReadF;
{считывает файл input.txt}
var s,r:string; { переменные для хранения
всей строки и 1 слова}
i:integer; {указатель на тек. позицию}
err:integer; {признак ошибки при
распознавании чисел(не проверяется)}
begin
Assign(f,'input.txt');
Reset(f);
i:=1;
Read(f,s);
GetNext(s,i,r);
if r='MON' THEN DAY:=1;
if r='TUE' THEN DAY:=2;
if r='WED' THEN DAY:=3;
if r='THU' THEN DAY:=4;
if r='FRI' THEN DAY:=5;
if r='SAT' THEN DAY:=6;
if r='SUN' THEN DAY:=7;
GetNext(s,i,r);
Val(r,date,err);

Страницы