Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
miss_
8 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 91
#1

замена в двумерном массиве. что не так? - Pascal ABC

14.12.2013, 17:40. Просмотров 193. Ответов 3
Метки нет (Все метки)

задание:
Дан двумерный массив a, размером (nm) и одномерный массив х(m). Последние 2 строки матрицы заменить массивами х.

Программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
const n=7; m=5;
var a:array [1..n,1..m]of real;
 x:array[1..m]of real;
i,j:integer;
begin
 for i:=1 to n do
 begin
 for j:=1 to m do
 begin
 a[i,j]:=random(100)-50;
 write(a[i,j],'  ');
 end;
 writeln;
 end;
  write('введите массив x:');
  read(x[j]);
for j:=1 to m do
begin
a[6,j]:=x[j];
a[7,j]:=x[j];
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j],' ');
end;
writeln;
end;
 end.
почему не заменяется???
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.12.2013, 17:40
Я подобрал для вас темы с готовыми решениями и ответами на вопрос замена в двумерном массиве. что не так? (Pascal ABC):

Замена элемента в двумерном массиве - Pascal
Нужно найти последнее положительное число в строке и в столбце массива, и заменить их на другое число

Индексы в двумерном массиве - Pascal
Дан двумерный мссив размерностью 10x10 сформированный случайным образом от -30 до 0. Найти индексы всех элементов равных -10.

Диагонали в двумерном массиве. - Pascal
Здравствуйте! Помогите пожалуйста написать программу которая бы считала сумму всех чисел находящихся между главной и побочной диагональю!...

программирование на двумерном массиве - Pascal
Составить программу на Паскале,которая в двумерном массиве случайных чисел элементы всех чётных строк делает ненулевыми

ошибка в двумерном массиве. - Pascal
неправильно считает промежуток в котором должны быть элементы матрицы. сосчитать количество элементов матрицы,принадлежащих промежутку...

Нахождение элемента в двумерном массиве - Pascal
Помогите решить задачу: Определить, есть ли в массиве Х(n,m) элемент равный L, где L – произвольное число. Ответ дать в виде: «Да, есть»...

3
Romalei
109 / 50 / 33
Регистрация: 17.09.2013
Сообщений: 296
14.12.2013, 18:52 #2
потому, что ты не ввёл массив x, ты ввёл последний элемент массива и всё
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
const n=7; m=5;
var a:array [1..n,1..m] of integer;
 x:array[1..m] of integer;
i,j:integer;
begin
 for i:=1 to n do
 begin
 for j:=1 to m do
 begin
 a[i,j]:=random(100)-50;
 write(a[i,j]:3,'  ');
 end;
 writeln;
 end;
  writeln('Введите массив x:');
  for i:=1 to m do readln(x[i]);
for j:=1 to m do
begin
a[6,j]:=x[j];
a[7,j]:=x[j];
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:3,' ');
end;
writeln;
end;
 end.
вот так нужно
1
miss_
8 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 91
14.12.2013, 19:05  [ТС] #3
блин,точно))спасибо большое!!
0
Romalei
109 / 50 / 33
Регистрация: 17.09.2013
Сообщений: 296
14.12.2013, 19:09 #4
Не за что)
повнимательней будь
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2013, 19:09
Привет! Вот еще темы с ответами:

Нахождение строк в двумерном массиве - Pascal
Доброго времени суток. Не выходит решить задачку, так как двумерные массивы плохо объясняли, прошу помощи) "составить программу...

Инверсия строк в двумерном массиве - Pascal
Помогите пожалуйста с инверсией строк в двумерном массиве. Все перепробовал, никак не получается. Заранее спасибо)

Поменять строки в двумерном массиве - Pascal ABC
дан двухмерный массив 8х7 заполненный случайными целыми числами. поменять местами средние строки с первой и последней

В двумерном массиве удалить столбец - Pascal ABC
В двумерном массиве удалить столбец, в котором находится минимальный элемент. Если такой элемент встречается несколько раз, то удалить все...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru