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

Дано слово из 4 символов. Сколько раз встречается в нем заданный символ?

16.11.2014, 22:57. Показов 1164. Ответов 9
Метки нет (Все метки)

Помогите пожалуйста с задачей.
Дано слово из 4 символов. Сколько раз встречается в нем заданный символ? Напечатать соответсвующее сообщение.
Оператор length использовать нельзя.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2014, 22:57
Ответы с готовыми решениями:

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

Подсчитать сколько раз среди символов встречается заданный символ
Даны символы S1, ..., Sn. Подсчитать сколько раз среди данных символов встречается символ "+" и...

Введите с клавиатуры любое слово.Определите в нем число символов.Сколько раз в этом слове встречается буква А?
:cry:Помогите, пожалуйста:cry: Введите с клавиатуры любое слово.Определите в нем число...

Подсчитать сколько раз среди данных символов встречается символ + и сколько раз - символ * в отдельности
1. Дана последовательность из n символов. Подсчитать сколько раз среди данных символов встречается...

__________________
9
14 / 14 / 21
Регистрация: 13.11.2014
Сообщений: 275
16.11.2014, 23:25 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
n=4;
var 
s:string ;
d:char ;
h,i: integer;
 
begin 
writeln('vvod stroku z 4 bukv ');
readln(s);
writeln ('bukvu');
readln (d);
h:=0;
for i:=1 to n do begin
if s[i]=d then h:=h+1 ;
end;
writeln (h);
//if length (s) > n then writeln ('nevozmojno');
end.
если не употреблять length, то программа будет вычислять количество и для длительной строки
0
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
17.11.2014, 00:16 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  s: string;
  c: char;
  i, k: byte;
 
begin
  repeat
    Write('Введите слово из 4 букв: ');
    ReadLn(s)
  until Ord(s[0]) = 4;
  Write('Введите букву: ');
  ReadLn(c);
  for i := 1 to 4 do
    if s[i] = c then
      k := k + 1;
  WriteLn('Буква "', c, '" встречается ', k, ' раз(а)');
  ReadLn
end.
0
14 / 14 / 21
Регистрация: 13.11.2014
Сообщений: 275
17.11.2014, 02:02 4
Добавлено через 10 минут
Kodzaev, а так не работает
0
1642 / 1071 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
17.11.2014, 12:46 5
Цитата Сообщение от ighor Посмотреть сообщение
а так не работает
Видимо из за этого: Ord(s[0]) = 4 и видимо из за того, что ighor не уточнил в какой версии Паскаля это надо делать.
0
14 / 14 / 21
Регистрация: 13.11.2014
Сообщений: 275
17.11.2014, 12:56 6
APALoff, я пользуюсь pascal abc net
0
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
17.11.2014, 13:02 7
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
  n = 4;
 
var
  s : String[n];
  d : char;
  count : Byte := 0;
  i : Byte;
 
begin
  Write('Input s: '); ReadLn(s);
  Write('Input symbol: '); ReadLn(d);
  for i := 1 to n do
    if (d = s[i]) then
      Inc(count);
  if (count <> 0) then
    WriteLn('count=', count)
  else
    WriteLn('No one');
end.
0
1642 / 1071 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
17.11.2014, 13:03 8
Цитата Сообщение от ighor Посмотреть сообщение
я пользуюсь pascal abc net
Потому и не работало.
0
0 / 0 / 0
Регистрация: 16.11.2014
Сообщений: 3
22.12.2014, 18:00  [ТС] 9
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a,b,c,d,x:string[1];
S:string[4];
BEGIN
writeln('введите слово из четырех символов');
readln(S);
writeln('введите искомый символ');
readln(x);
a:=copy(S,1,1);
b:=copy(S,2,1);
c:=copy(S,3,1);
d:=copy(S,4,1);
if ((x=a)and(x=b)and(x=c)and(x=d))then begin writeln('символ встречается четыре раза');end else
if ((x=a)and(x=b)and(x=c))or((x=a)and(x=b)and(x=d))or((x=b)and(x=c)and(x=d))or((x=c)and(x=a)and(x=d))then begin writeln('символ встречается три раза');end else
if ((x=a) and (x=b)) or ((x=a) and (x=c)) or ((x=a) and (x=d)) or ((x=b) and (x=c)) or ((x=b) and (x=d)) or ((x=c)and (x=d)) then begin writeln('символ встречается два раза');end else
if (x=a) or (x=b) or (x=c) or (x=d) then begin writeln('символ встречается один раз');end else writeln('символ не встречается')
END.
Вот правильное решение,спасибо всем за помощь!
0
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
22.12.2014, 18:10 10
нда... куда мир катится.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2014, 18:10

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

Строка: Определите сколько раз среди символов строки встречается символ + и сколько раз символ * .
16 Дана строка символов. Определите сколько раз среди символов строки встречается символ + и...

Сколько раз среди данных символов встречается символ + и сколько раз символ * (Паскаль -> Дельфи)
Всем привет. Я ещё только начинаю рабоатаь в Делфи. Помогите пожалуйста переделать задачу на...

Подсчитать, сколько раз среди данных символов встречается символ +, и сколько раз символ *
Даны натуральное число n, символы s1, …, sn. Подсчитать: а) сколько раз среди данных символов...

Сколько раз среди данных символов встречается символ +, и сколько раз символ *
Даны натуральное число n, символы s1, …, sn. Подсчитать: а) сколько раз среди данных символов...

сколько раз среди даних символов встречается символ + и сколько раз символ
Даны натуральное число n, символы S1,......,Sn. Подсчитать сколько раз среди даних символов...

Сколько раз среди данных символов встречается символ + и сколько раз символ *
Даны натуральное число n, символы s1...sn. Подсчитать : сколько раз среди данных символов...


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

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

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