Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Relike
6 / 6 / 2
Регистрация: 24.04.2013
Сообщений: 260
1

Дополнить код выводом исходной матрицы

24.05.2013, 20:27. Просмотров 271. Ответов 1
Метки нет (Все метки)

Помогите вот эту программку сделать так чтобы она мне выводила на экран, вводимые с клавиатуры элементы в виде матрицы ДО ответа
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
Program proga6;
const
 n=3;
 m=4;
var
 max,i,j,r:integer;
 a:array[1..n,1..m] of integer;
begin
 for i:=1 to n do
 for j:=1 to m do
begin
 write('a(',i,',',j,')=');
 readln(a[i,j]);
end;
begin
 for i:=1 to n do
begin
 max:=A[i,1];
 for j:=1 to m do
begin
 if A[i,j]>max then
 max:=A[i,j];
end;
 r:=r+max;
end;
end;
 writeln(' summa=',r);
 readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.05.2013, 20:27
Ответы с готовыми решениями:

Дополнить код!
Не разбираюсь как i:=2; while i<=n do begin for j:=1 to m do a:=x;...

Скобки: дополнить код
Что не хватает,подскажите пожалуйста? program pr1; var s:string; ...

Создать новую матрицу так, чтобы строки новой матрицы являлись столбцами исходной матрицы
Создать новую матрицу так,чтобы строки новой матрицы являлись столбцами...

Составить процедуру для получения из квадратной матрицы A(n,n), n<=6 матрицы B(n,n-1) путем вычеркивания элементов главной диагонали исходной
Помогите пожалуйста составить процедуру для Паскаля: Составить процедуру для...

Код программы (График функции). (Нужно дополнить)
Здравствуйте. Нужна небольшая помощь по коду программы. Имеется вот такой код:...

1
Relike
6 / 6 / 2
Регистрация: 24.04.2013
Сообщений: 260
25.05.2013, 22:29  [ТС] 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
31
program zadacha6;
const n=5;
var a: array[1..n,1..n] of integer; i,j: byte; max: integer; b: array[1..n,1..n] of real;
begin
randomize;
writeln('ishodniy massiv: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(19)-9;
write(a[i,j]:3);
end;
writeln;
end;
max:=abs(a[1,1]);
for i:=1 to n do
for j:=1 to n do
if abs(a[i,j])>max then max:=abs(a[i,j]);
writeln('resultat: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
b[i,j]:=a[i,j]/max;
write(b[i,j]:4:0);
end;
writeln(^j);
end;
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2013, 22:29

Дополнить рабочий код: в матрице найти строку с наибольшей суммой элементов
Создайте Паскаль программу для решения задачи Дана прямоугольная матрица C....

Дополнить рабочий код: найти количество чётных элементов массива до числа, равного заданному
Найти количество четных элементов одномерного массива целых до первого...

Нужна помощь с выводом матрицы...
Нужно из двух массивов по 5 элементов сформировать матрицу ( 5 столбцов и 2...


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

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

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