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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

48
{перевод слова языка TURBU в число от 0 до
3124
каждый символ в языке TURBU представляет
собой цифру
пятеричной системы счисления от 0 до 4}
var i,pos,st,r:integer;
begin
pos:=0; st:=1;
for i:=length(x) downto 1 do
begin
case x[i] of
'#':r:=0;
'$':r:=1;
'&':r:=2;
'*':r:=3;
'@':r:=4;
else Writeln('Error!!!!!')
end;
pos:=pos+r*st;
st:=st*5;
end;
To10:=pos;
end;
Procedure DoLen5(var s:string);
{дополнение полученного слова до принятого в
языке TURBU
(необходимо когда в начале слова стоит
один(или несколько)
нулевой символ `#`, в этом случае код слова
в десятичной
системе счисления будет меньше 625)}

Страницы