Определить, сколько разных букв встречается в тексте - Pascal ABC

  1. Пожалуйста помогите решить задачу с помощью рекурсивной функции: Слова в тексте разделены пробелами. Сколько разных букв встречается в тексте?


textual

Код к задаче: «Определить, сколько разных букв встречается в тексте - Pascal ABC»

type mnz=set of char;
procedure raz_bukv(s:string;i:byte;var m:mnz;var k:byte);
begin
if not(s[i] in m)and(s[i]<>' ') then
 begin
  inc(k);
  m:=m+[s[i]];
 end;
if i<length(s) then raz_bukv(s,i+1,m,k);
end;
var a:mnz;
    s:string;
    k:byte;
begin
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
raz_bukv(s,1,a,k);
write('В тексте ',k,' различных букв')
end.

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.571 из 5



Похожие ответы
  1. нужная область-заштрихованная. радиус равен 4

  1. Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

  1. Дано натуральное число, определите сколько раз в нём встретится последняя цифра. решение нужно через цикл goto

  1. Здравствуйте, помогите разобраться! Дано задача. Кубики. Кубик с ребром N см покрасили и разрезали на кубики с ребром 1 см. При этом появились такие, у которых окрашено разное количество граней. Например, если N = 3, то после разрезания будет 8 кубиков, у которых окрашено три грани, 12 с двумя гранями, 6 с одной, а один кубик будет совсем неокрашенный. Составьте программу, которая бы определяла, сколько кубиков с каждой возможным количеством окрашенных граней. Как можно создать Ввод и Вывод файл не как не могу! Задачу из интернета скачал. Delphi1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program cubes; uses crt; var x,x1,x2,x3,x0,y,z,k,n:integer; s:string; f,g:text; begin assign(f,'cubes.dat'); reset(f); readln(f,y); close(f) ; x3:=8; x1:=sqr(y-2)*6; x0:=(sqr(y-2))*(y-2); x2:=(y-2)*4*2+(y-2)*4; assign(g,'cubes.sol'); rewrite(g); writeln(g,'0/',x0,' 1/',x1,' 2/',x2,' 3/',x3); close(g); end.

  1. 29. Определить, заканчивается ли заданное натуральное число на нечетную цифру

  1. 2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

  1. Определить, равны ли первая и последняя цифры заданного с клавиатуры числа.

  1. Для заданного натурального числа определить, сколько раз в его записи встречается каждая из цифр. (Паскаль и Бейсик) Помогите :С

  1. Принадлежит ли точка М(x;y) закрашенной области. Крайние точки области y(2;-2) x(1;-1), т.е. ромб.

  1. Ввести с клавиатуры n любых целых чисел. Ли они двухзначные? Ответ «да» или «нет». Буду очень благодарна за помощь