var
Shablon: string[N] ='abcde...эюя';
Schetchik: array [1..N] of integer;
procedure pvr(text: string);
var
i, b: integer;
begin
//for i := 1 to length(Shablon) do Schetchik:= 0;
// Наверное можно и проще обнулить массив, но...
for i := 1 to length(text) do
for b := 1 to length(Shablon) do
if text = Shablon then
begin
inc(Schetchik);
exit;
end;
end;
строки
выяснить, сколько раз в заданном тексте встречается каждый символ.
Не уверен точно, что это будет на паскале работать (наверное не будет, а в делфи может) но примерно вот так: сначало создаём шаблон с символами (Shablon: string[N] ='abcde...эюя'; где N - кол-во символов) и массив счётчиков типа Schetchik: array [1..N] of integer; А дальше так:
Результат: в массиве Schetchik будет лежать кол-во символов (напр., Schetchik[1] - кол-во символов 'a', [2] - 'b' итд., по шаблону), а если там значение 0 - таких в тексте нет. Может можно и попроще сделать, но с ходу пока только такой варьянт на ум приходит.
Код:
Результат: в массиве Schetchik будет лежать кол-во символов (напр., Schetchik[1] - кол-во символов 'a', [2] - 'b' итд., по шаблону), а если там значение 0 - таких в тексте нет. Может можно и попроще сделать, но с ходу пока только такой варьянт на ум приходит.
Ну в принципе, можно еще хуже сделать. :)
Код:
var
Alphabet: array[0..255] of integer;
s: string;
i: integer;
procedure pvr(s: string);
var
i: integer;
begin
for i := 0 to 255 do Alphabet := 0;
for i := 1 to Length(s) do Inc(Alphabet[Ord(s)]);
end;
begin
ReadLn(s);
pvr(s);
for i := 0 to 255 do
if Alphabet <> 0 then WriteLn('Symbol "', Chr(i), '" occurs ', Alphabet, ' times.');
end.
Alphabet: array[0..255] of integer;
s: string;
i: integer;
procedure pvr(s: string);
var
i: integer;
begin
for i := 0 to 255 do Alphabet := 0;
for i := 1 to Length(s) do Inc(Alphabet[Ord(s)]);
end;
begin
ReadLn(s);
pvr(s);
for i := 0 to 255 do
if Alphabet <> 0 then WriteLn('Symbol "', Chr(i), '" occurs ', Alphabet, ' times.');
end.
странно.. по - моему эта тема уже была.. но после смены дизайна кудато.. пропала?