Технический форум

Технический форум (http://www.tehnari.ru/)
-   Форум программистов (http://www.tehnari.ru/f22/)
-   -   Подсчет суммарного числа (http://www.tehnari.ru/f22/t30043/)

Dimetra 09.11.2009 18:34

Подсчет суммарного числа
 
Кто может помочь с составлением программ для подсчета суммарного числа букв "е" и букв "о" в строковой величине.

Vladimir_S 09.11.2009 21:32

Цитата:

Сообщение от Dimetra (Сообщение 259493)
Кто может помочь с составлением программ для подсчета суммарного числа букв "е" и букв "о" в строковой величине.

Так. Прежде всего, Вы "позабыли" указать несколько моментов:
1. Язык программирования.
2. В каком виде задана строка?
3. "е" и "о" - это буквы латиницы или кириллицы?
А раз так, то будем считать, что:
1. Язык Паскаль.
2. Строка записана в файле под названием "ххх", находящемся в корневом каталоге диска D: .
3. "е" и "о" - это буквы латиницы.
Тогда:

VAR
S:STRING;
f:Text;
i,S_o,S_e:INTEGER;

BEGIN
Assign(f,'D:\xxx');
ReSet(f);
ReadLn(f,S);
Close(f);
S_o:=0;
S_e:=0;
i:=0;
REPEAT
INC(i);
IF S[i]='o' THEN INC(S_o) ELSE
IF S[i]='e' THEN INC(S_e);
UNTIL i=Length(S);
WriteLn('The string contains ',S_o,' "o" letters and ',S_e,' "e" letters');
ReadLn;
END.


Часовой пояс GMT +4, время: 11:31.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.