Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
LLi
0 / 0 / 0
Регистрация: 22.04.2011
Сообщений: 6
#1

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

22.04.2011, 20:20. Просмотров 1122. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составить программу, заменяющую в предложении слог "ма" на слог "ко" (Pascal ABC):

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

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

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

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

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

Строки: Составьте программу, удаляющую из предложения слог "МА" - Pascal ABC
1. Составьте программу, удаляющую из предложения слог "МА" . 2. Составьте программу, вставляющую после буквы "L" слог "КО". ...

8
Zanexess
111 / 84 / 28
Регистрация: 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
2843 / 1972 / 377
Регистрация: 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
2843 / 1972 / 377
Регистрация: 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
2843 / 1972 / 377
Регистрация: 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
Привет! Вот еще темы с ответами:

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

Определить. содержит ли слово слог "кн" - Pascal ABC
Program V19_N4; var A,D :arrayof real; S,b,S1,S2 :real; i:integer; BEGIN write('Введите B: '); readln (b); S1:=0; ...

Пожалуйста, составьте программу, которая из слов"СТРАХ","БЕЛКА","ЦЫПЛЁНОК" получает слово "СТОЛБЕЦ" - Pascal ABC
Пожалуйста, составьте программу, которая из слов&quot;СТРАХ&quot;,&quot;БЕЛКА&quot;,&quot;ЦЫПЛЁНОК&quot; получает слово &quot;СТОЛБЕЦ&quot;.

Составьте программу, определяющую, какая из букв, "А" или "О" встречаются реже в предложении. - Pascal ABC
Составьте программу, определяющую, какая из букв, &quot;А&quot; или &quot;О&quot; встречаются реже в предложении.


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

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

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