В тексте убрать все буквы k и узнать длину текста

@Лёшка · Регистрация: 26.05.2009

Author24 — интернет-сервис помощи студентам

В даном тексте убрать все буквы k и узнать длину текста

Pascal

Program f;
var
  a:string[30];
  b:string[2];
  c,n,i,k,s:integer;
begin
  writeln('vvod stroki');
  readln(a);
 c:=0;
 { n:=length;}
  s:=k;
  for i:=1 to n do
  b:=copy(a,i,1);
  if bx:=s then
  if del(a,i,1) then
  if c:=c+1 then
  if n:=length(a);
  end;
  writeln('c=',c);
  readln;
  end.

@mikutu · 27.05.2009, 05:40

в условиях пишется просто =, а не :=.

Pascal

Program f;
var
  a:string[30];
  b:string[2];
  c,n,i,k,s:integer;
begin
  writeln('vvod stroki');
  readln(a);
  n:=length;
  s:='k';
  for i:=1 to n do begin
  b:=copy(a,i,1);
  if b=s then del(a,i,1);
  if n=length(a) then break;
  end;
  writeln('a=',a);
  writeln('len=',length(a));
  readln;
  end.

Вообще советую вам повнимательнее почитать про циклы и условные операторы в pascal, а то у вас очень много ошибок при их применении.

@Puporev · 27.05.2009, 14:32

if b=s then del(a,i,1);

Какая-то новая процедура?
А решение намного проще.

Pascal

writeln('Длина строки=',Length(a));
for i:=length(a) downto 1 do
if a[i]='k' then delete(a,i,1);
write(a);

@mikutu · 27.05.2009, 16:48

я просто исправлял программу написанную автором темы, а компилятора под рукой не было вот и пропустил, конечно delete. Ваш вариант проще, я просто показал автору темы как то, что он написал привести в работающий вид (что не совсем получилось :-)), что бы ему было виднее его ошибки

@mikutu 27 / 27 / 10 Регистрация: 29.04.2009 Сообщений: 90
	27.05.2009, 16:48	4
	я просто исправлял программу написанную автором темы, а компилятора под рукой не было вот и пропустил, конечно delete. Ваш вариант проще, я просто показал автору темы как то, что он написал привести в работающий вид (что не совсем получилось :-)), что бы ему было виднее его ошибки 0