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

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Staller
#1

Определить, встречается ли заданная пара символов в строке uses - Delphi

03.07.2013, 10:17. Просмотров 414. Ответов 2
Метки нет (Все метки)

Программа вводит строку текста и пару символов и определяет(логическая функция )-встречается ли заданная пара символов в строке
Delphi
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
uses
SysUtils;
Var
s:string;
c:char;
k,i:integer;
b:boolean;
 
 
begin
writeln('Enter the text:');
Readln(s);
writeln('Enter the simvols:');
readln(c);
 
writeln('Vstrechautcy li simvols?True-Yes /False-No');
k:=0;
 
b:=false;
for i:=1 to length(s) do
if s[i]=c then k:=k+1;
if k>0 then b:=True  else b:=False ;
writeln(b);
readln;
   
 
End.

нужно решить с помощью функции но у меня что то не получается ничего помогите пожалуйста
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.07.2013, 10:17
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Определить, встречается ли заданная пара символов в строке uses (Delphi):

Определить количество различных символов и сколько раз каждый из этих символов встречается в строке - Delphi
Здравствуйте. Есть вот такая задача: "Составить программу, которая принимает строку символов, определяет, сколько в ней различных...

Определить является ли заданная последовательность символов в строве симметричной. - Delphi
Лабараторная по строкам.Определить является ли заданная последовательность символов в строке симметричной. Можно с пояснениями что к...

Определить номер позиции, в которой находится заданная буква во введенной строке - Delphi
Добрый день . Помогите пожалуйста не могу разобрать программу. Программа в консоле . Составить программу выполняющую...

Определить частоту символов в строке. Подсчитать кол-во символов повторяемых - Delphi
Определить частоту символов в строке. Подсчитать кол-во символов повторяемых.

Определить, какая из букв встречается в строке чаще - Delphi
Ребята, проверьте пожалуйста код по условию: Выясните, какая из букв,вторая или предпоследняя встречается в строке чаще. procedure...

Определить сколь раз в строке встречается заданное слово - Delphi
Определить сколь раз в строке встречается заданное слово.

2
Samhain
689 / 564 / 186
Регистрация: 31.03.2013
Сообщений: 1,029
03.07.2013, 10:44 #2
Цитата Сообщение от Staller Посмотреть сообщение
с помощью функции
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function Sumb(s:string;c:char):boolean;
var k,i:integer;
begin
  k:=0;
  Sumb:=false;
  for i:=1 to length(s) do
    if s[i]=c then k:=k+1;
  if k>0 then Sumb:=True else Sumb:=False ;
end;
 
Var s:string;
    c:char;
 
begin
  writeln('Enter the text:');Readln(s);
  writeln('Enter the simvols:');readln(c);
  writeln('Vstrechautcy li simvols?True-Yes /False-No');
  writeln(Sumb(s,c));
  readln;
End.
0
Puporev
Модератор
52370 / 40217 / 13559
Регистрация: 18.05.2008
Сообщений: 92,942
03.07.2013, 11:34 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Цитата Сообщение от Staller Посмотреть сообщение
встречается ли заданная пара символов в строке
Может нужно вести 2 символа типа 'ab'
и их искать в строке?

Добавлено через 7 минут
Если так, то
Delphi
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 Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
function search(s,s1:string):boolean;
begin
result:=pos(s1,s)>0
end;
Var s,s1:string;
    i:integer;
b:boolean;
 
 
begin
writeln('Enter the text:');
Readln(s);
writeln('Enter the 2 simvols:');
readln(s1);
writeln('Vstrechautcy li eti 2 simvols?True-Yes /False-No');
writeln(search(s,s1));
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.07.2013, 11:34
Привет! Вот еще темы с ответами:

Определить ,какая гласная (a,e,i,o,u) чаще встречается в заданной строке - Delphi
Определить ,какая гласная (a,e,i,o,u) чаще встречается в заданной строке .Если в строке нет ни одной гласной , вывести в компонент вывода...

Определить, сколько раз в строке встречается данное слово - Delphi
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var s,sl:string; k,i:integer; begin write('введите...

Определить, сколько раз в заданной строке встречается заданное слово - Delphi
Определить, сколько раз в заданной строке встречается заданное слово. Строка и слово вводятся пользователем. код Delphi Пожалуйста) ...

Определить, сколько раз встречается в строке самое длинное слово - Delphi
Дана Строка, содержащая текст на русском языке. Определить, сколько раз встречается в ней самое длинное слово,и вывести это слово.


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

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

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