Name: сколько раз буква встречается в тексте.
Item: сколько раз буква встречается в тексте.
Author: NetSoftWare

Главная » 2012 » Апрель » 9 » сколько раз буква встречается в тексте.

13:46 сколько раз буква встречается в тексте.
Задачи на языке Pascal Для каждой из букв введённого с клавиатуры текста указать, сколько раз она встречается в тексте. program jka2; uses crt; var s:string; x:integer; abc: array [0..255] of integer; Begin writeln('Введите текст: '); readln(s); For x:=1 to 255 do abc[x]:=0; For x:=1 to length(s)do begin if ((s[x]>='А') and (s[x]<='Я')) or ((s[x]>='а') and (s[x]<='я')) or ((s[x]>='a') and (s[x]<='z')) or ((s[x]>='A') and (s[x]<='Z')) then abc[ord(s[x])]:=abc[ord(s[x])]+1; end; For x:=32 to 255 do if abc[x]>0 then writeln('буква "',chr(x),'" встречается ',abc[x],' раз(а)'); End.
1 2 3 4 5 Просмотров: 3896 \| Добавил: NetSoftWare \| Рейтинг: 0.0/0

Всего комментариев: 1

Порядок вывода комментариев:

1 NetSoftWare (09.04.2012 13:47)

функция выравнивает регистр букв
выводит весь текст в верхний регистр

function GetLitelTextRoBigText(s:string):string;
var
str:string;
strResult:string;
x:integer;
begin
str:=s;
for x:=1 to length(str) do
if ((str[x]>='à') and (str[x]<='ÿ'))
or ((str[x]>='a') and (str[x]<='z'))
then
str[x]:=Chr(ord(str[x])-32);

result:=str;
end;

Delphi заготовки

Меню сайта

Поиск по сайту

Контакты

Наш опрос

Добавить

Календарь

Полезные ссылки

Теги

Статистика

Архив записей

Число on-line

Поддержка сайта