Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Матрица

Автор: codling 11.6.2009, 21:49

Здравствуйте, помогите кто может.

Дана квадратная матрица 8*8. Элементы этой матрицы генерируются случайным образом. Перевести эти эелементы в двоичную систему счисления. Отразить результат в двух матрицах (исходной и полученной).

Автор: Rrader 12.6.2009, 07:47

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: Димас 20.6.2009, 14:30

Код


procedure TForm1.SpeedButton1Click(Sender: TObject);
var n,i,j: integer;
s: ShortString;
begin
for i:=0 to 7 do
 for j:=0 to 7 do
  begin
  n:=strtoint(StringGrid1.Cells[i,j]);
   while (N<>0) do
    begin
    s:=inttostr(N mod 2) + s;
    N:=N div 2;
    end;
    StringGrid2.Cells[i,j]:=s;
  end;
end;

Если помог, поставь галочку что вопрос решен smile