Создайте программу,которая заполняет квадратный массив 8X8 числами по следующему правилу

@AngleIrik · Регистрация: 11.05.2009

Студворк — интернет-сервис помощи студентам

А.Создайте программу,которая заполняет квадратный массив 8X8 числами по следующему правилу.

Каждый элемент равен сумме своих индексов.
Б.Выведите созданный массив на экран.

Как сделать?......

@mamedovvms · 12.05.2009, 13:54

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var a:array[1..8,1..8] of integer;
        i,j:integer;     
begin
 clrscr;
 for i:=1 to 8 do
  for j:=1 to 8 do
   a[i,j]:=i+j;
 
 for i:=1 to 8 do
  begin
   for j:=1 to 8 do
     write(a[i,j]:2);
     writeln;
 end;
readln;
end.

@AngleIrik · 13.05.2009, 05:49 **[ТС]**

Не запускается.....
Ошибку выдаёт(

@mamedovvms · 13.05.2009, 06:14

а что за ошибку выдает

@Bumerang · 13.05.2009, 06:40

Ага, все верно... Классный массив такой получаеться хD

@mamedovvms · 13.05.2009, 06:45

Bumerang,
ты видишь какую нибудь ошибку в коде , по моему нет

@Bumerang · 13.05.2009, 07:10

Неа, ошибки нету ни какой, у меня запустилось.
Прикольно делаешь массив for i:=1 to 8 do
и в подпрограмме столбцы
А я делал обычно всегда так:

Pascal
1
2
3
4
5
6
7
for i:=1 to 5 do
for j:=1 to 5 do
begin
 
Write (' ',C[i,j],' ');
if j mod 6=5 then Writeln; {Тут что бы красиво массив масивом получился =)}
end;

Теперь буду как ты делать >_<
=))

Добавлено через 6 минут 11 секунд
А вот хотя тут я хз... У меня прога запускаеться отлично, но разьве не нужно
тут второй цикл в подпрограмму ввести:

Pascal
1
2
3
4
5
6
7
8
for i:=1 to 8 do
begin
for j:=1 to 8 do
begin{тут}
write(a[i,j]:2);
writeln;
end; {и тут }
end;

Или просто написать writeln(a[i,j]:2);
ХОТЯ это все мелочи, главное работает =))

@Mat_All · 13.05.2009, 12:06

Сообщение от AngleIrik

Не запускается.....
Ошибку выдаёт(

Попробуй вот это (хотя ничего толком не изменилось ^_^):

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program bred;
uses wincrt; {crt -åñëè Ïàñêàëü ïîä ÄÎÑ}
var a:array[1..8,1..8] of integer;
    i,j:integer;
begin
 clrscr;
 for i:=1 to 8 do
 Begin
  for j:=1 to 8 do
   Begin
    a[i,j]:=i+j;
    write(a[i,j]:3);
   End;
  writeln;
 end;
 readln;
end.

@AngleIrik · 13.05.2009, 14:41 **[ТС]**

Он мне пишет:
Illegal parameter: -Opentium3

Что это значит?...

@mamedovvms · 13.05.2009, 14:44

попробуй

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program zadacha;
var a:array[1..8,1..8] of integer;
        i,j:integer;     
begin
 for i:=1 to 8 do
  for j:=1 to 8 do
   a[i,j]:=i+j;
 
 for i:=1 to 8 do
  begin
   for j:=1 to 8 do
     write(a[i,j]:2);
     writeln;
 end;
readln;
end.

@AngleIrik · 13.05.2009, 14:54 **[ТС]**

Теперь пишет: Compilation aborted
И не открывается(((

@Mat_All · 13.05.2009, 18:48

Сообщение от AngleIrik

Теперь пишет: Compilation aborted
И не открывается(((

Девушка, свяжитесь со мной, я вам нормальный компилятор скину и под Дос, и под Вин ^_^

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@AngleIrik 0 / 0 / 0 Регистрация: 11.05.2009 Сообщений: 22

	Создайте программу,которая заполняет квадратный массив 8X8 числами по следующему правилу 12.05.2009, 13:28. Показов 6739. Ответов 11 Метки нет (Все метки) А.Создайте программу,которая заполняет квадратный массив 8X8 числами по следующему правилу. Каждый элемент равен сумме своих индексов. Б.Выведите созданный массив на экран. Как сделать?...... 0

@AngleIrik 0 / 0 / 0 Регистрация: 11.05.2009 Сообщений: 22
	13.05.2009, 05:49 [ТС]
	Не запускается..... Ошибку выдаёт( 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	13.05.2009, 06:14
	а что за ошибку выдает 0

@Bumerang 19 / 19 / 5 Регистрация: 05.12.2008 Сообщений: 157
	13.05.2009, 06:40
	Ага, все верно... Классный массив такой получаеться хD 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	13.05.2009, 06:45
	Bumerang, ты видишь какую нибудь ошибку в коде , по моему нет 0

@AngleIrik 0 / 0 / 0 Регистрация: 11.05.2009 Сообщений: 22
	13.05.2009, 14:41 [ТС]
	Он мне пишет: Illegal parameter: -Opentium3 Что это значит?... 0

@AngleIrik 0 / 0 / 0 Регистрация: 11.05.2009 Сообщений: 22
	13.05.2009, 14:54 [ТС]
	Теперь пишет: Compilation aborted И не открывается((( 0