Дан двумерный массив размером m на n. Найти сумму его положительных элементов

@Gooms · Регистрация: 25.12.2009

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

Собственно: дан двумерный массив размером m на n.Найти сумму его полож. элем.Из первых четырех строк сформ.4новых вектора и в каждом из них удалить элем. Принадлеж.Отрез.[а;в]

@STGE · 26.05.2010, 19:53

Конечно удобнее было бы сформировать матрицу векторов, но раз задание

сформ.4новых вектора

, то:

Pascal

 uses crt;
 const n=10;
 var  ms1,ms2,ms3,ms4: array[1..n] of integer; i,j,k1,k2,k3,k4: byte;
      mas: array[1..n,1..n] of integer; a,b: integer; sum: longint;
 begin
  randomize;
  clrscr;
  writeln('исходный массив: ');    {заполнение и вывод элементов массива}
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      mas[i,j]:=random(19);
      mas[i,j]:=mas[i,j]-9;
      write(mas[i,j]:3);
     end;
    writeln;
   end;
  writeln;
 
  for i:=1 to n do    {вычисление суммы и её вывод}
   for j:=1 to n do
    if mas[i,j]>0 then sum:=sum+mas[i,j];
  writeln('сумма положительных элементов матрицы = ',sum,^j);
 
  for j:=1 to n do    {формирование 4-х одномерных массивов}
   begin
    ms1[j]:=mas[1,j];
    ms2[j]:=mas[2,j];
    ms3[j]:=mas[3,j];
    ms4[j]:=mas[4,j];
   end;
 
  writeln('вектора, сформированные из элементов первых 4-х строк матрицы: ');  {вывод векторов}
  write('1) ');
  for j:=1 to n do
   write(ms1[j]:3);
  writeln;
  write('2) ');
  for j:=1 to n do
   write(ms2[j]:3);
  writeln;
  write('3) ');
  for j:=1 to n do
   write(ms3[j]:3);
  writeln;
  write('4) ');
  for j:=1 to n do
   write(ms4[j]:3);
  writeln(^j);
 
  write('введите длину отрезка [a;b]: ');
  readln(a,b);
 
  writeln;
  if a>b then   {в случае если a>b, то меняем их значение местами}
   begin
    a:=a+b;
    b:=a-b;
    b:=a-b;
   end;
 
  for j:=n downto 1 do   {проверка векторов на наличие элементов, попадающих в отрезок [a;b]}
   begin
    if (ms1[j]>=a) and (ms1[j]<=b) then
     begin
      inc(k1);
      for i:=j to n-k1 do
       ms1[i]:=ms1[i+1];
      ms1[n-k1+1]:=0;
     end;
    if (ms2[j]>=a) and (ms2[j]<=b) then
     begin
      inc(k2);
      for i:=j to n-k2 do
       ms2[i]:=ms2[i+1];
      ms2[n-k2+1]:=0;
     end;
    if (ms3[j]>=a) and (ms3[j]<=b) then
     begin
      inc(k3);
      for i:=j to n-k3 do
       ms3[i]:=ms3[i+1];
      ms3[n-k3+1]:=0;
     end;
    if (ms4[j]>=a) and (ms4[j]<=b) then
     begin
      inc(k4);
      for i:=j to n-k4 do
       ms4[i]:=ms4[i+1];
      ms4[n-k4+1]:=0;
     end;
   end;
 
  writeln('результирующие массивы: ');
  {вывод векторов (в случае, если все элементы вектора попадают в пределы отрезка, то массив не выводится)}
  write('1) ');
  for i:=1 to n-k1 do
   write(ms1[i]:3);
  writeln;
  write('2) ');
  for i:=1 to n-k2 do
   write(ms2[i]:3);
  writeln;
  write('3) ');
  for i:=1 to n-k3 do
   write(ms3[i]:3);
  writeln;
  write('4) ');
  for i:=1 to n-k4 do
   write(ms4[i]:3);
 end.

@Gooms · 26.05.2010, 21:06 **[ТС]**

STGE, большое спасибо) только единственное с чем еще не разобрался, в каком формате нужно ввести длинну отрезка а б

@STGE · 26.05.2010, 21:25

a,b - целые положительные/отрицательные значения. Чтобы получался ответ необходимо a и b задавать в пределах диапазона генерации чисел, т.е. если chislo=random(41)-20 - диапазон от -20 до 20, то значения a и b возьмите например как -15 и 6, или -3 и 9, или 2 и 18 и т.д.

@Gooms · 26.05.2010, 21:31 **[ТС]**

STGE, именно так и делал) у меня программа после ввода чисел (введите длину отрезка [a;b]: -15 6) и нажатия клавиши enter выбрасывает обратно в редактор, не доходя до вкладки "результирующие массивы: " видимо проблема в моей версии паскаля(7.0 eng)

@STGE · 26.05.2010, 22:07

Gooms, попробуйте скачать schoolpack (правда есть один минус - нельзя провернуть вот такую штуку: a:=random(19)-9; но есть альтернатива: a:=random(19); a:=a-9;; а в остальном - отличная штука). На windows 7 schoolpack работает в полноэкранном режиме.

@Gooms · 26.05.2010, 22:30 **[ТС]**

STGE, скачивал еще давно, перед прочтением вашего сообщения как раз в ней лазил, все отлично запустилось и работает) спасибо еще раз!

@STGE · 26.05.2010, 23:33

Gooms, извиняюсь, что долго не отвечал (возникли небольшие проблемы - я забывал закрыть файл, и поэтому результат не оправдывал ожидания):

Pascal

 uses crt;
 const n=10;
 var  ms1,ms2,ms3,ms4: array[1..n] of integer; i,j,k1,k2,k3,k4: byte;
      mas: array[1..n,1..n] of integer; a,b: integer; sum: longint; f: text;
 begin
  randomize;
  clrscr;
  writeln('исходный массив: ');    {заполнение и вывод элементов массива}
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      mas[i,j]:=random(19);
      mas[i,j]:=mas[i,j]-9;
      write(mas[i,j]:3);
     end;
    writeln;
   end;
  writeln;
 
  for i:=1 to n do    {вычисление суммы и её вывод}
   for j:=1 to n do
    if mas[i,j]>0 then sum:=sum+mas[i,j];
  writeln('сумма положительных элементов матрицы = ',sum,^j);
 
  for j:=1 to n do    {формирование 4-х одномерных массивов}
   begin
    ms1[j]:=mas[1,j];
    ms2[j]:=mas[2,j];
    ms3[j]:=mas[3,j];
    ms4[j]:=mas[4,j];
   end;
 
  writeln('вектора, сформированные из элементов первых 4-х строк матрицы: ');  {вывод векторов}
  write('1) ');
  for j:=1 to n do
   write(ms1[j]:3);
  writeln;
  write('2) ');
  for j:=1 to n do
   write(ms2[j]:3);
  writeln;
  write('3) ');
  for j:=1 to n do
   write(ms3[j]:3);
  writeln;
  write('4) ');
  for j:=1 to n do
   write(ms4[j]:3);
  writeln(^j);
 
  write('введите длину отрезка [a;b]: ');
  readln(a,b);
 
  writeln;
  if a>b then   {в случае если a>b, то меняем их значение местами}
   begin
    a:=a+b;
    b:=a-b;
    b:=a-b;
   end;
 
  for j:=n downto 1 do   {проверка векторов на наличие элементов, попадающих в отрезок [a;b]}
   begin
    if (ms1[j]>=a) and (ms1[j]<=b) then
     begin
      inc(k1);
      for i:=j to n-k1 do
       ms1[i]:=ms1[i+1];
      ms1[n-k1+1]:=0;
     end;
    if (ms2[j]>=a) and (ms2[j]<=b) then
     begin
      inc(k2);
      for i:=j to n-k2 do
       ms2[i]:=ms2[i+1];
      ms2[n-k2+1]:=0;
     end;
    if (ms3[j]>=a) and (ms3[j]<=b) then
     begin
      inc(k3);
      for i:=j to n-k3 do
       ms3[i]:=ms3[i+1];
      ms3[n-k3+1]:=0;
     end;
    if (ms4[j]>=a) and (ms4[j]<=b) then
     begin
      inc(k4);
      for i:=j to n-k4 do
       ms4[i]:=ms4[i+1];
      ms4[n-k4+1]:=0;
     end;
   end;
 
  writeln('результирующие массивы: ');
  {вывод векторов (в случае, если все элементы вектора попадают в пределы отрезка, то массив не выводится)}
  write('1) ');
  for i:=1 to n-k1 do
   write(ms1[i]:3);
  writeln;
  write('2) ');
  for i:=1 to n-k2 do
   write(ms2[i]:3);
  writeln;
  write('3) ');
  for i:=1 to n-k3 do
   write(ms3[i]:3);
  writeln;
  write('4) ');
  for i:=1 to n-k4 do
   write(ms4[i]:3);
 
  assign(f,'file.doc');   {запись в файл}
  rewrite(f);
  writeln(f,'ishodn. massiv: ');
  for i:=1 to n do
   begin
    for j:=1 to n do
     write(f,mas[i,j]:3);
    writeln(f);
   end;
  writeln(f,'summa = ',sum);
  writeln(f,'result. massivi: ');
  for i:=1 to n-k1 do
   write(f,ms1[i]:3);
  writeln(f);
  for i:=1 to n-k2 do
   write(f,ms2[i]:3);
  writeln(f);
  for i:=1 to n-k3 do
   write(f,ms3[i]:3);
  writeln(f);
  for i:=1 to n-k4 do
   write(f,ms4[i]:3);
  writeln(f);
  close(f);
 end.

@Gooms · 27.05.2010, 10:57 **[ТС]**

