Паскаль. Две задачки на строковый тип данных.

[Татьяна9871]

1. Задан текст, содержащий не более 255 символов. Определить, сколько раз в тексте встречаются различные буквы латинского алфавита.

2. Составить программу, зашифровывающую заданный текст с использованием 5 перемешанных алфавитов. В качестве исходных данных заданы: исходный алфавит, m1, m2, m3, m4, m5 - количество букв, на которые сдвигается каждый алфавит относительно исходного.

Заранее спасибо.

[Stilet]

сколько раз в тексте встречаются различные буквы латинского алфавита.

Т.е. не учитывать повторения?

var s:string; a:array['a'..'Z'] of integer;i,q:byte;
begin
 s:='Hello World';
 for i:=1 to length(s) do inc(a[s[i]]); q:=0;
 for i:=1 to length(s) do if a[s[i]]=1 then inc(q);
 write('Ответ = ',q);readln;
end.

[Татьяна9871]

Спасибо большое за ответ!

В Вашей программе почему-то считает только те буквы, которые в строке единственные.
Например я ввожу строку "a b c d e f gg h lll m n oo p"
выводится 10, хотя всего различных букв - 12.

Т.е выходит, что надо учитывать повторения.

[ByAlex]

Сообщение от Татьяна9871

Спасибо большое за ответ!

В Вашей программе почему-то считает только те буквы, которые в строке единственные.
Например я ввожу строку "a b c d e f gg h lll m n oo p"
выводится 10, хотя всего различных букв - 12.

Вообще то различных букв здесь 13.

[Serge_Bliznykov]

Например я ввожу строку "a b c d e f gg h lll m n oo p"
выводится 10, хотя всего различных букв - 12.

ну, вообще-то здесь 13 различных букв

попробуйте такой пример (на основании идеи Stilet

 
var
  s:string;
  a:array[0..255] of integer;
  i,q:byte;
begin
 s:='a b c d e f gg h lll m n oo p';

 {занулим массив счётчиков}
 for i:=0 to 255 do a[i] := 0;

 {соберём все латинские буквы, находящиеся  в строке в выходное множество}
 for i:=1 to length(s) do
   {если буква латинская, то}
   if s[i] in ['a'..'z','A'..'Z'] then
        {нарастим счётчик этой буквы на единичку}
        inc(a[ord(s[i])]);

 q:=0;
 for i:=0 to 255 do
   if a[i]>0 then inc(q);
 write('Ответ = ',q);
 readln;
end.

а вот так будет выглядеть решение через использование типа "Множество"

var
  s:string;
  LatBykv : set of char;
  i,q : byte;
  ch : char;
begin
 s:='a b c d e f gg h lll m n oo p';


 LatBykv := []; {сначала нет найденных латинских букв}

 {посчитаем количественный состав латинских букв в строке}
 for i:=1 to length(s) do
   {если буква латинская, то включим её в наше множество}
   if s[i] in ['a'..'z','A'..'Z'] then Include(LatBykv, s[i]);

 {подсчитаем, сколько же букв накопилось в нашем множесте}
 q:=0;
 for ch:=#0 to #255 do
   if ch in LatBykv then inc(q);
 write('Ответ = ',q);
 readln;
end.

[Татьяна9871]

При использовании первой программы выводит 0...

[Serge_Bliznykov]

При использовании первой программы выводит 0...

не потверждаю.
у меня всё работает.

Вы какой компилятор Пакскаля использовали?!