Программа, которая считает определенные буквы в тексте

@Dyshess · Регистрация: 22.11.2015

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

Всем доброго времени суток, срочно нужна помощь в написании программы, суть вот в чем: нужна программа которая считает количество букв "и" в любом тексте и выводит количество букв "и". Желательно сделать с формой, текст должен вводиться в edit.

@Puporev · 04.01.2016, 22:15

Сообщение от Dyshess

Желательно сделать с формой, текст должен вводиться в edit.

Вот и сделай с формой,положи на нее Edit и Button, по которому кликни 2 раза, получишь заготовку кода, в которой напиши

Delphi

var s:string;
     i,k:integer;
begin
s:=Edit1.Text;
k:=0;
for i:=1 to length(s) do
if s[i]='и' then k:=k+1;
showmessage('Количество букв и='+inttostr(k));
end;

@Dyshess · 04.01.2016, 22:19 **[ТС]**

все готово, спасибо огромное)

@Dyshess 0 / 0 / 0 Регистрация: 22.11.2015 Сообщений: 10
		1
	Программа, которая считает определенные буквы в тексте 04.01.2016, 21:58. Показов 1975. Ответов 2 Метки нет (Все метки) Всем доброго времени суток, срочно нужна помощь в написании программы, суть вот в чем: нужна программа которая считает количество букв "и" в любом тексте и выводит количество букв "и". Желательно сделать с формой, текст должен вводиться в edit. 0

@Dyshess 0 / 0 / 0 Регистрация: 22.11.2015 Сообщений: 10
	04.01.2016, 22:19 [ТС]	3
	все готово, спасибо огромное) 0

Программа, которая считает определенные буквы в тексте

Решение