М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
SvetaX16X
SvetaX16X
13.05.2022 10:14 •  Информатика

Условия задачи: Заполните двумерный массив отрицательными и положительными целыми случайными числами. Изменить массив путем деления всех его элементов на максимальный по модулю элемент.

мой код:
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace WindowsFormsApp5
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

private void Form1_Load_1(object sender, EventArgs e)
{

}

private void button3_Click_3(object sender, EventArgs e)
{

double[,] A;
int size1 = int.Parse(textBox6.Text);
int size2 = int.Parse(textBox7.Text);
int a = int.Parse(textBox8.Text);
int b = int.Parse(textBox9.Text);
A = new double[size1, size2];
Class2.Create_Mas(a, b, ref A);
Class2.Print_Mas(dataGridView2, A);

}
class Class2
{
public static void Create_Mas(int a, int b, ref double[,] x)
{
Random rnd = new Random();
for (int i = 0; i max)
{
max = (x[i, j]);
}
}
}
for (int i = 0; i < x.GetLength(0); i++)
{
for (int j = 0; j < x.GetLength(1); j++)
{
x[i, j] = x[i, j] / max;
}
}
}

}

private void button4_Click(object sender, EventArgs e)
{

double[,] A;
int size1 = int.Parse(textBox6.Text);
int size2 = int.Parse(textBox7.Text);
int a = int.Parse(textBox8.Text);
int b = int.Parse(textBox9.Text);
A = new double [size1, size2];
Class2.Create_Mas(a, b, ref A);
Class2.Pri(A);
Class2.Print_Mas(dataGridView3, A);

}
}
}
алгоритм кода вроде правильный но работает почему-то неправильно .Например на картинке в исходном массиве(который справа) максимальный элемент по модулю -9,и в измененном массиве(который слева) должно записаться число равное -9/-9,тоесть 1 а записывается 0,9
Подскажите где ошибка, она скорее всего в методе Pri


Условия задачи: Заполните двумерный массив отрицательными и положительными целыми случайными числами

👇
Ответ:

яяя н зннкто создал ети вопроси

4,6(34 оценок)
Открыть все ответы
Ответ:
vjfduxhufsnks46
vjfduxhufsnks46
13.05.2022
Program gt2;
var i,j,s:integer;
a:array[1..4,1..4]of integer;
begin
randomize;
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=random(7)+12;
for i:=1 to 4 do
begin
s:=0;
for j:=1 to 4 do
s:=s+a[j,i];
writeln(s);
end;
end.

program gt3;
var i,j,s:integer;
a:array[1..7,1..7]of integer;
begin
randomize;
for i:=1 to 7 do
for j:=1 to 7 do
a[i,j]:=random(7)+12;
for i:=1 to 7 do
begin
s:=0;
for j:=1 to 7 do
if(a[j,i]<14)then s:=s+1;
writeln(s);
end;
end.

program gt4;
var i,j,p:integer;
a:array[1..3,1..3]of integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
read(a[i,j]);
for i:=1 to 3 do
begin
p:=a[i,1];
a[i,1]:=a[i,2];
a[i,2]:=p;
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(a[i,j],' ');
end;
writeln;
end;
end.
4,7(50 оценок)
Ответ:
msganny
msganny
13.05.2022
VAR
i, j: Integer;
a: Array [1..10] of Array [1..10] of Integer;
BEGIN
for i := 1 to 10 do
for j := 1 to 10 do a[i][j] := j*j;

for i := 1 to 10 do begin
for j := 1 to 10 do Write(a[i][j],' '); Writeln; end;
END.

VAR
i, j: Integer;
a: Array [0..4] of Array [1..4] of Integer;
BEGIN
for i := 1 to 4 do
for j := 1 to 4 do begin
a[i][j] := Random(7)+12;
a[0][j] := a[0][j] + a[i][j];
end;

for i := 1 to 4 do begin
for j := 1 to 4 do Write(a[i][j],' '); Writeln; end;

Writeln;
for i := 1 to 4 do Write(a[0][i],' ');
END.

VAR
i, j: Integer;
a: Array [0..7] of Array [1..7] of Integer;
BEGIN
for i := 1 to 7 do
for j := 1 to 7 do begin
a[i][j] := Random(7)+12;
if (a[i][j] < 14) then Inc(a[0][j]);
end;

for i := 1 to 7 do begin
for j := 1 to 7 do Write(a[i][j],' '); Writeln; end;

Writeln;
for i := 1 to 7 do Write(a[0][i],' ');
END.

VAR
i, j: Integer;
a: Array [0..3] of Array [1..3] of Integer;
BEGIN
for i := 1 to 3 do
for j := 1 to 3 do Read(a[i][j]);

for i := 1 to 3 do begin
a[0][i] := a[1][i]; a[1][i] := a[2][i];
a[2][i] := a[0][i]; end;

for i := 1 to 3 do begin
for j := 1 to 3 do Write(a[i][j],' '); Writeln; end;
END.

VAR
i, j, m: Integer;
a: Array [1..5] of Array [1..5] of Integer;
BEGIN
for i := 1 to 5 do
for j := 1 to 5 do begin
a[i][j] := Random(5)+1;
end;

for i := 1 to 5 do begin
for j := 1 to 5 do Write(a[i][j],' '); Writeln; end;

m := 6;
for i := 1 to 5 do
for j := 1 to 5 do
if (i > j)and(m > a[i][j]) then m := a[i][j];

Writeln(a[i][j]);
END.
4,8(79 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