Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
как заменить часть кода на функции и процедуры
program mass;
uses crt;
const N=3;
M=3;
var
A:array[1..N]of integer;
B:array[1..M]of integer;
C:array[1..M+N-1]of integer;
i,KB,KA,Koef,k: integer;
begin
clrscr;
for i := 1 to N do {zapolnenie i vivod massiva}
begin
write('vvedite element 1-go polinoma');
writeln;
read(A[i]);
end;

for i := 1 to M do {zapolnenie i vivod massiva}
begin
write('vvedite element 2-go polinoma');
writeln;
read(B[i]);
end;

k:=2;
for i := 1 to N+M-1 do
begin
if i<=N then
begin
KB:=i;
Koef:=0;

for KA:=1 to i do
begin
Koef:=Koef+A[KA]*B[KB];
KB:=KB-1;
end;
C[i]:=Koef;
end
else
begin
KB:=N;
Koef:=0;
for KA:=k to N do
begin
Koef:=Koef+A[KA]*B[KB];
KB:=KB-1;
end;
C[i]:=Koef;
k:=k+1;

end;
end;

1 | Автор: Анастасия1902 | 2010-02-23, 16:44   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: