0 / 0 / 0
Регистрация: 16.11.2014
Сообщений: 3

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

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

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста с задачей.
Дано слово из 4 символов. Сколько раз встречается в нем заданный символ? Напечатать соответсвующее сообщение.
Оператор length использовать нельзя.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
16.11.2014, 22:57
Ответы с готовыми решениями:

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

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

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

9
15 / 15 / 21
Регистрация: 13.11.2014
Сообщений: 275
16.11.2014, 23:25
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
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
17.11.2014, 00:16
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
15 / 15 / 21
Регистрация: 13.11.2014
Сообщений: 275
17.11.2014, 02:02
Добавлено через 10 минут
Kodzaev, а так не работает
0
 Аватар для APALoff
1647 / 1076 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
17.11.2014, 12:46
Цитата Сообщение от ighor Посмотреть сообщение
а так не работает
Видимо из за этого: Ord(s[0]) = 4 и видимо из за того, что ighor не уточнил в какой версии Паскаля это надо делать.
0
15 / 15 / 21
Регистрация: 13.11.2014
Сообщений: 275
17.11.2014, 12:56
APALoff, я пользуюсь pascal abc net
0
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
17.11.2014, 13:02
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
 Аватар для APALoff
1647 / 1076 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
17.11.2014, 13:03
Цитата Сообщение от ighor Посмотреть сообщение
я пользуюсь pascal abc net
Потому и не работало.
0
0 / 0 / 0
Регистрация: 16.11.2014
Сообщений: 3
22.12.2014, 18:00  [ТС]
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!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
22.12.2014, 18:10
нда... куда мир катится.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
22.12.2014, 18:10
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Unity 4D
GameUnited 13.06.2025
Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .
SSE (Server-Sent Events) в ASP.NET Core и .NET 10
UnmanagedCoder 13.06.2025
Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .
С днём независимости России!
Hrethgir 13.06.2025
Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .
Лето вокруг.
kumehtar 13.06.2025
Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .
Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев).
Hrethgir 12.06.2025
Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .
Топ10 библиотек C для квантовых вычислений
bytestream 12.06.2025
Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .
Dispose и Finalize в C#
stackOverflow 12.06.2025
Работая с C# больше десяти лет, я снова и снова наблюдаю одну и ту же историю: разработчики наивно полагаются на сборщик мусора, как на волшебную палочку, которая решит все проблемы с памятью. Да,. . .
Повышаем производительность игры на Unity 6 с GPU Resident Drawer
GameUnited 11.06.2025
Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .
Множества в Python
py-thonny 11.06.2025
В Python существует множество структур данных, но иногда я сталкиваюсь с задачами, где ни списки, ни словари не дают оптимального решения. Часто это происходит, когда мне нужно быстро проверять. . .
Работа с ccache/sccache в рамках C++
Loafer 11.06.2025
Утилиты ccache и sccache занимаются тем, что кешируют промежуточные результаты компиляции, таким образом ускоряя последующие компиляции проекта. Это означает, что если проект будет компилироваться. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru