В тексте удалить все гласные, согласные заменить на прописные

@space marine · Регистрация: 31.03.2013

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

Дан текст на английском языке. В нём удалить все гласные согласные заменить на прописные.

Pascal

var s:string;
m:set of char;
i:integer;
begin
writeln ("напишите текст на английском языке");
readln (s);
m:=['a','e','y','u','o','i','A','E','Y','U','I','O'];
for i:=1 to length (s) do 
begin
while s[i] in m do
begin
if s[i] in m then delete (s,i,1);
end;
s[i]:= lowcase (s[i]);
end;
writeln (s);
end.

@Федя Форточкин · 14.05.2013, 00:05

space marine, вот, не уверен что это лучшее решение, но оно работает

C

#include <stdio.h>
#include <iostream>
#include <stdlib.h>
#include <string.h>
void rm(char *s, int i);
int main() {
    char s[50];
    char *str = s;
    printf("Напишите текст на английском языке\n");
    std::cin>>s;
    char m[12] = {'a','e','y','u','o','i','A','E','Y','U','I','O'};
    for(int i = 0;(unsigned int)i<strlen(s);i++) {
        for(int j =0;(unsigned int)j<sizeof(m);j++) {
            if(s[i] == m[j]) {
               rm(s,i);
               break;
            }
        }
        s[i] = tolower(s[i]);
    }
    printf("%s\n",s);
}
void rm(char* s, int i) {
    for(i;i<strlen(s);i++) {
        s[i]=s[i+1];
    }
}

Добавлено через 31 минуту
только он всего одно считывает, захочешь, применишь

C

1	scanf("%s",&s);

@space marine · 18.05.2013, 11:03 **[ТС]**

можешь после 11 строчки объяснить ещё последующие две.

Добавлено через 1 минуту
да и вот этот оператор tolower.

@space marine 2 / 2 / 2 Регистрация: 31.03.2013 Сообщений: 325
	18.05.2013, 11:03 [ТС]	3
	можешь после 11 строчки объяснить ещё последующие две. Добавлено через 1 минуту да и вот этот оператор tolower. 0

В тексте удалить все гласные, согласные заменить на прописные

Решение