Таблица сложения в 16 системе счисления

[serge-first]

Добрый вечер, кто может помочь разработать приложение, которое выводит на экран таблицу сложения от 0 до F в шестнадцатеричной системе счисления.

16.jpg

Получается, сначала нужно разработать таблицу сложения чисел от 0 до 15 в десятичной системе счисления?
После, воспользоваться функцией Format и вывести все числа в таблице в формате шестнадцатеричного числа?

Спасибо.

[Аватар]

for i:=0 to 15 do for j:=0 to 15 do IntToHex(i+j,2) помещай куда хочешь

[Человек_Борща]

Получается, сначала нужно разработать таблицу сложения чисел от 0 до 15 в десятичной системе счисления?
После, воспользоваться функцией Format и вывести все числа в таблице в формате шестнадцатеричного числа?

Зачем там сложно, сразу считай в нужном формате.

[serge-first]

Сообщение от Человек_Борща

Зачем там сложно, сразу считай в нужном формате.

Мне наверное нужно было не в эту тему писать, а в помощь студентам)

Не правильно описал) Это требования такие в задачи) Нужно сначала разработать таблицу сложения чисел от 0 до 15 в десятичной системе счисления, а потом воспользоваться функцией Format и вывести все числа в таблице в формате шестнадцатеричного числа.

Спасибо)

[Filka]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    StringGrid1: TStringGrid;
    procedure CheckBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    Table: array of array of Integer;
    procedure InitTable;
    procedure ShowTable(AStringGrid: TStringGrid; ShowAsHex: Boolean = False);
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

const
  cNCols = 16;
  cNRows = 16;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  InitTable;
  CheckBox1Change(Self);
end;

procedure TForm1.InitTable;
var
  ACol, ARow: Integer;
begin
  SetLength(Table, cNRows);
  for ARow := 0 to cNRows - 1 do
    SetLength(Table[ARow], cNCols);

  for ARow := 0 to cNRows - 1 do
    for ACol := 0 to cNCols - 1 do
      Table[ACol, ARow] := ACol + ARow;
end;

procedure TForm1.ShowTable(AStringGrid: TStringGrid; ShowAsHex: Boolean = False);
const
  FmtStr: array[Boolean] of string = ('%d', '%x');
var
  ACol, ARow: Integer;
begin
  if Assigned(AStringGrid) then
    with AStringGrid do
    begin
      BeginUpdate;
      try
        ColCount := cNCols;
        RowCount := cNRows;
        DefaultColWidth := 22;
        DefaultRowHeight := 22;
        FixedCols := 1;
        FixedRows := 1;
        for ARow := 0 to cNRows - 1 do
          for ACol := 0 to cNCols - 1 do
            Cells[ACol, ARow] := Format(FmtStr[ShowAsHex], [Table[ACol, ARow]]);
      finally
        EndUpdate;
      end;
    end;
end;

procedure TForm1.CheckBox1Change(Sender: TObject);
begin
  ShowTable(StringGrid1, CheckBox1.Checked);
end;

end.

[min@y™]

Нужно сначала разработать таблицу сложения чисел от 0 до 15 в десятичной системе счисления, а потом воспользоваться функцией Format и вывести все числа в таблице в формате шестнадцатеричного числа.

Открою тебе страшную тайну! Вся информация хранится и обрабатывается только в двоичной системе счисления. Всё остальное - это только отображение той самой информации.

Если ты складываешь 11+9, то процессор считает 1011 + 1001 = 10100. И ему пофиг, как ты будешь результат воспринимать.

[serge-first]

Я сделал так:

procedure TForm1.FormCreate(Sender: TObject);
const N=16;
      M=16;
var Col,Row: integer;
begin
StringGrid1.ColCount:=N;
StringGrid1.RowCount:=M;
for Col:=0 to StringGrid1.ColCount - 1 do
for Row:=0 to StringGrid1.RowCount - 1 do
   begin
    if Col=0 then StringGrid1.Cells[Col,Row]:=Format('%x',[Row]) else
    if Row=0 then StringGrid1.Cells[Col,Row]:=Format('%x',[Col]) else
    StringGrid1.Cells[Col,Row]:=Format('%x',[Col+Row]);
   end;

StringGrid1.Width := StringGrid1.DefaultColWidth * StringGrid1.ColCount;
StringGrid1.Height := StringGrid1.DefaultRowHeight * StringGrid1.RowCount;

end;

end.

[serge-first]

И теперь переделать таблицу умножения от A до F ???

Спасибо)

[Аватар]

procedure TForm1.FormCreate(Sender: TObject);
var Col,Row: Integer;
begin
  StringGrid1.ColCount:=17;  StringGrid1.FixedCols:=1;
  StringGrid1.RowCount:=17;  StringGrid1.FixedRows:=1;
  for Col:=1 to StringGrid1.ColCount - 1 do begin
    StringGrid1.Cells[0,Col]:=Format('%x',[Col-1]);
    StringGrid1.Cells[Col,0]:=Format('%x',[Col-1]);
//    for Row:=1 to StringGrid1.RowCount - 1 do StringGrid1.Cells[Col,Row]:=Format('%x',[Col+Row-2]);
    for Row:=1 to StringGrid1.RowCount - 1 do StringGrid1.Cells[Col,Row]:=Format('%x',[(Col-1)*(Row-1)]);
  end;
  StringGrid1.Width:=(StringGrid1.DefaultColWidth+2)*StringGrid1.ColCount;
  StringGrid1.Height:=(StringGrid1.DefaultRowHeight+2)*StringGrid1.RowCount;
end;

Вместо Format можно IntToHex как где-то выше писал

[serge-first]

Сообщение от Аватар

procedure TForm1.FormCreate(Sender: TObject);
var Col,Row: Integer;
begin
  StringGrid1.ColCount:=17;  StringGrid1.FixedCols:=1;
  StringGrid1.RowCount:=17;  StringGrid1.FixedRows:=1;
  for Col:=1 to StringGrid1.ColCount - 1 do begin
    StringGrid1.Cells[0,Col]:=Format('%x',[Col-1]);
    StringGrid1.Cells[Col,0]:=Format('%x',[Col-1]);
//    for Row:=1 to StringGrid1.RowCount - 1 do StringGrid1.Cells[Col,Row]:=Format('%x',[Col+Row-2]);
    for Row:=1 to StringGrid1.RowCount - 1 do StringGrid1.Cells[Col,Row]:=Format('%x',[(Col-1)*(Row-1)]);
  end;
  StringGrid1.Width:=(StringGrid1.DefaultColWidth+2)*StringGrid1.ColCount;
  StringGrid1.Height:=(StringGrid1.DefaultRowHeight+2)*StringGrid1.RowCount;
end;

Вместо Format можно IntToHex как где-то выше писал

А если исправить мой код? Дополнить? Мне именно с Format нужно)