Реферат: Лабораторная работа по информатике, вариант №13, с методическим пособием.zip
c[l] := a[j];
end;
end;
{ исполняемая часть главной программы }
begin
window(1, 1, 80, 25);textattr := 27; clrscr;
gotoxy(5, 2);write('Введите кол-во элементов массива X');
readln(n);
gotoxy(5, 3);write('Введите значения массива X');
for i := 1 to n do begin
gotoxy(i*4-2, 5); read(x[i]);
end;
gotoxy(5, 9);write('Введите кол-во элементов массива Y');
readln(m);
gotoxy(5, 10);write('Введите значения массива Y');
for i := 1 to m do begin
gotoxy(i*4-2, 12); read(y[i]);
end;
l := 0;
st(x,z,n,l);
st(y,z,m,l);
gotoxy(5, 15);write(‘Результативный массив Z’);
for i:=1 to l do begin
gotoxy(i*4-2, 17);write(z[i]);
end;
end.
Данная конкретная программа в тестировании не нуждается, так как выведенные на печать результаты позволяют однозначно судить о правильности выполнения программы.
Контрольные вопросы
-
Указать, при каких условиях целесообразно использование подпрограмм, какие выгоды они представляют пользователю.