program ma działać następująco:
- prosi użytkownika o podanie zakresu liczb jakie mają być wpisywane do tablic;
- funkcja wczytajTablice generuje losowe wartości z podanego zakresu i wpisuje je do tablic;
- procedura pokazTablice wyświetla zawartość tablicy na ekranie podanej jako parametr;
- procedura zsumujTablice pobiera dwie tablice (tab1 i tab2) i oblicza elementy trzeciej (tab3) jako sumę elementów dwóch wcześniej wymienionych.
Do tej pory napisałem takie procedury i funkcje:
function wczytajtablice(var z:integer):typtablica;
var
i:integer;
begin
randomize;
for i:=0 to n-1 do
result[i]:=random(z);
end;
procedure pokaztablice(tablica:typtablica);
var
i:integer;
begin
writeln('--------------------------');
i:=0;
repeat
write('e[',i+1:2,']=',tablica[i]:4,' ');
writeln();
i:=i+1;
until i>=n;
end;
kod wygląda następująco:
begin
write('Podaj zakres liczb: ');
readln(zakres);
tab1:=wczytajTablice(zakres);
tab2:=wczytajTablice(zakres);
pokazTablice(tab1);
pokazTablice(tab2);
zsumujTablice(tab1,tab2,tab3);
pokazTablice(tab3);
readln;
end.
Do tej pory natknąłem się na pierwszy problem, a mianowicie gdy wywołuje się procedura "pokaztablice" to pokazuje ona dwie identyczne tablice.
Co trzeba zrobić, aby wyświetlane tablice były różne?
Jak powinien wyglądać kod procedury "zsumujTablice", aby ta dodała do siebie elementy dwóch tablic?