[pascal] таблица умножения - Форум
Вторник, 06.12.2016, 08:44
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » [pascal] таблица умножения ([до 17.03.10] 2-х мерные массивы)
[pascal] таблица умножения
PASCAL26Дата: Вторник, 16.03.2010, 19:32 | Сообщение # 1
Генералиссимус
Группа: Модераторы
Сообщений: 215
[ 23 ]
Статус: Offline
Даны два числа n и m. Создайте двумерный массив A[n][m], заполните его таблицей умножения A[i][j]=i*j и выведите на экран. При этом нельзя использовать вложенные циклы, все заполнение массива должно производиться одним циклом.

Формат входных данных

Программа получает на вход два числа n и m – количество строк и столбцов, соответственно.

Формат выходных данных

Программа должна вывести полученный массив. Числа разделяйте одним пробелом.


пишу на с++, delphi, c# (нудные задачи небезвозмедно)
ps Если помог - щелкни +, и вам хорошо и мне приятно
 
ignorerДата: Среда, 17.03.2010, 14:37 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
а я нахаляву решу smile
 
PASCAL26Дата: Среда, 17.03.2010, 21:45 | Сообщение # 3
Генералиссимус
Группа: Модераторы
Сообщений: 215
[ 23 ]
Статус: Offline
вот моя программа
Code

program Project4;

{$APPTYPE CONSOLE}

uses
   SysUtils;
   var
a:array[0..100,0..100]of integer;
i,j,n,m:integer;
begin
read(n,m);
i:=0; j:=-1;
if n<m then
while j<m do begin
a[i,j]:=i*j;
inc(j);
if j>=m-1 then begin j:=0; inc(i);
end;
end
else
while i<n do begin
inc(j);
a[i,j]:=i*j;
if j>=m-1 then begin j:=0; inc(i);
end;
end;
for i:=0 to n-1 do begin
  for j:=0 to m-1 do
   write(a[i,j],' ');
   writeln;
   end;
  readln;
  readln;

end.
вроде работает но на сервере пишет wrong aswer on test 2(http://informatics.mccme.ru/moodle/mod/statements/view3.php?id=282&chapterid=361);

Добавлено (17.03.2010, 16:29)
---------------------------------------------
если кого заинтерисавала то я уже сам решил

Code

program Project4;

{$APPTYPE CONSOLE}

uses
   SysUtils;
   var
a:array[0..100,0..100]of integer;
i,j,n,m:integer;
begin
read(n,m);
i:=0; j:=-1;
while i<n do begin
a[i,j]:=i*j;
inc(j);
if j>=m then
begin j:=0; inc(i);
end;
end;

for i:=0 to n-1 do begin
  for j:=0 to m-1 do
   write(a[i,j],' ');
   writeln;
   end;
  readln;
  readln;

end.

Добавлено (17.03.2010, 16:35)
---------------------------------------------
если кого интересуют интересные задачи на 2-мерные массивы то они здесь - http://informatics.mccme.ru/moodle....id=1458 p.s. если есть решения задач j k l m n o отпишитесь

Добавлено (17.03.2010, 21:45)
---------------------------------------------
вот еще задачка
Даны числа n и m. Создайте массив A[n][m] и заполните его, как показано на примере.

Формат входных данных

Программа получает на вход два числа n и m.

Формат выходных данных

Программа должна вывести полученный массив, отводя на вывод каждого числа ровно 3 символа.

Пример

Ввод
4 6

Вывод
0 1 3 6 10 14
2 4 7 11 15 18
5 8 12 16 19 21
9 13 17 20 22 23

кто может помогите wacko


пишу на с++, delphi, c# (нудные задачи небезвозмедно)
ps Если помог - щелкни +, и вам хорошо и мне приятно
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » [pascal] таблица умножения ([до 17.03.10] 2-х мерные массивы)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016