VPF::Таблица умножения? - Форум программистов

navi

Дата 17.5.2007, 16:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 28.4.2007
Где: Moldova

Репутация: нет
Всего: нет

Привет всем! Кроче как сделать чтобы эта программа выводила таблицу умножения не в один столбик а акждый столбик отдельно. Т.е. Например в два ряда по 4 столбика?
Задача звучит так: Составьте программу, которая выведет на экран таблицу умножения. smile

Код


var
a,s,d,i:integer;
begin
for a:=1 to 10 do
for s:=1 to 10 do begin  
d:=a*s;writeln(a,'*',s,'=',d);  end;
readln;end.

--------------------

Хакер не преступник! Взлом ради искусства! Смысл в свободе!

volvo877

Дата 17.5.2007, 18:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2072
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Попробуй:

Код


var
  a,s,d,i:integer;
begin
  i := 0;
  for a:=1 to 10 do
    for s:=1 to 10 do begin
      i := i + 1;
      d:=a*s;
      write(a:2,'*',s:2,'=',d:3, '  ');
      if i = 5 then begin
        writeln; i := 0;
      end;
  end;
  readln;
end.

navi

Дата 17.5.2007, 22:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 28.4.2007
Где: Moldova

Репутация: нет
Всего: нет

Цитата(volvo877 @ 17.5.2007, 18:10

)

Попробуй:

  У тя распологает допустим умножение на 5 в две строчки!!!
а мне нужно вот так:
1*1=1      2*1=2
1*2=2      2*2=4
1*3=3      2*3=6
...........     ..........
1*10=10 2*10=20

а у тебя выходит так:
1*1=1   1*2=2 ..... 1*5=5
1*6=6   1*7=7 ..... 1*10=10 и тп.
Понял?

--------------------

Хакер не преступник! Взлом ради искусства! Смысл в свободе!

volvo877

Дата 17.5.2007, 22:53 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2072
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

В 2 ряда по 5 столбиков:

Код



var
  i, j, k: integer;
begin
  for k := 1 to 2 do begin

    for i := 1 to 10 do begin
      for j := (k - 1) * 5 + 1 to k * 5 do begin
        write(j:2, '*', i:2, '=', i*j:3, '':2);
      end;
      writeln;
    end;
    writeln;

  end;
  readln;
end.

navi

Дата 18.5.2007, 15:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 28.4.2007
Где: Moldova

Репутация: нет
Всего: нет

Цитата(volvo877 @ 17.5.2007, 22:53

)

В 2 ряда по 5 столбиков:

Клёво!!!! Спасибо!!!

--------------------

Хакер не преступник! Взлом ради искусства! Смысл в свободе!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »