Паскаль АВС процедуры, Процедура ввода и нахождения длины строки. Опции

[nana1]

Даны строки разной длины S1, S2, S3, S4, S5. Разработать:
1) процедуру ввода строки и нахождения длины каждой строки;
2) процедуру определения номера позиции символа “*” в каждой строке. Выдать на экран в программе полученные длины строк и номера позиций символа “*” в каждой строке. В программе вычислить общую длину всех строк.

Программа без процедуры получается вот такая огромная! Понимаю, что если написать процедуру все будет куда короче. НО как это сделать не пойму. Подскажите, прошу.

program zal6;
type   mas=array[1..50]  of  integer;
var
s:mas;
s1,s2,s3,s4,s5: string[50];
i,j,n:integer;
begin 
write(' vvod s1 = '); readln(s1);
writeln('kol-vo simvolov:',length(s1):6);
I:=0;  J:=0;  n:=ORD(s1[0]);
While  i<=n do 
Begin 
if s1[i]='*' then  
begin 
j:=j+1; 
writeln('simvol "*" po schetu ',i:3, '-й'); end;
i:=i+1;     
End; 
write(' vvod s2 = '); readln(s2);
writeln('kol-vo simvolov:',length(s2):6);
I:=0;  J:=0;  n:=ORD(s2[0]);
While  i<=n do 
Begin 
if s2[i]='*' then  
begin 
j:=j+1; 
writeln('simvol "*" po schetu ',i:3, '-й'); end;
i:=i+1;     
End; 
write(' vvod s3 = '); readln(s3);
writeln('kol-vo simvolov:',length(s1):6);
I:=0;  J:=0;  n:=ORD(s3[0]);
While  i<=n do 
Begin 
if s3[i]='*' then  
begin 
j:=j+1; 
writeln('simvol "*" po schetu ',i:3, '-й'); end;
i:=i+1;     
End; 
write(' vvod s4 = '); readln(s4);
writeln('kol-vo simvolov:',length(s4):6);
I:=0;  J:=0;  n:=ORD(s4[0]);
While  i<=n do 
Begin 
if s4[i]='*' then  
begin 
j:=j+1; 
writeln('simvol "*" po schetu ',i:3, '-й'); end;
i:=i+1;     
End; 
write(' vvod s5 = '); readln(s5);
writeln('kol-vo simvolov:',length(s5):6);
I:=0;  J:=0;  n:=ORD(s5[0]);
While  i<=n do 
Begin 
if s5[i]='*' then  
begin 
j:=j+1; 
writeln('simvol "*" po schetu ',i:3, '-й'); end;
i:=i+1;     
End; 
end. 

Сообщение отредактировано: nana1 - 10.02.2011 16:10

[volvo]

Программа без процедуры получается вот такая огромная!

Она мало того, что огромная - она еще и неправильная. На 13-ой же строке будет вылет. По обращению к s1[0]...

Я б сделал так:

program zal6;

procedure P(num : integer; var s : string; var n : Integer);
var i, j : Integer;
begin 
   write(' vvod s', num, ' = '); readln(s);
   writeln('kol-vo simvolov:', length(s):6);
   I:=1;  J:=0;  n:=Length(s);
   while  i <= n do
   begin
      if s[ i ] = '*' then
      begin
         j:=j+1;
         writeln('simvol "*" po schetu ', i:3, '-й');
      end;
      i:=i+1;
   end;
end;

var
   st : array[1 .. 5] of string;
   i : integer;
   n, len : Integer;
begin
   len := 0;
   for i := 1 to 5 do
   begin
      P(i, st[ i ], n);
      len := len + n;
   end;
   writeln('Общая длина строк = ', len);
end.

(только я не проверял, нет ABC под рукой, тестируй, вроде должно работать...)

[nana1]

Да, Спасибо! Она работает! сейчас буду разбирать что к чему.