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

[Anette666k]

Напишите программу, которая работает в одном из двух режимов. Если в текущем каталоге имеется файл “tabl_umn.txt”, то вывести на экран его содержимое. В противном случае создать файл с таким именем и записать туда таблицу умножения для чисел от 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.

[Aleksandr H.]

Самая простая реализация таблицы умножения согласно внешнего вида таблицы

[Anette666k]

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

[Smitt&Wesson]

Я уже смеяться устал!

[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 заполнить массив и вывести на консоль.

[Smitt&Wesson]

эТО УЖЕ БЛИЖЕ К ТЕМЕ. тОЛЬКО НА сИ++, ПРОЩЕ РЕШАЕТСЯ.
бЛИН, НИКАК НЕ ПРИВЫКНУ К КЛАВИАТУРЕ.

[Iron Monk]

Сообщение от Smitt&Wesson

эТО УЖЕ БЛИЖЕ К ТЕМЕ. тОЛЬКО НА сИ++, ПРОЩЕ РЕШАЕТСЯ.
бЛИН, НИКАК НЕ ПРИВЫКНУ К КЛАВИАТУРЕ.

Тема, как ни странно))) - Форум программистов > Новички в программировании > Паскаль>создать таблицу умножения

[Anette666k]

Сообщение от Smitt&Wesson

Я уже смеяться устал!

и что вы тут нашли смешного, вопрос вроде задан в теме новички в программировании,или я темой ошиблась?

[Anette666k]

Сообщение от Smitt&Wesson

эТО УЖЕ БЛИЖЕ К ТЕМЕ. тОЛЬКО НА сИ++, ПРОЩЕ РЕШАЕТСЯ.
бЛИН, НИКАК НЕ ПРИВЫКНУ К КЛАВИАТУРЕ.

может на СИ++ это и проше,но мне нужно в PascalABC.NET