Задачи на обработку строк: удалить каждую 3-ю букву, найти кол-во гласных, кол-во цифр в строке,совпадения в 2-х строках

[Ирина93]

1) - удалить в строке каждую 3 букву;
- подсчитать в строке количество гласных
2) - подсчитать в строке количество входящих в него цифр;
- вводятся 2 строки. подсчитать количество совпадающих символов


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

Модератор.

[Naive]

— удалить в строке каждую 3 букву;
подсчитать в строке количество гласных
— Зачем?
— Ну, типа задача такая
— И что? Задачи примитивные, интереса к решению не вызывают, дак зачем я их буду решать за тебя?
— Да я не прошу за меня решать, сама не тупая, пары не прогуливаю. Подскажите алгоритм хотя-бы.
— Ну, так с этого и надо было начинать! Держи:
1. Запускаем цикл с нуля до (кол-во символов в строке), внутри заводим инкремент (inc:=inc+1, если он равен трем, обнуляем его, иначе записываем в новую строку символ my_string[inc]. Для второй части создаем строку со списком всех гласных и запускаем два встроенных друг в друга цикла по длинам обоих строк, и сравниваем i-тое значение первой строки с j-тым символом в списке гласных, если равны — sum:=sum+1;
2. обе аналогично второй части первой задачи.

[iCaesy]

Для примера:

program  **;
uses crt;
var
 s:string;
 i,n,k,u:byte;
begin
 write('Vvod stroki : ');
 readln(s);
 n:=Length(s);
 for i:=Length(s) downto 1 do
  if s[i] in ['0'..'9'] then
  begin
    k:=k+1;
    delete(s,i,1);
  end;
  writeln ('Polu4ennaya stroka');
  writeln (s);
end.

[Ирина93]

спасибо!
а у вас программа паскаль какой версии?

[Son Of Pain]

удалить в строке каждую 3 букву;

i:=1;
while i<length(s)-1 do begin
   inc(i, 2);
   delete(s, i, 1);
end;

подсчитать в строке количество гласных

count:=0;
for i:=1 to length(s) do 
   if s[i] in ['a','o','u','i','e','A','O','U','I','E'] {или какие там гласные бывают}
   then inc(count);

2) подсчитать в строке количество входящих в него цифр;

count:=0;
for i:=1 to length(s) do
   if s[i] in ['0'..'9'] then inc(count);

вводятся 2 строки. подсчитать количество совпадающих символов

count:=0;
if length(s1)<length(s2) then l:=length(s1)
else l:=length(s2);
for i:=1 to l do
   if s1[i]=s2[i] then inc(count);

Такие дела.

[Poma][a]

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

1. Запускаем цикл с нуля до (кол-во символов в строке)

Зачем с 0?в паскале строка начинается с 1 символа, а в 0 (байте) содержится длина строки. при 0 программа или заглючит или не откомпилируется. или я ошибаюсь?

[Naive]

Сообщение от Poma][a

Зачем с 0?в паскале строка начинается с 1 символа, а в 0 (байте) содержится длина строки. при 0 программа или заглючит или не откомпилируется. или я ошибаюсь?

Скорее я ошибся) давно не программировал на паскале)