Таблица умножения, она же таблица Пифагора или таблица Кэли.


 В российских школах значения традиционно доходят до 10×10. В Великобритании до 12×12, что связано в том числе с единицами английской системой мер длины

Программа таблицы умножения Visual Basic

Программа таблицы умножения на JavaScript.

JavaScript, PHP, Java - это всё C-подобные языки, многое в них похоже, для вывода на страницу будем использовать document.write, в качестве цикла - цикл for, кстати говоря, он абсолютно такой же, как и в C.

Вот сам скрипт:

  1.     <script type="text/javascript">  
  2.         for (i=1; i<=10; i++) {   
  3.             document.write("<tr>");   
  4.             for (j=1; j<=10; j++)   
  5.                 document.write("<td>"+String(i*j)+"</td>");   
  6.             document.write("</tr>");   
  7.         }   
  8.     </script>  
  9. </table>  <table>  

А вот и сам результат:

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

Умножение матриц

5. В данной программе реализуется алгоритм расчета результата умножения матрицы 4*4 на матрицу 1*4. Вид и работа данной программы показаны на рисунке
 

1. Создайте новое приложение и расположите на нем 3 компонента StringGrid.

Установите в свойстве DefaultColWidth(ширина колонки таблицы) значение 35, в свойстве DefaultRowHeight(высота строки таблицы) значение 20 – у всех трех таблиц.

Переименуйте (свойство Name) у таблиц на S1, S2, S3 соответственно.

2. У таблиц S2 и S3 в свойстве ColCount вместо 5 напишите 2.

3. Для большей наглядности разместите на приложении метки Label1, Label2 и Label3, пропишите в их свойстве Caption тексты А,В и А*В, и расположите их возле таблиц S1, S2 и S3 соответственно (примерный вид и работа программы показаны на рис. 36).

 

4. Теперь поместите на Вашей главной форме кнопку Button1, измените текст в её свойстве Caption на «Умножение», затем создайте обработчик события OnClick для данной кнопки и написать там следующее:

 

procedure TForm1.Button1Click(Sender: TObject);

Var c,d,n2:array[1..10,1..10] of real;

i,j,k:integer;

begin

 

For i:=1 to 4 do

For j:= 1 to 4 do

c[i,j]:= StrToInt(A.Cells[j,i]);

begin

For i:=1 to 4 do

For j:= 1 to 1 do

d[i,j]:= StrToInt(B.Cells[j,i]);

end;

for j:=1 to 4 do

begin

For i:=1 to 4 do

begin

n2[i,j]:=0;

for k:= 1 to 4 do

n2[i,j]:= n2[i,j]+c[i,k]*d[k,j];

end;

end;

begin

For i:=1 to 4 do

For j:=1 to 1 do

AB.Cells[j,i]:=FloatToStr(n2[i,j]);

end;

 

end;

 

Назад

 

Hosted by uCoz