Программа заполняет матрицы A(mxn) и В(jхк) вещественными числами с клавиатуры и выводит матрицы на экран в виде таблицы.

@quaresma228 · Регистрация: 23.04.2012

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

Уточнить у преподавателя размеры матриц A(mxn и В(jхк). Программа заполняет матрицы A(mxn) и В(jхк) вещественными числами с клавиатуры и выводит матрицы на экран в виде таблицы. Программа находит максимальный элемент матрицы B(jxk) и сравнивает с ним все элементы матрицы A(mxn). Заменить в матрице A(mxn) на 0 все те элементы, которые больше найденного максимума матрицы B(jxk). Вывести на экран матрицу A(mxn) после замены элементов.

@MayaNash · 25.04.2012, 16:33

Pascal

uses crt;
 
var a,b: array [1..50] of array [1..50] of real;
    ma,na,mb,nb,i,j: integer;
    maxB: real;
 
begin clrscr;
write('Razmeri matritsi A: '); readln(ma,na);
write('Razmeri matritsi B: '); readln(mb,nb);
writeln('Vvedite matritsu A:');
for i:=1 to ma do
 begin
 for j:=1 to na do read(a[i][j]);
 readln;
 end;
writeln('Vvedite matritsu B:');
for i:=1 to mb do
 begin
 for j:=1 to nb do read(b[i][j]);
 readln;
 end;
 
writeln('Matritsa A: ');
for i:=1 to ma do
 begin
 for j:=1 to na do write(a[i][j]:6:2);
 writeln;
 end;
writeln('Matritsa B: ');
for i:=1 to mb do
 begin
 for j:=1 to nb do write(b[i][j]:6:2);
 writeln;
 end;
 
maxB:=b[1][1];
for i:=1 to mb do
 for j:=1 to nb do
  if b[i][j] > maxB then maxB:=b[i][j];
 
for i:=1 to ma do
 for j:=1 to na do
  if a[i][j] > maxB then a[i][j]:=0;
 
writeln('Izmenennaia matritsa A:');
for i:=1 to ma do
 begin
 for j:=1 to na do write(a[i][j]:6:2);
 writeln;
 end;
readkey; end.

@quaresma228 · 25.04.2012, 16:46 **[ТС]**

Сообщение от Керра

Pascal

uses crt;
 
var a,b: array [1..50] of array [1..50] of real;
    ma,na,mb,nb,i,j: integer;
    maxB: real;
 
begin clrscr;
write('Razmeri matritsi A: '); readln(ma,na);
write('Razmeri matritsi B: '); readln(mb,nb);
writeln('Vvedite matritsu A:');
for i:=1 to ma do
 begin
 for j:=1 to na do read(a[i][j]);
 readln;
 end;
writeln('Vvedite matritsu B:');
for i:=1 to mb do
 begin
 for j:=1 to nb do read(b[i][j]);
 readln;
 end;
 
writeln('Matritsa A: ');
for i:=1 to ma do
 begin
 for j:=1 to na do write(a[i][j]:6:2);
 writeln;
 end;
writeln('Matritsa B: ');
for i:=1 to mb do
 begin
 for j:=1 to nb do write(b[i][j]:6:2);
 writeln;
 end;
 
maxB:=b[1][1];
for i:=1 to mb do
 for j:=1 to nb do
  if b[i][j] > maxB then maxB:=b[i][j];
 
for i:=1 to ma do
 for j:=1 to na do
  if a[i][j] > maxB then a[i][j]:=0;
 
writeln('Izmenennaia matritsa A:');
for i:=1 to ma do
 begin
 for j:=1 to na do write(a[i][j]:6:2);
 writeln;
 end;
readkey; end.

USES CRT НЕ НАДО!!!

@MayaNash · 25.04.2012, 18:46

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

readkey;

Ну можешь переписать без этого...

Сердиться незачем... Я вроде помогла... Могу не помогать больше...

Добавлено через 2 минуты
Благодарности ноль. Человек тебе бесплатно программу сделал, а ты еще какие-то неотносящиеся к алгоритму "советы" даешь. Это уже наглость.

@quaresma228 · 25.04.2012, 22:04 **[ТС]**

да ладно тебе не горечись ты так я просто уточнить хотел сорри если так грубо получилось не хотел тебя обидеть

@deizeshot · 25.04.2012, 22:08

Ром вот почему тебе сразу помогают? Нечестно же так.

@quaresma228 · 25.04.2012, 22:09 **[ТС]**

Денчик не понял?

@deizeshot · 25.04.2012, 22:14

Ну тебе так быстро помогают)) а я жду днями, ужс)
Откуда ты задачи то берешь все ?

@quaresma228 · 25.04.2012, 22:16 **[ТС]**

так задачник в группе в ВК притом я с ноута а ты с телефона))

@deizeshot · 25.04.2012, 22:17

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

я с ноута а ты с телефона

с телефона я был в колледже, сейчас же я тоже с ноута.
спасибо что напомнил про задачник, а то так бы и фоткал в колледже задачи эти на телефон)

@quaresma228 · 25.04.2012, 22:20 **[ТС]**

100 р с тебя

@deizeshot · 25.04.2012, 22:23

Нечего не знаю)))
p.s все, хватит флудить) это тебе не аська или контакт) хаха

@quaresma228 · 25.04.2012, 22:24 **[ТС]**

сool story ПНХ

@quaresma228 1 / 2 / 0 Регистрация: 23.04.2012 Сообщений: 42
	25.04.2012, 22:20 [ТС]	11
	100 р с тебя 0

@quaresma228 1 / 2 / 0 Регистрация: 23.04.2012 Сообщений: 42
	25.04.2012, 22:24 [ТС]	13
	сool story ПНХ 1

@MayaNash 1296 / 469 / 151 Регистрация: 24.08.2011 Сообщений: 2,249
	25.04.2012, 18:46	4
	Сообщение от quaresma228 readkey; Ну можешь переписать без этого... Сердиться незачем... Я вроде помогла... Могу не помогать больше... Добавлено через 2 минуты Благодарности ноль. Человек тебе бесплатно программу сделал, а ты еще какие-то неотносящиеся к алгоритму "советы" даешь. Это уже наглость. 1

@quaresma228 1 / 2 / 0 Регистрация: 23.04.2012 Сообщений: 42
	25.04.2012, 22:04 [ТС]	5
	да ладно тебе не горечись ты так я просто уточнить хотел сорри если так грубо получилось не хотел тебя обидеть 0

@deizeshot 1 / 1 / 0 Регистрация: 25.04.2012 Сообщений: 11
	25.04.2012, 22:08	6
	Ром вот почему тебе сразу помогают? Нечестно же так. 0

@quaresma228 1 / 2 / 0 Регистрация: 23.04.2012 Сообщений: 42
	25.04.2012, 22:09 [ТС]	7
	Денчик не понял? 0

@deizeshot 1 / 1 / 0 Регистрация: 25.04.2012 Сообщений: 11
	25.04.2012, 22:14	8
	Ну тебе так быстро помогают)) а я жду днями, ужс) Откуда ты задачи то берешь все ? 0

@quaresma228 1 / 2 / 0 Регистрация: 23.04.2012 Сообщений: 42
	25.04.2012, 22:16 [ТС]	9
	так задачник в группе в ВК притом я с ноута а ты с телефона)) 0

@deizeshot 1 / 1 / 0 Регистрация: 25.04.2012 Сообщений: 11
	25.04.2012, 22:17	10
	Сообщение от quaresma228 я с ноута а ты с телефона с телефона я был в колледже, сейчас же я тоже с ноута. спасибо что напомнил про задачник, а то так бы и фоткал в колледже задачи эти на телефон) 0

@deizeshot 1 / 1 / 0 Регистрация: 25.04.2012 Сообщений: 11
	25.04.2012, 22:23	12
	Нечего не знаю))) p.s все, хватит флудить) это тебе не аська или контакт) хаха 0

Опции темы