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

Вывести одинаковые символы данных строк, использовать множественный тип

31.05.2012, 23:22. Показов 958. Ответов 2
Метки нет (Все метки)

ввести 2 строки символов. вывести одинаковые символы этих строк. При решении задачи обязательно использовать множественный тип.

блок-схему пжлста, если не сложно
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.05.2012, 23:22
Ответы с готовыми решениями:

Множественный тип данных
Помогите пожалуйста!!! Дана строка состоящая из латинских букв и цифр используя множественный тип...

множественный тип данных
Помогите пожалуйста. Вывести на экран все простые числа от 11 до 101.

Символьный тип данных. Вывести символы с макс и мин кодом
Доброе утро формумчани! Помогите пожалуйста решить задачку: Задание разработать программу -...

Множественный тип данных: Определить количество чисел, в десятичной записи которых -1,2,5
Дано 100 целых чисел от 1 до 50. Определить, сколько чисел, в десятичной записи которых -1,2,5.

2
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,031
Записей в блоге: 1
01.06.2012, 08:20 2
Лучший ответ Сообщение было отмечено Ceppera как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var s1,s2:string;
    mn1,mn2:set of char;
    i:integer;
Begin
    write('Введите первую строку: ');readln(s1);
    write('Введите вторую строку: ');readln(s2);
    mn1:=[];mn2:=[];
    For i:=1 to Length(s1) do
     mn1:=mn1+[s1[i]];
    For i:=1 to Length(s2) do
     mn2:=mn2+[s2[i]]; 
    mn1:=mn1*mn2;
    Write('Общие элементы: ');
    For i:=1 to 255 do
     if chr(i) in mn1 then write(chr(i):3);
End.
1
0 / 0 / 0
Регистрация: 27.05.2012
Сообщений: 14
02.06.2012, 02:12  [ТС] 3
спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2012, 02:12

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

Множественный тип данных: Определить, каких букв - гласных или согласных - больше в строке
11. Дана строка символов. Определить, каких букв - гласных или согласных - больше в этой строке.

Одинаковые символы в начале и в конце строк файла
Нужна помощь по программе. Надо посчитать количество строк где первый символ совпадает с последним....

Одинаковые символы в начале и в конце строк файла
Нужна помощь по программе. Надо посчитать количество строк где первый символ совпадает с последним....

Напишите программу, используя множественный тип данных, которая подсчитывает количество цифр в символьной строке.
Помогите с заданием: Напишите программу, используя множественный тип данных, которая подсчитывает...

Одинаковые с последним символы вывести на экран
Составление программы с текстовыми и типизированными файлами. 14.1 Написать программу, заносящую...

Какой тип строк всеже использовать?
Известно что уже как несколько лет Delphi является юникодным. Это в первую очедеть значит что...


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

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

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