Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
LLi
0 / 0 / 0
Регистрация: 22.04.2011
Сообщений: 6
1

Составить программу, заменяющую в предложении слог "ма" на слог "ко"

22.04.2011, 20:20. Просмотров 1257. Ответов 8
Метки нет (Все метки)

Условие:
составить программу, заменяющую в предложении слог "ма" на слог "ко".
Решение:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Program primer_1;
    var a,b,c,d: string;
    n,i: integer;
    begin
    cls;
    b:='ма';
    c:='ко';
    write('Введите ');
    readln(a);
    n:=pos(b,a);
    If n>0 then
    begin
    For i:= 1 to length(a) do
    begin
    n:=pos(b,a);
    If n>0 then begin
    delete(a,n,2);
    insert(c,a,n); inc(i);
    end; end;
    write(a);
    end
    else write('Нет такого слога'); end.
Вопрос:как её переделать, чтобы вдобавок еще и заменяла "Ма"(с заглавной буквы) на "ко"?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.04.2011, 20:20
Ответы с готовыми решениями:

Составьте программу, заменяющую слог "на" на "ни" в предложениях
Здравствуйте! Не могу сообразить задачи по строковым величинам, после массивов...

Составить программу замены в слове X всех букв "а" и "я" на слог "ба"
Доброго времени суток! Помогите, пожалуйста, с задачей. Нужно составить...

Составить программу, заменяющую букву "А" на "О" в предложении
Составить программу, заменяющую букву "А" на "О" в предложении

Ввести строку. После каждой буквы "А" вставить слог "МА"
Ввести строку. После каждой буквы "А" вставить слог "МА"

Составьте программу, заменяющую букву "Е" на "А" в предложении.
Составьте программу, заменяющую букву "Е" на "А" в предложении.

8
Zanexess
111 / 84 / 52
Регистрация: 22.10.2010
Сообщений: 227
22.04.2011, 22:25 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
29
30
31
Program primer_1;
var a,b,c,d,bb: string;
n,i: integer;
begin
cls;
b:='ма';
bb:='Ма';
c:='ко';
write('Введите ');
readln(a);
n:=pos(b,a);
If n>0 then
begin
For i:= 1 to length(a) do
begin
n:=pos(b,a);
If n>0 then begin
delete(a,n,2);
insert(c,a,n); inc(i);
end; end;
For i:= 1 to length(a) do
begin
n:=pos(bb,a);
If n>0 then begin
delete(a,n,2);
insert(c,a,n); inc(i);
end; end;
write(a);
end
else write('Нет такого слога');
end.
Добавлено через 10 минут
Процедурой
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
Program primer_1;
var a,b,c,d,bb: string;
n,i: integer;
procedure zam;
begin
For i:= 1 to length(a) do
begin
n:=pos(b,a);
If n>0 then begin
delete(a,n,2);
insert(c,a,n); inc(i); end; end;
end;
begin
cls;
b:='ма';
c:='ко';
write('Введите ');
readln(a);
zam;
b:='Ма';
zam;
n:=pos(c,a);
If n>0 then Writeln (a) else Writeln ('Нет такого слога');
end.
0
LLi
0 / 0 / 0
Регистрация: 22.04.2011
Сообщений: 6
22.04.2011, 22:49  [ТС] 3
Огромное спасибо!
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
22.04.2011, 22:55 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
var
 k: string;
 
function slog(s:string):string;
var
 i,l:byte;
begin
l:=0;
for i:=length(s) downto 1 do
if (copy(s,i,2)='ма') or (copy(s,i,2)='Ма') then
begin
 delete(s,i,2);
 insert('ко',s,i);
 inc(l);
end;
if l=0 then slog:='Нет слога.'
else slog:=s;
end;
 
begin
 cls;
 readln(k);
 write(slog(k));
end.
0
LLi
0 / 0 / 0
Регистрация: 22.04.2011
Сообщений: 6
22.04.2011, 23:15  [ТС] 5
Мне подходит задача типа

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
29
30
31
Program primer_1;
var a,b,c,d,bb: string;
n,i: integer;
begin
cls;
b:='ма';
bb:='Ма';
c:='ко';
write('Введите ');
readln(a);
n:=pos(b,a);
If n>0 then
begin
For i:= 1 to length(a) do
begin
n:=pos(b,a);
If n>0 then begin
delete(a,n,2);
insert(c,a,n); inc(i);
end; end;
For i:= 1 to length(a) do
begin
n:=pos(bb,a);
If n>0 then begin
delete(a,n,2);
insert(c,a,n); inc(i);
end; end;
write(a);
end
else write('Нет такого слога');
end.
Но она почему-то не идёт( Когда вводишь Маша, выводит: Нет такого слога!(
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
23.04.2011, 00:36 6
n:=pos(b,a);
b:='ма';
следовательно он определяет позицию ма в строке.Ввёл Маша следовательно n=0 и у нас условие else (т.е. <=0) n=0 вот тебе и вывод такого слога нет.Код уж больно жуткий.
0
LLi
0 / 0 / 0
Регистрация: 22.04.2011
Сообщений: 6
23.04.2011, 00:48  [ТС] 7
А как правильно это все оформить?
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
23.04.2011, 00:50 8
#4 и #2 там где с процедурой вроди верно.
0
LLi
0 / 0 / 0
Регистрация: 22.04.2011
Сообщений: 6
23.04.2011, 00:59  [ТС] 9
Ясно. Большое спасибо!
0
23.04.2011, 00:59
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.04.2011, 00:59

Строки: Составьте программу, удаляющую из предложения слог "МА"
1. Составьте программу, удаляющую из предложения слог &quot;МА&quot; . 2. Составьте...

Составить программу, которая бы выводила на экран заданное число и подпись в зависимости от числа "год", "года" или "лет"
Здравствуйте. Дано натуральное число N&lt;101, определяющее возраст человека( в...

Определить. содержит ли слово слог "кн"
Program V19_N4; var A,D :arrayof real; S,b,S1,S2 :real; i:integer; ...


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

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

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