Сравнение диаграмм занятие сомнительное. Что Excel, что Word - они совместимы друг с другом, из одного можно экспоритровать в другой без проблем. Но все же постараемся выделить плюсы и минусы.
Плюсы: быстрота построения. То есть прямо "на коленке" можно сделать диаграмму не прибегая к сторонней Делаешь доклад и прямо тут же делаешь диаграмму. Минусы: урезанный функцианал. Для построения все же лучше использовать Excel (все таки Word это текстовый процессор и полноценного функционала для построения диаграмм от него не стоит ожидать) Да собственно и все. Больше никакой разницы нет.
Вот с одиночным циклом (пока разберешься, можно лопнуть от натуги):
var i,j,k:byte; a:array[1..10,1..10] of byte; begin for k:=1 to 100 do begin i:=(k-1)div10+1; j:=k mod 10; if j=0 then j:=10; a[i,j]:=i*j; Write(a[i,j],' ') end end.
А вот современное решение, вообще без циклов:
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=MatrGen(10,10,(i,j)->(i+1)*(j+1)); a.Rows.SelectMany(x->x).Println end.
Плюсы: быстрота построения. То есть прямо "на коленке" можно сделать диаграмму не прибегая к сторонней Делаешь доклад и прямо тут же делаешь диаграмму.
Минусы: урезанный функцианал. Для построения все же лучше использовать Excel (все таки Word это текстовый процессор и полноценного функционала для построения диаграмм от него не стоит ожидать)
Да собственно и все. Больше никакой разницы нет.
var
i,j,k:byte;
a:array[1..10,1..10] of byte;
begin
for k:=1 to 100 do
begin
i:=(k-1)div10+1;
j:=k mod 10;
if j=0 then j:=10;
a[i,j]:=i*j;
Write(a[i,j],' ')
end
end.
А вот современное решение, вообще без циклов:
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=MatrGen(10,10,(i,j)->(i+1)*(j+1));
a.Rows.SelectMany(x->x).Println
end.
В обоих случаях вывод выглядит так:
1 2 3 4 5 6 7 8 9 10 2 4 6 8 10 12 14 16 18 20 3 6 9 12 15 18 21 24 27 30 4 8 12 16 20 24 28 32 36 40 5 10 15 20 25 30 35 40 45 50 6 12 18 24 30 36 42 48 54 60 7 14 21 28 35 42 49 56 63 70 8 16 24 32 40 48 56 64 72 80 9 18 27 36 45 54 63 72 81 90 10 20 30 40 50 60 70 80 90 100