STGE, ну вот, все отлично) теперь программа может еще и записывать полученные результаты в файл!) спасибо еще раз!

@sergo2023 · 14.04.2019, 15:25

а есть эта же программа в интерфейсе?

@Cyborg Drone · 15.04.2019, 18:00

sergo2023, вопрос бессмысленный. В каком ещё, к лешему, интерфейсе? Или Вы имеете ввиду оконное приложение? Тогда вопрос глупый, поскольку очевидно, что нет.

Если Вам нужно оконное приложение, то на чём именно оно Вам нужно? Delphi, Lazarus (FPC), Pascal ABC, Pascal ABC.NET?

@sergo2023 · 15.04.2019, 18:29

Извините но я могу составить программу, и с интерфейсом не разбираюсь, но мне нужна просто имена такая же программа с интерфейсом

@Cyborg Drone · 15.04.2019, 18:48

Вы не ответили на вопрос. Выясните, что именно Вам нужно.

@Cyborg Drone Модератор 9591 / 4910 / 3245 Регистрация: 17.08.2012 Сообщений: 15,346
	15.04.2019, 18:00	11
	sergo2023, вопрос бессмысленный. В каком ещё, к лешему, интерфейсе? Или Вы имеете ввиду оконное приложение? Тогда вопрос глупый, поскольку очевидно, что нет. Если Вам нужно оконное приложение, то на чём именно оно Вам нужно? Delphi, Lazarus (FPC), Pascal ABC, Pascal ABC.NET? 0

@Cyborg Drone Модератор 9591 / 4910 / 3245 Регистрация: 17.08.2012 Сообщений: 15,346
	15.04.2019, 18:48	13
	Вы не ответили на вопрос. Выясните, что именно Вам нужно. 0

@Gooms 3 / 3 / 0 Регистрация: 25.12.2009 Сообщений: 22
		1
	Дан двумерный массив размером m на n. Найти сумму его положительных элементов 26.05.2010, 17:49. Показов 1786. Ответов 12 Метки нет (Все метки) Собственно: дан двумерный массив размером m на n.Найти сумму его полож. элем.Из первых четырех строк сформ.4новых вектора и в каждом из них удалить элем. Принадлеж.Отрез.[а;в] 0

@Gooms 3 / 3 / 0 Регистрация: 25.12.2009 Сообщений: 22
	26.05.2010, 21:06 [ТС]	3
	STGE, большое спасибо) только единственное с чем еще не разобрался, в каком формате нужно ввести длинну отрезка а б 0

@STGE 773 / 578 / 324 Регистрация: 17.06.2009 Сообщений: 1,188
	26.05.2010, 21:25	4
	a,b - целые положительные/отрицательные значения. Чтобы получался ответ необходимо a и b задавать в пределах диапазона генерации чисел, т.е. если chislo=random(41)-20 - диапазон от -20 до 20, то значения a и b возьмите например как -15 и 6, или -3 и 9, или 2 и 18 и т.д. 0

@Gooms 3 / 3 / 0 Регистрация: 25.12.2009 Сообщений: 22
	26.05.2010, 21:31 [ТС]	5
	STGE, именно так и делал) у меня программа после ввода чисел (введите длину отрезка [a;b]: -15 6) и нажатия клавиши enter выбрасывает обратно в редактор, не доходя до вкладки "результирующие массивы: " видимо проблема в моей версии паскаля(7.0 eng) 0

@STGE 773 / 578 / 324 Регистрация: 17.06.2009 Сообщений: 1,188
	26.05.2010, 22:07	6
	Gooms, попробуйте скачать schoolpack (правда есть один минус - нельзя провернуть вот такую штуку: a:=random(19)-9; но есть альтернатива: a:=random(19); a:=a-9;; а в остальном - отличная штука). На windows 7 schoolpack работает в полноэкранном режиме. 1

@Gooms 3 / 3 / 0 Регистрация: 25.12.2009 Сообщений: 22
	26.05.2010, 22:30 [ТС]	7
	STGE, скачивал еще давно, перед прочтением вашего сообщения как раз в ней лазил, все отлично запустилось и работает) спасибо еще раз! 0

@Gooms 3 / 3 / 0 Регистрация: 25.12.2009 Сообщений: 22
	27.05.2010, 10:57 [ТС]	9
	STGE, ну вот, все отлично) теперь программа может еще и записывать полученные результаты в файл!) спасибо еще раз! 0

@sergo2023 0 / 0 / 0 Регистрация: 14.04.2019 Сообщений: 7
	14.04.2019, 15:25	10
	а есть эта же программа в интерфейсе? 0

@sergo2023 0 / 0 / 0 Регистрация: 14.04.2019 Сообщений: 7
	15.04.2019, 18:29	12
	Извините но я могу составить программу, и с интерфейсом не разбираюсь, но мне нужна просто имена такая же программа с интерфейсом 0

Опции темы