Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Dimasik777
0 / 0 / 1
Регистрация: 15.10.2009
Сообщений: 44
#1

Запись и множества

29.11.2009, 10:00. Просмотров 621. Ответов 4
Метки нет (Все метки)

Помогите пожалуйста, ничего не понимаю в программировании. Нужно написать проги в Паскале, желательно всю прогу, а не только тело. Буду Вам очень благодарен.

Задания:
1. Даны две строки: S1 и S2. Проверить, содержится ли строка S2 в строке S1. Если да, то вывести номер позиции, начиная с которой S2 содержится в S1, если нет, то вывести 0.
2. Даны две строки: S1 и S2. Определить количество вхождений строки S2 в строку S1.
3. Дана строка S и символ С. Удвоить каждое вхождение символа С в строку S.
4. Дан текст из строчных латинских букв, за которым следует точка. Напечатать: - первые вхождения букв в текст, сохраняя их взаимный исходный порядок;
- все буквы, входящие в текст не менее двух раз;
- все буквы, входящие в текст по одному разу.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2009, 10:00
Ответы с готовыми решениями:

Запись и множества
Помогите пожалуйста, ничего не понимаю в программировании. Нужно написать проги...

Строки,запись,множества
Затра последняя пара, а есчё 3х лаб не хватает для зачета...помагите...

Множества: напечатать по возрастанию цифры, не входящие в запись данного числа
напечатать в возрастающем порядке все цифры,не входящие в запись данного...

Сформировать множество цифр, входящих в запись данного N. Подсчитать число элементов полученного множества
Помогите пожалуйста сделать программу, на Pascal.:cry: Составить программу для...

Сформировать множества А и В по заданному числу элементов для каждого множества
2)Сформировать множества А и В, базовый тип которых -70..30, по заданному числу...

4
кот Бегемот
Платежеспособный зверь
8453 / 3902 / 1517
Регистрация: 28.10.2009
Сообщений: 10,105
29.11.2009, 10:10 #2
Цитата Сообщение от Dimasik777 Посмотреть сообщение
1. Даны две строки: S1 и S2. Проверить, содержится ли строка S2 в строке S1. Если да, то вывести номер позиции, начиная с которой S2 содержится в S1, если нет, то вывести 0.

Pascal
1
2
3
4
5
6
7
var
s1,s2:string;
begin
readln(s1);
readln(s2);
writeln(pos (s2,s1));
end.
Добавлено через 4 минуты
Цитата Сообщение от Dimasik777 Посмотреть сообщение
2. Даны две строки: S1 и S2. Определить количество вхождений строки S2 в строку S1.
Pascal
1
2
3
4
5
6
7
8
9
10
var
s1,s2:string;
i,kol:integer;
begin
readln(s1);
readln(s2);
for i:=1 to length(s1)-length(s2)+1 do
if copy(s1,i,length(s2))=s2 then inc (kol);
writeln(kol);
end.
1
maladoy
112 / 84 / 56
Регистрация: 09.01.2009
Сообщений: 209
29.11.2009, 10:14 #3
3
Код
s1:=''
for i:=1 to length(s) do
if s[i]<>с then s1:=s1+s[i]
else s1:=s1+c+c;
s:=s1;
writeln(s)
1
кот Бегемот
Платежеспособный зверь
8453 / 3902 / 1517
Регистрация: 28.10.2009
Сообщений: 10,105
29.11.2009, 10:14 #4
Pascal
1
3. Дана строка S и символ С. Удвоить каждое вхождение символа С в строку S.
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
s:string;
c:char;
i:integer;
begin
readln(s);
readln(c);
for i:=length(s) downto 1 do
if s[i]=c then insert(c,s,i+1);
writeln(s);
end.
maladoy читай внимательнее условие: не удалить, а удвоить!
1
maladoy
112 / 84 / 56
Регистрация: 09.01.2009
Сообщений: 209
29.11.2009, 10:22 #5
alexevt, исправил
0
29.11.2009, 10:22
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2009, 10:22

Множества. Из множества латинских букв выделить множество символов, не входящих в ваше имя
из множества латинских букв выделить множество состоящее из символов не...

Множества: Задано множество целых чисел C. Создать два множества, содержащие числа больше 5 и меньше 5.
Задано множество целых чисел C. Создать два множества, содержащие числа больше...

Сформировать два множества, первое из которых содержит все простые числа из данного множества, а второе все составные
Имеется множество, содержащее натуральные числа из некоторого диапазона....


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

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

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