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

Описать процедуру, которая печатает буквы, встречающиеся и в той и в другой строках

05.12.2012, 22:45. Показов 1066. Ответов 3
Метки нет (Все метки)

3.Даны 2 строки. Описать процедуру, которая печатает буквы, встречающиеся и в той и в другой строках.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2012, 22:45
Ответы с готовыми решениями:

Даны две строки. Вывести буквы, встречающиеся и в той и в другой строках
1)Даны две строки.Вывести буквы встречающиеся и в той и в другой строках Помогите плиз

Описать процедуру, которая печатает все буквы, входящие в строку менее K раз
Описать процедуру, которая печатает все буквы, входящие в строку менее K раз, с указанием...

Описать процедуру, которая печатает все буквы, входящие в строку менее К раз
Описать процедуру, которая печатает все буквы, входящие в строку менее К раз, с указанием...

Вывести символы, встречающиеся и в той и в другой строках
Даны две строки. Вывести символы, встречающиеся и в той и в другой строках.

3
0 / 0 / 0
Регистрация: 02.12.2012
Сообщений: 10
07.12.2012, 15:12  [ТС] 2
Помогите через процедуру или функцию написать,пожалуйста!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var str1, str2, str: string;
    i,j: byte;
begin
  write('введите строку1 #1: '); readln(str1);
  write('введите строку 2 #2: '); readln(str2);
  if (length(str1)<1) or (length(str2)<1) then begin write('ошибка!'); exit; end;
  str:='';
  for i:=1 to length(str1) do
    for j:=1 to length(str2) do
      if (str1[i]=str2[j]) and (pos(str1[i],str)=0) then str:=str+str1[i];
 
  if length(str) > 0 then
    writeln('общие символы ',str)
  else writeln('общих символов нет!');
end.
0
423 / 423 / 338
Регистрация: 25.06.2012
Сообщений: 668
07.12.2012, 20:36 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure Print(var str : string; str1, str2 : string);
var
  i, j : byte;
begin
if (length(str1)<1) or (length(str2)<1) then begin write('ошибка!'); exit; end;
str:='';
for i:=1 to length(str1) do
for j:=1 to length(str2) do
if (str1[i]=str2[j]) and (pos(str1[i],str)=0) then str:=str+str1[i];
end;  
 
 
var str, str1, str2 : string;
 
begin
write('введите строку1 #1: '); readln(str1);
write('введите строку 2 #2: '); readln(str2);
Print(str, str1, str2);
if length(str) > 0 then
writeln('общие символы: ',str)
else writeln('общих символов нет!');
end.
0
0 / 0 / 0
Регистрация: 02.12.2012
Сообщений: 10
07.12.2012, 23:53  [ТС] 4
Спасибо огромное
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2012, 23:53

Описать процедуру, которая печатает все буквы, входящие в строку более К раз, с указанием количества вхождений
PascalABC.NET - Описать процедуру, которая печатает все буквы, входящие в строку более К раз, с...

Даны две строки. Вывести символы, встречающиеся и в той и в другой строках
Даны две строки. Вывести символы, встречающиеся и в той и в другой строках.

Записи: Описать процедуру Печ(Гр, Бук), которая печатает все фамилии людей из группы Гр, начинающиеся с буквы Бук, и даты рождения этих людей
Помогите из этого задания исправить на такой: type строка = packed array of char; дата =...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru