Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Анжела_
0 / 0 / 0
Регистрация: 25.11.2013
Сообщений: 7
1

Как сделать, чтобы вывод ответа был в виде матрицы?

14.12.2013, 10:08. Просмотров 483. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program B5;
Var B:array[1..10,1..10] of Real;
i,j,f,h:integer;
Begin
  Writeln('Введите размер матрицы B');
  Readln(f,h);
  Writeln;
   For i:=1 to f do begin
    For j:=1 to h do begin
   Write('Введите B[',i,j,']');
   Readln(B[i,j]);{ввод с клавиатуры элемента,стоящего в i-й строке и j-м столбце}
   If (i<j)and((i+j)mod 2=0)then
    B[i,j]:=-B[i,j];
   Write(B[i,j]:4);
   writeln
   end
  end
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.12.2013, 10:08
Ответы с готовыми решениями:

Как переделать код, чтобы вывод был в консоль?
Как переделать этот код , что бы вывод был в консоль? uses crt; var f,g:...

Рассортировать элементы матрицы так, чтобы минимальный был в правом верхнем углу
Массив MxN. Заполнен случайными числами. Нужно рассортировать так, что бы...

Набить рюкзак этими предметами так, чтобы их общий вес был не менее m и при этом был минимальным
Для решения одного задания мне нужно решить следующую подзадачу. Суть такова:...

Вывод массива в виде матрицы
Есть двумерный массив, заполненный 0 и 1. необходимо вывести этот массив в виде...

как написать чтобы радиус был положительный?
подскажите пожалуйста что здесь нужно ещё дописать??? мне надо чтобы при вводе...

1
Puporev
Модератор
54711 / 42119 / 29083
Регистрация: 18.05.2008
Сообщений: 99,407
14.12.2013, 12:25 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
32
33
Program B5;
Uses Crt;
Var B:array[1..10,1..10] of integer;
    i,j,f,h:integer;
Begin
Writeln('Введите размеры матрицы B');
Read(f,h);
For i:=1 to f do
For j:=1 to h do
 begin
  Write('Введите B[',i,j,']');
  Readln(B[i,j]);{ввод с клавиатуры элемента,стоящего в i-й строке и j-м столбце}
 end;\
clrscr;
writeln('Исходная матрица');
for i:=1 to f do
 begin
  for j:=1 to h do
  write(B[i,j]:4);
  writeln
 end;
writeln('Измененная матрица');
for i:=1 to f do
 begin
  for j:=1 to h do
   begin
    If (i<j)and((i+j)mod 2=0)then
    B[i,j]:=-B[i,j];
    Write(B[i,j]:4);
   end;
  writeln
 end
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2013, 12:25

Заполнение и вывод матрицы в определенном виде.
дана квадратная матрица. N*N. Написать программу заполнения матрицы по...

Переставить строки и столбцы матрицы таким образом, чтобы максимальный по модулю элемент был расположен на пересечении k-й строки и k-го столбца.
задана матрица размером M x N. Найти максимальный по модулю элемент...

Сделать в виде квадратной матрицы порядка n по заданному образцу
массив применять нельзя Сделать в виде квадратной матрицы порядка n по...


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

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

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