Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
privetdrugg
0 / 0 / 1
Регистрация: 18.02.2015
Сообщений: 4
#1

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

29.04.2015, 11:12. Просмотров 681. Ответов 2
Метки нет (Все метки)

1. Составьте программу, выясняющую, есть ли в слове Х хотя бы одна из букв "о" или "а".
2. Составьте программу, подсчитывающую, сколько букв слова Х исполь-зуются при написании слова Y.
3. Составьте программу, отыскивающую символ, встречающийся в слове Х 3 раза.


Помогите пожалуйста
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.04.2015, 11:12
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составьте программу, выясняющую, есть ли в слове Х хотя бы одна из букв "о" или "а" (Pascal ABC):

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

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

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

Составьте программу меняющую в слове X букву "о" на сочетание "ку"
Зарание спасибо

Выясните, какая из букв "а" или "б" встречается в слове X чаще.
Выясните, какая из букв "а" или "б" встречается в слове X чаще.

Напишите программу для подсчета суммарного количества букв "м" и "н" в слове Y
Напишите программу для подсчета суммарного количества букв "м" и "н" в слове Y....

2
Gataur
11 / 11 / 14
Регистрация: 28.02.2015
Сообщений: 43
29.04.2015, 13:59 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

privetdrugg, 1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
   S: string;
   i: integer;
   res: boolean;
begin
   res := false;
   writeln('Введите слово');
   readln(s);
   for i:= 1 to length(s) do
      if (s[i] = 'а') or (s[i]='о') then
         res := true;
   if res then
      writeln('В вашем слове есть хотя бы одна буква "о" или "а"')
   else
      writeln('В вашем слове нет хотя бы одной буквы "о" или "а"');
 
end.
2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
   x,y: string;
   i,j: integer;
   c: integer;
   res: boolean;
begin
   res := false;
   writeln('Введите слово X ');
   readln(x);
   writeln('Введите слово Y ');
   readln(y);
   c:=0;
   for i:= 1 to length(x) do
      for j:= 1 to length(y) do
         if (x[i] = y[j]) then
            c := c +1;
   writeln('Кол-во букв слова X, исп. в слове Y: ', c);
 
end.
1
Igor_pro
1 / 1 / 4
Регистрация: 26.04.2015
Сообщений: 5
29.04.2015, 14:21 #3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1)
Pascal
1
2
3
4
5
6
7
8
9
10
program task1;
var x:string; i:integer;
begin
writeln('Введите слово');
readln(x);
i:=pos('о',x)+pos('а',x);
if i>0 then writeln('В слове есть хотя бы одна из букв о или а') else
writeln('В слове нет букв а и о');
readln();
end.
2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program task2;
var x,y:string; i,j,k:integer;
begin
writeln('Введите слово X');
readln(x);
writeln('Введите слово Y');
readln(y);
for i:=1 to length(x) do
 for j:=length(x) downto i+1 do
  if x[j]=x[i] then delete(x,j,1);
for i:=1 to length(y) do
 for j:=length(y) downto i+1 do
  if y[j]=y[i] then delete(y,j,1);  
for i:=1 to length(y) do
 if pos(y[i],x)<>0 then inc(k);
writeln('Количество символов в слове Y, используемых в слове X = ',k); 
end.
3)
Pascal
1
2
3
4
5
6
7
8
9
10
11
program task3;
var x,s:string; i:integer; m : Array['а'..'я'] of integer; h:char;
begin
writeln('Введите слово X');
readln(x);
for i:=1 to length(x) do inc(m[x[i]]);
for h:='а' to 'я' do
 if m[h]=3 then s:=s+','+h;
delete(s,1,1); 
writeln('Символы, которые встречаются 3 раза:',s);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2015, 14:21
Привет! Вот еще темы с решениями:

Пожалуйста,составьте программу, которая из слова "ПРОГРАММА" составляет слова: "ГРАММ","РОГА","ГОРА"
Составьте программу, которая из слова &quot;ПРОГРАММА&quot; составляет слова:...

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

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

Составьте алгоритм замены всех сочетаний "ку" в слове X на сочетание "аа"
Составьте алгоритм замены всех сочетаний &quot;ку&quot; в слове X на сочетание &quot;аа&quot;.


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

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

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