Cześć. Muszę zrobić w Pascalu tabliczkę mnożenia, gotową wypełnioną. Możecie mi z tym pomóc? Nie wiem jak wymnożyć wiersz przez kolumnę. Tak myślę, że wiem gdzie to dać tylko nie wiem jak konkretnie to napisać. Zrobiłem sobie to też w C++ bo dłużej się go uczę i dzięki temu najpierw robię zadanie w C++ a potem na Pascala go przekształcam. Ok, w C++ kod wygląda tak jak poniżej, natomiast w konsoli prezentuje się w taki sposób: http://ifotos.pl/z/ararhqx
#include <iostream>
using namespace std;
int main()
{
cout << "TABLICZKA MNOZENIA" << endl;
cout << endl;
const int R = 10;
int tab[R][R];
for (int i = 0; i < R; ++i)
{
for (int j = 0; j < R; ++j)
{
tab[i][j] = (i + 1)*(j + 1);
}
}
for (int i = 0; i < R; ++i)
{
for (int j = 0; j < R; ++j)
{
cout << tab[i][j] << "\t";
}
cout << endl;
}
cin.get();
return 0;
}
Potrzebuję zrobić to samo w Pascalu. Może mi to ktoś dokończyć? Chciałbym, żeby wyglądało tak jak w C++. Za pomoc stawiam browarka :D.
program Tablice_dwuwymiarowe;
var
a:array [1..10,1..10] of integer;
i: integer;
j: integer;
begin
writeln('Tabliczka mnozenia');
writeln;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
write // TUTAJ MUSI BYĆ TO NAPISANE!
end;
writeln;
end;
readln();
end.