множества

[Роман5день55]

Задан текст 'Drogobuchskuy mechaniko technolog kolleg'. Вывести символы входящих в алфавит и в данный текст и которые не входят в данный текст.

[Serge_Bliznykov]

дык, всё же очень просто. описывайте свой алфавит (set of char) и иницилизируйте его (можно константой).
потом используя цикл, сформируйте множество символов, входящих в текст строки.
дальше ещё проще - перемножение множества символов строки с множеством символов алфавита даст множество символов, которые входят и в строку и в алфавит.
А если из множества символов алфавита вычесть множество символов строки, то получим множество символов, входящих в алфавит и при этом не входящих в строку.

Что вызывает сложность?

[Роман5день55]

я писал но чет не виходит

[Poma][a]

я писал но чет не виходит

Покажи что получилось

[Роман5день55]

type ABC = set of  'A' .. 'Z';
var a1,i,a3:ABC; i,j:integer;
begin
a1 :=[];
a2:=[];
a1 := 'Drogobuchsku';
i:=['A'..'Z']
for i := 1 to n do 
if  in a2 then a3 := a3 + i;
write ('alfavit',a3);
readln;

точно не помню штот тип того

Дан массив из строчных латинских букв. Вывести на экран в алфавитном порядке все буквы, которые входят в этот текст по одному разу

const
    n=40;
  var
    a: array[1..n] of char;
    i,j,p,q,m: integer;
    buf: char;
begin
  write('vvedite razmer massiva: ');
  readln(m);
  writeln('ishodnii massiv:');
  randomize;
  for i:=1 to m do
  begin
    a[i]:=chr(random(26)+97);
    write(a[i],' ');
  end;
  writeln;
  writeln('gotovii massiv:');
  for i:=1 to m-1 do
    for j:=i+1 to m do
    begin
      if a[i]>a[j] then
      begin
        buf:=a[i];
        a[i]:=a[j];
        a[j]:=buf;
      end;
      if a[i]=a[j] then
      begin
        for p:=j to m-1 do
          a[p]:=a[p+1];
        dec(m);
      end;
    end;
  for i:=1 to m do write(a[i],' ');
  readln;
end.

нашел в интернете такую прогу но ее нужно переделать

если ктонить сможет бистро сделать до завтра нужно

[Poma][a]

ch : Char;
s : string;
i : Integer;

for i := 1 to Length(s) do
     s[i] := UpCase(s[i]);

for ch := 'A' to 'Z' do
     if Pos (ch, s) <> 0 then
             WriteLn (ch);

for ch := 'A' to 'Z' do
    if Pos (ch, s) = 0 then
              WriteLn (ch)

C потолка

[Роман5день55]

var
  i: byte;
  m, n: set of Char;
  s: string;
 
begin
  s := 'Drogobuchskuy mechaniko technolog kolleg';
  s := LowerCase(s);  //переводим строку в нижний регистр
  for i := 1 to Length(s) do
    if s[i] in ['a'..'z'] then
      Include(m, s[i]);
  Writeln('Символы латинского алфавита, входящие в строку: ');
  for i := 0 to 255 do
    if Chr(i) in m then
      Write(Chr(i), ' ');
  Writeln;
  Writeln('Символы латинского алфавита, не входящие в строку: ');
  n := ['a'..'z'] - m;
  for i := 0 to 255 do
    if Chr(i) in n then
      Write(Chr(i), ' ');
end.