Создать таблицу умножения

Posted by obzor under Delphi

Создать файл и записать туда таблицу умножения для чисел от 2 до 9 (при составлении таблицы умножения используйте циклические операторы).
Так должна выглядеть таблица:

Iron Monk

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a,b: Byte;
begin
  for a:= 2 to 9 do
    begin
    for b:= 2 to 9 do
    Writeln(IntToStr(a)+'*'+IntToStr(b)+'='+IntToStr(a*b));
    Writeln('');
    end;
  Readln;
end.

Anette666k

А если таблица такого типа то какой тогда код?

Iron Monk

В Делфях — так:

var
  a,b: Byte;
begin
      Memo1.Clear;
      Memo1.lines.Add('1');
      for a:= 2 to 9 do
      begin
      Memo1.lines[0]:= Memo1.lines[0]+#9+IntToStr(a);
      Memo1.lines.Add(IntToStr(a));
      for  b:= 2 to 9 do
      Memo1.lines[a - 1]:= Memo1.lines[a - 1]+#9+IntToStr(a*b);
      end;
end;

В консоли — вместо Memo1 заполнить массив и вывести на консоль.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Обработка строк (Pascal)
• Необходимо расположить эти числа в порядке возрастания сумм их цифр