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 -