Функция, которая считает, сколько раз в строке встречается данный элемент

@Stasia_lime · Регистрация: 21.01.2012

Author24 — интернет-сервис помощи студентам

Создать функцию,которая считает сколько раз в строке встречается данный элемент.

@Фаер · 19.02.2012, 13:30

Pascal
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
Uses crt;
Var A:array[1..5,1..5] of integer; i,j,k,p,n:integer;
   Function Elem(n,p:integer):integer;
   Begin
   For i:=1 to 5 do If A[n,i]=p then inc(k);
   Elem:=k;
   End;
 
Begin
ClrScr; Randomize;
For i:=1 to 5 do
 Begin
  For j:=1 to 5 do
   Begin
    A[i,j]:=random(51)-25;
    Write(A[i,j]:4);
   End;
  Writeln;
 End;
Write('Stroka:'); Readln(n);
Write('Chislo:'); Readln(p);
k:=Elem(n,p);
Write('Kol-vo:',k);
Readln;
End.

@Puporev · 19.02.2012, 13:45

КиберПёс, А почему ты решил что речь идет о матрице, а не о строке символов? Я так подумал что это про строку...

@Stasia_lime · 19.02.2012, 13:48 **[ТС]**

мне кажется всё таки ,что тут строка символов должна быть

@Фаер · 19.02.2012, 13:49

...

@Stasia_lime · 19.02.2012, 13:50 **[ТС]**

@SuPeR XaKer · 19.02.2012, 13:51

Не по теме:

Stasia_lime, кажется? :D

@Stasia_lime · 19.02.2012, 13:56 **[ТС]**

Ну это так,

@Фаер · 19.02.2012, 13:56

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Uses crt;
Var s:string; k,i:integer; p:char;
   Function Sym(s:string; p:char):integer;
   Begin
   For i:=1 to length(s) do If s[i]=p then inc(k);
   Sym:=k;
   End;
 
Begin
ClrScr;
Write('Stroka:'); Readln(s);
Write('Simvol:'); Readln(p);
k:=Sym(s,p);
Write('Kol-vo:',k);
Readln;
End.

@Stasia_lime · 19.02.2012, 14:02 **[ТС]**

Спасибо =))))

Новые блоги и статьи Все статьи Все блоги /
Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .
C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .	Состояние гонки в C#: подводные камни многопоточного программирования UnmanagedCoder 20.03.2025 Что такое состояние гонки? Это ситуация, когда результат программы непредсказуемо меняется в зависимости от порядка выполнения потоков. Проще говоря, два или более потока пытаются одновременно. . .	Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .

@Stasia_lime 15 / 15 / 0 Регистрация: 21.01.2012 Сообщений: 51

	Функция, которая считает, сколько раз в строке встречается данный элемент 19.02.2012, 13:13. Показов 1273. Ответов 9 Метки нет (Все метки) Создать функцию,которая считает сколько раз в строке встречается данный элемент. 0

@Puporev Почетный модератор 64307 / 47604 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	19.02.2012, 13:45
	КиберПёс, А почему ты решил что речь идет о матрице, а не о строке символов? Я так подумал что это про строку... 0

@Stasia_lime 15 / 15 / 0 Регистрация: 21.01.2012 Сообщений: 51
	19.02.2012, 13:48 [ТС]
	мне кажется всё таки ,что тут строка символов должна быть 0

@Фаер 792 / 398 / 260 Регистрация: 09.12.2011 Сообщений: 786 Записей в блоге: 53
	19.02.2012, 13:49
	... 0

@Stasia_lime 15 / 15 / 0 Регистрация: 21.01.2012 Сообщений: 51
	19.02.2012, 13:50 [ТС]
	0

@SuPeR XaKer
	19.02.2012, 13:51
	Не по теме: Stasia_lime, кажется? :D 0

@Stasia_lime 15 / 15 / 0 Регистрация: 21.01.2012 Сообщений: 51
	19.02.2012, 13:56 [ТС]
	Ну это так, 0

@Stasia_lime 15 / 15 / 0 Регистрация: 21.01.2012 Сообщений: 51
	19.02.2012, 14:02 [ТС]
	Спасибо =)))) 0

Опции темы