Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 18.11.2008, 18:28   #1
Григорийpnz
Пользователь
 
Регистрация: 18.11.2008
Сообщений: 12
По умолчанию Заполнить массив A следующим образом: 0 0 0 …0

var A: array[1..10,1..10] of integer;
Заполнить массив A следующим образом: 0 0 0 …0
0 1 0 ... 0
0 0 2 … 0
. . .
0 0 0 … 9
Ребят там ещё две квадратные скобки где столбик с числами с обоих сторон
Григорийpnz вне форума Ответить с цитированием
Старый 18.11.2008, 18:34   #2
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Цитата:
Сообщение от Григорийpnz Посмотреть сообщение
Ребят там ещё две квадратные скобки где столбик с числами с обоих сторон
Это называется матрица и по-моему цифры должны располагаться на главной диагонали?
0000000000
0100000000
0020000000
0003000000
0000400000
0000050000
0000006000
0000000700
0000000080
0000000009
alex_fcsm вне форума Ответить с цитированием
Старый 18.11.2008, 18:40   #3
Григорийpnz
Пользователь
 
Регистрация: 18.11.2008
Сообщений: 12
По умолчанию

0 0 0 ... 0
0 1 0 ... 0
0 0 2 ... 0
...
0 0 0 ... 9
вот так пойдёт друг помоги!!!!
Григорийpnz вне форума Ответить с цитированием
Старый 18.11.2008, 18:46   #4
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Код:
var a:array[1..10,1..10] of byte;
     i,j:byte;
begin
 for i:=1 to 10 do
  for j:=1 to 10 do
    if i=j then a[i,j]:=i-1 else a[i,j]:=0;{если элемент на главной диагонали}
 for i:=1 to 10 do
 begin
  writeln;
  for j:=1 to 10 do
    write(a[i,j],' ');
 end;
 
end.

Последний раз редактировалось alex_fcsm; 18.11.2008 в 19:31.
alex_fcsm вне форума Ответить с цитированием
Старый 18.11.2008, 18:50   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Ох надавал бы я тебе касперским по ручкам за такое название темы...
Ну лана, вот тебе в наказание замученный код:
Код:
   var s:string;i,k:integer;
begin
for i:=1 to 9 do begin
 for k:=1 to 9 do s:=s+'0';
 s[i]:=chr(i+ord('0'));
 writeln(s);s:='';
end;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
Stilet вне форума Ответить с цитированием
Старый 18.11.2008, 19:25   #6
Григорийpnz
Пользователь
 
Регистрация: 18.11.2008
Сообщений: 12
По умолчанию

спасибо огромное
Григорийpnz вне форума Ответить с цитированием
Старый 18.11.2008, 19:27   #7
Григорийpnz
Пользователь
 
Регистрация: 18.11.2008
Сообщений: 12
По умолчанию

описание не напишеш
Григорийpnz вне форума Ответить с цитированием
Старый 18.11.2008, 21:07   #8
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

А че тут писать?
Вложенный цикл - формируем строку с нулями
после - заносим в I-тое место строки число
Stilet вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
создать двумерный массив, заполнить случайными числами, сохранить в файл buba Паскаль, Turbo Pascal, PascalABC.NET 7 17.03.2015 20:08
Заполнить массив и записать в файл Amery Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 9 27.05.2008 19:02
Заполнить массив случайными числами forumu Общие вопросы Delphi 13 03.12.2007 22:11
Заполнить одномерный целочисленный массив размерности n числами, введёнными с клавиатуры AHTOXA Помощь студентам 4 06.06.2007 18:24
дайте инфу по следующим Api-функциям: Holly1444 Win Api 1 20.11.2006 20:19


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS