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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

3:r:='*';
4:r:='@';
else Writeln('Error!!!!!')
end;
s:=r+s;
end;
To5:=s;
end;
Procedure ReadFile;
{чтение исходных данных из файла Input.txt:
N - число слов на странице
a - первое слово
b - второе слово }
var s:string;
f:text;
begin
Assign(f,'input.txt');
Reset(f);
Readln(f,n);
Readln(f,a);
Readln(f,b);
Close(f);
end;
Function To10(x:string):integer;
{перевод слова языка 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)}
begin
While length(s)<5 do s:='#'+s;
end;
Procedure WriteToFile;
{запись в файл Output.txt и расчет выходных данных}
var ttt,q,p:integer;
s1,s2:num5;

Страницы