Const n1=15; n2=10; n3=12; type V=array[1..15] of string; procedure M_in(s:string; var a:V; n:integer); { ввод данных в массив } var i:integer; begin Writeln('Вводите по одному ',n,' элементов массива ',s); for i:=1 to n do Readln(a[i]) end;
procedure M_out(var a:V; n:integer; c:char); { выводит элементы, начинающиеся с указанного символа } var i:integer; begin Writeln('*** Слова на букву ',c,' ***'); for i:=1 to n do if a[i][1]=c then Writeln(a[i]); Writeln end;
var s1,s2,s3:V; begin M_in('S1',s1,n1); M_in('S2',s2,n2); M_in('S3',s3,n3); M_out(s1,n1,'В'); M_out(s2,n2,'Ц'); M_out(s3,n3,'А'); end.
Для начала следует отметить тот факт, что не следует путать оператор присваивания со знаком равенства в математике. Оператор присваивания работает следующим образом. (на примере k := 4+7) Сначала вычисляется значение выражения справа от оператора (4+7 = 11), затем результат вычисления "записывается" в переменную из левой части оператора. В результате по имени этой переменной можно получить записанное значение и даже использовать его в других выражениях.
"а := 17" Записываем в переменную а значение 17.
"b := 23" Записываем в переменную b значение 23.
"b := а + b + 1" Сначала вычисляем выражение a+b+1 = 17+23+1 = 41. Затем изменяем значение переменной b (теперь она хранит в себе 41)
"а := b + а" Сначала вычисляем выражение b+a = 41+17 = 58. Затем изменяем значение переменной a (теперь она хранит в себе 58)
n1=15;
n2=10;
n3=12;
type
V=array[1..15] of string;
procedure M_in(s:string; var a:V; n:integer);
{ ввод данных в массив }
var i:integer;
begin
Writeln('Вводите по одному ',n,' элементов массива ',s);
for i:=1 to n do Readln(a[i])
end;
procedure M_out(var a:V; n:integer; c:char);
{ выводит элементы, начинающиеся с указанного символа }
var i:integer;
begin
Writeln('*** Слова на букву ',c,' ***');
for i:=1 to n do
if a[i][1]=c then Writeln(a[i]);
Writeln
end;
var
s1,s2,s3:V;
begin
M_in('S1',s1,n1);
M_in('S2',s2,n2);
M_in('S3',s3,n3);
M_out(s1,n1,'В');
M_out(s2,n2,'Ц');
M_out(s3,n3,'А');
end.