Множини...

[Кулибаба Петро]

Заданий текст, кінець якого крапка. Вивести за алфавітом усі голосні, що входять у цей текст, і кількість повторень кожної літери.

[Leshii]

Ну задача не очень сложная. Есть только одно но, укр. языка на паскале насколько помню нет. И тут есть три варианта или суржик рус. и англ. что уже отпадает. Так что или чисто на русском или на англ. делать.
И кстати, если дан текст, то где он? хотелось бы глянуть ...

[denisbrain]

Сообщение от Кулибаба Петро

Заданий текст, кінець якого крапка. Вивести за алфавітом усі голосні, що входять у цей текст, і кількість повторень кожної літери.

google: "Заданный текст, конец которого точка. Вывести по алфавиту все гласные, входящие в этот текст, и количество повторений каждой буквы."

[Paster Fob]

так примерно,текст только надо заменить и при необходимости буквы на английские например.

const s='В лесу родилась ёлочка,в лесу она росла.';
      sen=['а','е','ё','и','о','у','ы','э','ю','я'];

type tset=set of char;
     tarray=array['а'..'ё'] of integer;

procedure readset(var aset:tset);
var i:byte;
begin
  for i:=1 to length(s) do
    aset:=aset+[s[i]];
    aset:=aset*sen;
end;

procedure count(var aset:tset;var amas:tarray);
var i:byte;
begin
  for i:=1 to length(s) do
    if (s[i] in aset) and (s[i] in ['а'..'ё']) then
      inc(amas[s[i]]);
end;

procedure writecount(var aset:tset;var amas:tarray);
var ch:char;
begin
  for ch:='а' to 'ё' do
    if (ch in aset) and (ch in ['а'..'ё']) then begin
      write(ch);
      writeln(amas[ch]:4);
    end;
end;

var sn:tset;
    mas:tarray;
    ch:char;
begin
  sn:=[];
  for ch:='а' to 'ё' do mas[ch]:=0;
  readset(sn);
  count(sn,mas);
  writecount(sn,mas);
  readln
end.

[Кулибаба Петро]

aset:=aset+[s[i]]
s[i] - ошибочный спецификатор

[Paster Fob]

Сообщение от Кулибаба Петро

aset:=aset+[s[i]]
s[i] - ошибочный спецификатор

всмысле какая ошибка?У меня всё работает.Запускал на FPС.


TP7 выдаёт указанную ошибку.

[BDA]

const
  sen = ['А', 'Е', 'Ё', 'И', 'О', 'У', 'Ы', 'Э', 'Ю', 'Я'];

var
  s: string;

function upcaser(c: char): char;
begin
  case ord(c) of
    160..175: upcaser := chr(ord(c) - 32);
    224..239: upcaser := chr(ord(c) - 80);
    241: upcaser := chr(240);
  else upcaser := upcase(c);
  end;
end;

var
  mas: array[0..255] of integer;
  c: char;

begin
  read(c);
  while c <> '.' do
  begin
    inc(mas[ord(upcaser(c))]);
    read(c);
  end;
  for c := chr(128) to chr(133) do
    if (mas[ord(c)] <> 0) and (c in sen)  then
      writeln(c, ' ', mas[ord(c)]);
  if mas[240] <> 0 then
    writeln(chr(240), ' ', mas[240]);
  for c := chr(136) to chr(159) do
    if (mas[ord(c)] <> 0) and (c in sen) then
      writeln(c, ' ', mas[ord(c)]);
  readln;
  readln;
end.

Не забудьте русские буквы заново ввести в Турбо Паскале.

[Paster Fob]

Сообщение от Кулибаба Петро

aset:=aset+[s[i]]
s[i] - ошибочный спецификатор

Сообщение от Paster Fob

TP7 выдаёт указанную ошибку.

Нужно использовать типизированную константу,иначе TP7 видит её как одно целое и не может разложить на символы.

const s:string='В лесу родилась ёлочка,в лесу она росла.';
      sen=['а','е','ё','и','о','у','ы','э','ю','я'];

type tset=set of char;
     tarray=array['а'..'ё'] of integer;

procedure count(var aset:tset;var amas:tarray);
var i:byte;
begin
  for i:=1 to length(s) do
    if s[i] in sen then begin
      aset:=aset+[s[i]];
      inc(amas[s[i]]);
    end;
end;

procedure writecount(var aset:tset;var amas:tarray);
var ch:char;
begin
  for ch:='а' to 'ё' do
    if ch in aset then begin
      write(ch);
      writeln(amas[ch]:4);
    end;
end;

var sn:tset;
    mas:tarray;
    ch:char;
begin
  sn:=[];
  for ch:='а' to 'ё' do mas[ch]:=0;
  count(sn,mas);
  writecount(sn,mas);
  readln
end.

[Кулибаба Петро]

Ура!!! Спасиба... Работает...

А можешь объяснить каждую строку программы?

[Paster Fob]

комментарии написать?