Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
0 / 0 / 0
Регистрация: 22.05.2011
Сообщений: 5
1

Удалить из строки все буквы"а" и"о". символ "*" заменить"-".

22.05.2011, 12:25. Просмотров 2578. Ответов 1
Метки нет (Все метки)


дана строка из 40 символов . удалить из неё все буквы"а" и"о". символ "*" заменить"-".
решите задачу плз!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.05.2011, 12:25
Ответы с готовыми решениями:

Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на экран модифицированную строку
Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на...

В текстовом файле удалить все символы "+" и "-", а так же все буквы "б" перед которыми находится буква "с".
Дан текстовый файл. В нем удалить все символы "+" и "-", а так же все буквы "б" перед которыми...

Заменить символы "1", "2", "3" словами "один", "два", "три"
Дана строка символов. Заменить символы "1", "2", "3" словами "один", "два", "три". Оформить в...

Составить програму, которая б после каждой буквы "е" в данном слове дописывала букву "о" и меняла словосочетание "да" на "нет"
Составить програму, которая б после каждой буквы "е" в данном слове дописывала букву "о" и меняла...

1
22 / 22 / 22
Регистрация: 15.05.2011
Сообщений: 69
22.05.2011, 12:53 2
Лучший ответ Сообщение было отмечено Mirka007 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var
   s:string;
   i,j:byte;
begin
     writeln;
     writeln('vvedite stroky');
     readln(s);
     repeat
     i:=pos('a',s);
     j:= pos('o',s);
     if (i<>0) then
        delete(s,i,1);
     if (j<>0) then
        delete(s,j,1);
     until (i=0) and (j=0);
     
     for i:=1 to length(s) do
     if (s[i]='*')then
        s[i]:='-';
     writeln(s);
end.
Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt;
var
   s:string[40];
   i,j,m,len:byte;
begin
     writeln;
     writeln('vvedite stroky');
     readln(s);
     len:=length(s);
 
     while ((pos('a',s)<>0) and (pos('o',s)<>0)  ) do
     begin
     for i:=1 to len do
     if (s[i]='a') or (s[i]='o') then
     begin
        for m:=i to len-1 do
            s[m]:=s[m+1];
        dec(len);
     end;
     end;
     
     for i:=1 to length(s) do
     if (s[i]='*')then
        s[i]:='-';
 
     for i:=1 to len do
         write(s[i]);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2011, 12:53

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Проверить слово "Дом" и содержит ли оно буквы: "а" , "б" ,"о","д"
программа должна проверить слово &quot;Дом&quot; и содержит ли оно буквы: &quot;а&quot; , &quot;б&quot;...

Заменить все строчные гласные буквы "а", "о", "е" на прописные
Составить программу, которая во введенном тексте заменяет все строчные гласные буквы &quot;а&quot;, &quot;о&quot;, &quot;е&quot;...

Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф".
1) Составить фразу &quot;письменный стол&quot; из слов &quot;тесненный&quot;, &quot;полка&quot;, &quot;речь&quot;, &quot;миф&quot;. 2) Вывести...

Составить фразу "текстовый редактор" из слов "тесто", "редакция", "мотор", "который"
1) Составить фразу &quot;текстовый редактор&quot; из слов &quot;тесто&quot;, &quot;редакция&quot;, &quot;мотор&quot;, &quot;который&quot;.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.