Приветствую Вас Гость | RSS

Delphi заготовки

Среда, 27.11.2024, 02:57
Главная » 2012 » Апрель » 09
Задачи на языке 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.
Просмотров: 3929 | Добавил: NetSoftWare | Дата: 09.04.2012 | Комментарии (1)