1 задача на строки по Pascal

[vafel']

Решите плиз задачку СРОЧНО НУЖНО; Заранее Спасибо:*)

Написать программу где функция charone(c1,c2:string):string-ищет повторяющиеся в строке с1 подряд символы и удаляет те из них,которые описаны в строке с2.

Буду премного благодарен.

[demon416]

вообщето думать как правило полезней
итак:
vafel'

Код: Выделить всё

program stroki;
function charone(c1,c2:string):string
var
i: integer;
begin
for i:=1 to length(c2) do
while pos(c2[i]+c2[i],c1) do
delete(c1,pos(c2[i]+c2[i],c1));
result:=c1;
end;
begin
writeln(charone('dfsdfaaasdfuusdfsdvee dsfsdfeedeeee tttdsfv rrrrr','uart'));
readln
end.

[vafel']

почему-то не работает эта программа, пишет ошибку №40

[Хыиуду]

Странно, а должен писать ошибку №85

Код: Выделить всё

program stroki;
function charone(c1,c2:string):string;
var
  i: integer;
begin
  for i:=1 to length(c2) do
  while pos(c2[i]+c2[i],c1)>0 do
     delete(c1,pos(c2[i]+c2[i],c1),1);
  charone:=c1;
end;
begin
  writeln(charone('dfsdfaaasdfuusdfsdvee dsfsdfeedeeee tttdsfv rrrrr','uart'));
  readln
end.

[vafel']

Спасибо тебе большое,ты меня очень выручил

[fareng8]

Pascal, строковый тип.
Дано двоичное число, нужно его перевести в шестнадцатеричное.

[Хыиуду]

разбиваем на группы по 4 символа, каждую группу переводим в 16ричную цифру, записываем.

[atavin-ta]

Разбей строку на подстроки по 4 и переведи по таблице:
0000 - 0
0001 - 1
0010 - 2
0011 - 3
0100 - 4
0101 - 5
0110 - 6
0111 - 7
1000 - 8
1001 - 9
1010 - a
1011 - b
1100 - c
1101 - d
1110 - e
1111 - f

[dr.Jekill]

Э,fareng8! Гугл что, отменили?!
Перевод из одной системы счисления в другую, это, что называется, классика жанра.