Задачи на обработку строк

[Katia_Vasilyeva]

милые, хорошие выручите меня пожалуйста. в ваших руках судьба хрупкой беззащитной девушки, которой нужно сдать завтра программирование.(А ОНА ЖЕ ТУПО ПРОСИДЕЛА 4 ЧАСА С ЭТИМИ СТРОКАМИ)
1. В заданной строке каждое слово заменить количеством букв в этом слове.
2. Проверить является ли текст десятичной записью числа, кратного 9.
3. Проверить является ли текст десятичной записью числа, кратного количества символов.

прошу вас. умаляю, на коленях стою и молюсь


_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.

Модератор.

[TinMan]

Кать, ты покажи, что сделала.
Мы обязательно поможем.

[Katia_Vasilyeva]

с №1 разобралась уже)) вот...а №2 никак не могу понять. че вообще там надо и как? по отдельности каждый символ рассматривать?

[Son Of Pain]

хрупкой беззащитной девушки,

Раньше в таких случаях говорили proof or gtfo, но теперь народ измельчал (

а №2 никак не могу понять. че вообще там надо и как?

Берешь в цикле каждый символ. Если он не цифра - значит фигня, если цифра - добавляешь ее к счетчику.
Если счетчик разделится в итоге на 9 - значит число было кратным, да.
Ну а еще можно написать просто

if (strtoint(s) mod 9)=0

, но это не понравится твоему преподу )

[TinMan]

Самый простой спсоб - использовать процедуру Val

Procedure Val(S; String; var X; var Code: Integer) Преобразует строковое значение S в его численное представление X. Параметр Code -содержит признак ошибки преобразования (0 - нет ошибки).

Дай ей текст, если она вернет code равным 0 - значит, это число. Тогда проверь, делится ли X на 9 без остатка

var
  s: string;
  x,code: integer;
.....
  readln(s);
  Val(s,x,code);
  if (code=0) and (x mod 9=0) then writeln('yes') else writeln('no');

№3 аналогично, только надо убрать из s все нецифры (пробелы, минус..) и взять Length(s).

  readln(s);
  Val(s,x,code);
  for i:=Length(s) downto 1 do if not (s[i] in ['0'..'9'] then Delete(s,i,1);
  if (code=0) and (x mod Length(s) =0) then writeln('yes') else writeln('no');

Good luck to you. Сбрось сюда №1, аз проверю..

P.S.

Сообщение от Son Of Pain

Раньше в таких случаях говорили proof or gtfo, но теперь народ измельчал

А я бы на месте девушки обиделся.. Что, справку от гинеколога приносить??..
Не веришь - иди мимо..

[Katia_Vasilyeva]

Son Of Pain, да я уже и сама додумалась до этого.
хотя...сейчас накидаю сюда - зацените)))

Сообщение от Son Of Pain

Раньше в таких случаях говорили proof or gtfo, но теперь народ измельчал (

только не надо умничать. такие заголовки к темам тоже надо уметь писать :Р

TinMan, о так даже по-удобней) спасибо огромное. сейчас покопаюсь

[TinMan]

Пожалуйста )

Сообщение от Katia_Vasilyeva

такие заголовки к темам тоже надо уметь писать :Р

Не, с этим я в корне не согласен. Был бы я тут модером, наказал бы за такое.. Думаю, просто еще не заметили.
Читай Правила.

[Katia_Vasilyeva]

Сообщение от TinMan

.. Думаю, просто еще не заметили.

да фигня! я ещё и не такое выделывала :D

Сообщение от TinMan

Сбрось сюда №1, аз проверю..

uses crt;
var s:string;
 i, sym:integer;
begin
 read(s);
 sym:=0;
  for i:=1 to length(s) do
   sym:=ord(s[i])-48+sym;
  if (sym mod 9)=0 then writeln('yes') else writeln('no');
end.

[TinMan]

Сообщение от Katia_Vasilyeva

да фигня! я ещё и не такое выделывала :D

улыбнуло )
+1 тебе (в надежде, что твое выделывание будет и дальше только поднимать настроение, а не портить его))

Sorry for flood..

[Katia_Vasilyeva]

вот первая :

uses crt;
var s,sl,sn: string;
    i,k: integer;
begin
write('s=');
readln(s);
s:=s+' ';
sl:='';
sn:='';
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i]
       else
       begin
       sn:=sn+inttostr(length(sl))+' ';
       sl:='';
       end;
writeln('s=',sn)
end.