составить программу
10-11 класс
|
чтобы удалить все гласные из строки , помогите пожалуйста,очень срочно нужно!!!!!!
program BezGlasnix;
var
i: Byte;
Stroka, Buffer: String;
begin
// 4itaem stroku.
Write('Vvedite stroku:');
ReadLn(Stroka);
//
Buffer:='';
//
for i:=1 to Length(Stroka) do
if (Stroka[i] <> 'a') and (Stroka[i] <> 'e') and (Stroka[i] <> 'i') and (Stroka[i] <> 'o') and (Stroka[i] <> 'u') and (Stroka[i] <> 'y') then Buffer:=Buffer + Stroka[i];
//
Stroka:=Buffer;
// Vvivod stroki.
Write('Stroka bez glasnix: '+Stroka);
end.
Дешево и сердито :)
program GetStringWithoutVowels;
var i : integer;
inputStr : string;
outputStr : string;
symbol : char;
begin
//Readln(inputStr);
inputStr := 'HELLO, world!';
for i := 1 to Length(inputStr) do
begin
symbol := LowerCase(inputStr)[i];
if (symbol <> 'a') and (symbol <> 'e') and (symbol <> 'i')
and (symbol <> 'o') and (symbol <> 'u') and (symbol <> 'y')
then outputStr := outputStr + inputStr[i];
end;
Writeln(outputStr);
Readln();
end.
я значит лучше тебя ^^
but you не расстраивайся please
Конечно бро, давай на asm'e ему напишем ;)
Пусть еще приз за оптимизацию возьмет :)
Другие вопросы из категории
Составить блок-схему нахождения суммы
элементов, принадлежащих вспомогательной
диагонали матрицы.
Для записи сообщения использовался 64-х символьный алфавит.каждая страница содержит 30 строк.все сообщение содержит 8775 байтов информации и занимает 6
страниц.сколько символов в строке?
Читайте также
2. Составить программу для упорядоченное двух элементов по убыванию.
вывести список книг, изданных после 2003 года.
2)составить программу , организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.
ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
Составить программу к.т. запрашивает буквы, пока не введут точку и находит количество букв "0".