Работа с процедурами

[Neo_AG]

program lab9;
uses crt;
var ss: string;
  ii, len: byte;
  i: integer;

procedure glass(s: string);
var glas: set of char;
  ii, glas1: byte;
begin glas := ['a', 'е', 'ё,' и ',' о, 'у', 'э', 'ю', 'я'];
  glas1 := 0;
  for ii := 1 to len do
    if s[ii] in glas then inc(glas1);
  writeln('Количество гласных', glas1);
end;

procedure soglass(s: string);
var soglass: set of char;
  ii, soglass1: byte;
begin soglas := ['б'..'д', 'ж', 'з', 'к', '..' н ',' п ',..' т ',' ф ',..' щ'];
  soglas1 := 0;
    for ii := 1 to len do
    if s[ii] in soglas then inc(soglas1);
  writeln('Количество согласных', soglas1);
end;

procedure zivrii(s: string);
var zivri: set of char;
  ii, zivri1: byte;
begin zivri := ['0'..'9'];
  zivri1 := 0;
  for ii := 1 to len do
    if s[ii] in zivri then inc(zivri1);
  writeln('Количество цифр', zivri1);
end;

procedure probell(s: string);
var probel: set of char;
  ii, probel1: byte;
begin probel := [' '];
  probel1 := 0;
  for ii := 1 to len do
    if s[ii] in probel then inc(probel1);
  writeln('Количество пробелов', probel1);
end;
begin
  for i := 1 to 5 do
  begin
    readln(ss);
    len := length(ss);
    glass(ss);
    zivrii(ss);
    probell(ss);
    writeln;
  end;
end.

Как сделать так,чтобы в одной процедуре все это входило сразу??? т.е.чтобы больше процедур не было



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[ByAlex]

Ну дак вы сделаете все в одной процедуре и в одном цикле и все!

[lino217]

Ну вообще-то писать такую огромную процедуру-кашу есть плохой стиль программирования.
С какой целью вообще необходима только одна процедура?

[s-andriano]

Тут по логике как раз и нужна одна процедура, чтобы не гонять цикл по одной и той же строке несколько раз.
А вот раскидывать 3 элементарных действия по трем разным подпрограммам, действительно - плохой стиль.
Да и программа в целом поучится раза в 3 короче.

[lino217]

Ну почему. Я ведь и говорю, что всё зависит от цели программы. Если, например, на форме кинуть несколько кнопок, присвоив каждой обработчик в виде отдельной процедуры, то всё будет выглядеть несколько элегантнее. А строка тут как раз таки не одна и та же, ведь массивы то разные. Поэтому я не понимаю, зачем её толкать в одну процедуру. Мне ещё в университете говорили, что правильная программа должна выглядеть таким образом, чтобы каждая отдельная процедура/функция располагалась полностью на экране.
Можно ведь создать отдельную процедуру, где будет вызываться каждая подпрограмма по отдельности в виде вызова её имени.

[s-andriano]

Сообщение от lino217

Ну почему. Я ведь и говорю, что всё зависит от цели программы.

Бкзусловно.

А строка тут как раз таки не одна и та же, ведь массивы то разные.

Здесь вообще нет массивов. А строка - одна.

Поэтому я не понимаю, зачем её толкать в одну процедуру.

Затолкните, посмотрите, что получится, тогда поймете.

Мне ещё в университете говорили, что правильная программа должна выглядеть таким образом, чтобы каждая отдельная процедура/функция располагалась полностью на экране.

Ну, это, скорее пожелание, чем правило, но в данном случае оно как раз будет выполняться. Даже если экран маленький.

[Neo_AG]

преподу не нравиться,когда так много процедур.(( ему именно нужно в одной процедуре все это было...

[BDA]

program lab9;
uses crt;
var ss: string;
  i: integer;
  
procedure inform(var s:string);
var glas, soglass, zivri: set of char;
  i, glas1, soglass1, zivri1, probel1: byte;
begin
  glas := ['a','е','ё','и','о','у','ы','э','ю','я'];
  soglas := ['б'..'д', 'ж', 'з', 'к'..'н','п'..'т','ф'..'щ'];
  zivri := ['0'..'9'];
  glas1 := 0;
  soglas1 := 0;
  zivri1 := 0;
  probel1 := 0;
  for i := 1 to length(s) do
	if s[i] in glas then inc(glas1)
	else
	if s[i] in soglas then inc(soglas1)
	else
	if s[i] in zivri then inc(zivri1)
	else
	if s[i]=' ' then inc(probel1);  
  writeln('Количество гласных', glas1);
  writeln('Количество согласных', soglas1);
  writeln('Количество цифр', zivri1);
  writeln('Количество пробелов', probel1);
end;

begin
  for i := 1 to 5 do
  begin
    readln(ss);
    inform(ss);
    writeln;
  end;
end.

[s-andriano]

Сообщение от Neo_AG

преподу не нравиться,когда так много процедур.(( ему именно нужно в одной процедуре все это было...

Нет, преподу не нравится, что Вы в своей программа выполняете много ненужных действий. Например, несколько раз прогоняете цикл, когда достаточно одного.

[DiemonStar]

Ну вообще-то писать такую огромную процедуру-кашу есть плохой стиль программирования.
С какой целью вообще необходима только одна процедура?

попробуем на доступном - на бусах, к примеру...

у вас рассыпались бусы с бусинами 4-х размеров... чтобы узнать количество бусин каждого из размеров, если следовать вашей логике, нужно из всех бусин выбрать бусы одного размера и сосчитать их, потом кинуть в общую кучу и повторять всё это для бусин других размеров...
а можно просто: рассортировать бусы по нужным размерам и сосчитать их...

признаком хорошего тона в программировании, если что, является создание оптимального алгоритма.. а всё остальное - происки ленивых преподов, которым лень разбираться))))