Сжать массив, удалив из него все элементы, величина которых находится в интервале [a,b]

@сашк · Регистрация: 08.11.2009

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

используя процедуры и функции решить задачи А). В одномерном массиве, состоящем из n вещественных элементов вычислить:
1. номер минимального по модулю элемента;
2. сумму модулей элементов массива, расположенных после первого отрицательного элемента.
Сжать массив, удалив из него все элементы, величина которых находится в интервале [a,b]. Освободившиеся в конце массива элементы заполнить нулями.
В). Коэффициенты системы линейных уравнений заданы в виде прямоугольной матрицы. С помощью допустимых преобразований привести систему к треугольному виду.
Найти кол-во строк, среднее арифметическое элементов которых меньше заданной величины.

@Inadequate · 09.11.2009, 01:00

вот А:

Pascal

uses
  crt;
const
  max=10;
type
  MyArr=array[1..max]of integer;
var
  a:MyArr;
{процедура ввода массива}
procedure Writing(var a:MyArr);
var
  i:integer;
begin
  for i:=1 to max do
    a[i]:=random(8)-4;
end;
{процедура вывода массива}
procedure Print(a:MyArr; ch:char);
var
  i:integer;
begin
  writeln('Массив ',ch,':');
  write('[ ');
  for i:=1 to max do
    write(a[i],' ');
  writeln(']')
end;
{функция нахождения минимального по модулю}
function FindMin(a:MyArr):integer;
var
  i,min,tempi:integer;
begin
  min:=abs(a[1]);
  for i:=2 to max do
    if abs(a[i])<min then
    begin
      min:=abs(a[i]);
      tempi:=i
    end;
  Result:=tempi;
end;
{функция сумма модулей}
function Summ(a:MyArr):integer;
var
  i,res:integer;
  fl:boolean;
begin
  res:=0;
  fl:=false;
  for i:=1 to max do
  begin
    if fl then
      inc(res,abs(a[i]));
    if a[i]<0 then
      fl:=true
  end;
  Result:=res;
end;
{основная программа}
begin
  Writing(a);
  Print(a,'A');
  writeln('Минимальный среди модулей элемент a[',FindMin(a),']=',a[FindMin(a)]);
  writeln('Сумма модулей после первого отрицательного: ',Summ(a))
end.

@сашк · 09.11.2009, 08:10 **[ТС]**

огромное спасибо!!!!!!!!!!!!!а посчет матрицы? =)

@Inadequate · 09.11.2009, 12:56

Сообщение от сашк

а посчет матрицы? =)

сашк, вероятно вы имеете ввиду 2 задание, но честно вам скажу я не понял что там нужно сделать а именно я не понял в это месте

Сообщение от сашк

С помощью допустимых преобразований привести систему к треугольному виду.

поясните на примере каком нибудь и я вам помогу

@сашк · 09.11.2009, 20:19 **[ТС]**

там вообщем квадратную матрицу привести методом гаусса к треугольному виду, чтобы ниже главной диагонали были нули, с помощью процедуры и функции, вот решение этого задания без процедур и функций program MTRX;

Pascal

const size=30;
type matrix=array [1..size,1..size] of real;
type vector=array [1..size] of real;
var a: matrix;
    b,bsr: vector;
    k,i,j,n,m,d:integer;
    buf,X,sr,s:real;
begin
writeln ('Введите размерность квадратной матрицы:');
readln (n);
m:=n;
for i:=1 to n do begin
  writeln ('Строка ',i);
  for j:=1 to m do read (a[i,j]);
 end;
writeln ('Ввод столбца свободных членов:');
for i:=1 to n do begin
  write ('b[',i,']=');
  readln (b[i]);
end;
{*********************************}
write('Введите X:'); read(X);
s:=0;
for i:=1 to n do begin
    for j:=1 to n do
    s:=s+a[i,j];
    s:=s+b[i];
    bsr[i]:=s/(n+1);
    s:=0;
    end;
 d:=0;
 for i:=1 to n do if bsr[i]<X then d:=d+1;
 writeln('В матрице ',d,' строк(и), среднее арифметическое которых меньше чем ',X);
{*********************************}
writeln('Матрица, приведенная к треугольному виду: ');
begin
 for i:=1 to n-1 do
 for j:=i+1 to n do begin
  buf:=a[i,i]/a[j,i];
  for k:=1 to n do a[j,k]:=a[j,k]*buf-a[i,k];
  b[j]:=b[j]*buf-b[i];
 end;
end;
 for i:=1 to n do  begin
     for j:=1 to n do
     write(a[i,j]:3:4,' ');
     write(b[i]:3:4);
     writeln(' ');
     end;
 
 
end.

@Inadequate · 09.11.2009, 20:28

сашк, то есть я правильно понял что из

Код

надо сделать

Код

так?

@Puporev · 09.11.2009, 22:15

Inadequate, Нет не так, нужно преобразовать по методу Гаусса, это математика.

Добавлено через 14 минут
Вот, вроде так.

Pascal

uses crt;
var a:array[1..20,1..20] of real;
    n,i,j,k:integer;z,r,g:real;
begin
clrscr;
write('Введите количество уравнений n=');
readln(n);
writeln('Введите коэффициенты системы и свободные члены');
for i:=1 to n do
for j:=1 to n+1 do
read(A[i,j]);
readln;
clrscr;
writeln('Матрица коэффициентов и свободных членов');
for i:=1 to n do
  begin
    for j:=1 to n+1 do
    write(A[i,j]:6:2);
    writeln;
  end;
for k:=1 to n do
     begin
       for j:=k+1 to n+1 do
          begin
            r:=a[j,k]/a[k,k];
            for i:=k to n do
               begin
                 a[j,i]:=a[j,i]-r*a[k,i];
               end;
          end;
     end;
writeln('Треугольная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n+1 do
  write(a[i,j]:6:2);
  writeln;
 end;
readln;
end.

@сашк · 10.11.2009, 06:59 **[ТС]**

вот только надо с помощью процедур и функций это сделать=)

@Puporev · 10.11.2009, 07:06

Сообщение от сашк

В). Коэффициенты системы линейных уравнений заданы в виде прямоугольной матрицы. С помощью допустимых преобразований привести систему к треугольному виду.
Найти кол-во строк, среднее арифметическое элементов которых меньше заданной величины.

Где в задании процедуры и функции??? Делай сам.

@сашк · 10.11.2009, 07:32 **[ТС]**

я в самом начале еще написал, блин не знаю как с помощью процедур и функций=(помогите пожалуйста...

@Inadequate · 10.11.2009, 07:38

сашк, в данном случае поддерживаю Puporev'a, так как в условии этого не было... А то что вы где-то в середине темы написали "на клочке туалетной бумаги" это никому не надо. Когда люди заходят в тему, они смотрят и ориентируются на условие... Вы теперь предлагаете ему переписывать всё? Так что учитесь писать верно условие и учитесь уважать чужой труд...

@Puporev · 10.11.2009, 07:58

сашк, И вообще-то я код не тебе писал, а просто привел пример приведения к треугольному виду. А ты вряд ли вообще что тут поймешь, и если хорошо не проштудируешь тему со стороны математики и программирования, то все это бесполезно.

Pascal

uses crt;
type matr=array[1..20,1..20] of real;
procedure Vvod(var mt:matr;var x:byte);{создание матрицы}
var i,j:byte;
begin
write('Введите количество уравнений =');
readln(x);
writeln('Введите коэффициенты системы и свободные члены');
for i:=1 to x do
for j:=1 to x+1 do
read(mt[i,j]);
readln;
clrscr;
writeln('Матрица коэффициентов и свободных членов');
for i:=1 to x do
  begin
    for j:=1 to x+1 do
    write(mt[i,j]:6:2);
    writeln;
  end;
writeln;
end;
procedure Gauss(var mt:matr;x:byte);{приведение к треугольному виду}
var k,i,j:byte;
    r:real;
begin
for k:=1 to x do
     begin
       for j:=k+1 to x+1 do
          begin
            r:=mt[j,k]/mt[k,k];
            for i:=k to x do
               begin
                 mt[j,i]:=mt[j,i]-r*mt[k,i];
               end;
          end;
     end;
end;
function Kol(mt:matr;x:byte;z:real):byte;{подсчет строк}
var i,j,k:byte;
    sum:real;
begin
k:=0;
for i:=1 to x do
 begin
  sum:=0;
  for j:=1 to x+1 do
  sum:=sum+mt[i,j];
  if sum/(x+1)<z then k:=k+1;
 end;
Kol:=k;
end;
procedure Vyvod(var mt:matr;x:byte);{вывод результата}
var i,j:byte;
begin
writeln('Треугольная матрица:');
for i:=1 to x do
 begin
  for j:=1 to x+1 do
  write(mt[i,j]:6:2);
  writeln;
 end;
end;
var a:matr;
    n:byte;
    ch:real;
begin
clrscr;
Vvod(a,n);
Gauss(a,n);
Vyvod(a,n);
write('Введите число: ');
readln(ch);
writeln;
write('Количество строк сумма в которых меньше ',ch:0:2,' = ',Kol(a,n,ch));
readln
end.

@сашк · 10.11.2009, 09:25 **[ТС]**

БОЛЬШОЕ СПАСИБО=) ВОТ СЕЙЧАС ИЗУЧАЮ))))ТЯЖЕЛО ВСЕ ЭТО((((

@сашк · 10.11.2009, 20:08 **[ТС]**

скажите пожалуйста (обращаюсь к первому заданию) как сжать массив и дополнить нулями)) с помощь процедур и функций. допустим ввели массив состояший из N вещественных чисел , ну например [1,2,3,4,5] и потом вводим промежуток сжатия , допустим[1,3], программа должна выдать в этом случае такой массив(сжатый) [4,5,0,0,0] помогите пожалуйста......

@Inadequate · 10.11.2009, 21:12

сашк, да я посему то этого не увидел... извиняюсь...

Pascal

uses
  crt;
const
  max=10;
type
  MyArr=array[1..max]of integer;
var
  a:MyArr;
{процедура ввода массива}
procedure Writing(var a:MyArr);
var
  i:integer;
begin
  for i:=1 to max do
    a[i]:=random(8)-4;
end;
{процедура сжатия массива}
procedure Zip(var a:MyArr);
var
  i,j,k,m:integer;
begin
  writeln('С какого значения будет сжимать:');
  repeat
    readln(i);
    if (i<1)or(i>max) then
      writeln('Данное значение выходит за границы вашего массива! Попробуйте снова или введите 0 для выхода.');
    if i=0 then
      exit
  until
    (i>=1)and(i<=max);
  writeln('По какое значение будем сжимать:');
  repeat
    readln(j);
    if (j<1)or(j>max) then
      writeln('Данное значение выходит за границы вашего массива! Попробуйте снова или введите 0 для выхода.');
    if j=0 then
      exit
  until
    (j>=1)and(j<=max);
  for k:=1 to max-j do
  begin
    a[i+k-1]:=a[j+k];
    a[j+k]:=0;
  end;
  a[j]:=0
end;
{процедура вывода массива}
procedure Print(a:MyArr; ch:char);
var
  i:integer;
begin
  writeln('Массив ',ch,':');
  write('[ ');
  for i:=1 to max do
    write(a[i],' ');
  writeln(']')
end;
{функция нахождения минимального по модулю}
function FindMin(a:MyArr):integer;
var
  i,min,tempi:integer;
begin
  min:=abs(a[1]);
  for i:=2 to max do
    if abs(a[i])<min then
    begin
      min:=abs(a[i]);
      tempi:=i
    end;
  Result:=tempi;
end;
{функция сумма модулей}
function Summ(a:MyArr):integer;
var
  i,res:integer;
  fl:boolean;
begin
  res:=0;
  fl:=false;
  for i:=1 to max do
  begin
    if fl then
      inc(res,abs(a[i]));
    if a[i]<0 then
      fl:=true
  end;
  Result:=res;
end;
{основная программа}
begin
  Writing(a);
  Print(a,'A');
  writeln('Минимальный среди модулей элемент a[',FindMin(a),']=',a[FindMin(a)]);
  writeln('Сумма модулей после первого отрицательного: ',Summ(a));
  Zip(a);
  Print(a,'A')
end.

@RUxaker · 29.04.2010, 19:53

Вот для первой задачи, может кто расписать что каждый строчка в программе делает?

Pascal

uses
  crt;
const
  max=10;
type
  MyArr=array[1..max]of integer;
var
  a:MyArr;
{процедура ввода массива}
procedure Writing(var a:MyArr);
var
  i:integer;
begin
  for i:=1 to max do
    a[i]:=random(8)-4;
end;
{процедура сжатия массива}
procedure Zip(var a:MyArr);
var
  i,j,k,m:integer;
begin
  writeln('С какого значения будет сжимать:');
  repeat
    readln(i);
    if (i<1)or(i>max) then
      writeln('Данное значение выходит за границы вашего массива! Попробуйте снова или введите 0 для выхода.');
    if i=0 then
      exit
  until
    (i>=1)and(i<=max);
  writeln('По какое значение будем сжимать:');
  repeat
    readln(j);
    if (j<1)or(j>max) then
      writeln('Данное значение выходит за границы вашего массива! Попробуйте снова или введите 0 для выхода.');
    if j=0 then
      exit
  until
    (j>=1)and(j<=max);
  for k:=1 to max-j do
  begin
    a[i+k-1]:=a[j+k];
    a[j+k]:=0;
  end;
  a[j]:=0
end;
{процедура вывода массива}
procedure Print(a:MyArr; ch:char);
var
  i:integer;
begin
  writeln('Массив ',ch,':');
  write('[ ');
  for i:=1 to max do
    write(a[i],' ');
  writeln(']')
end;
{функция нахождения минимального по модулю}
function FindMin(a:MyArr):integer;
var
  i,min,tempi:integer;
begin
  min:=abs(a[1]);
  for i:=2 to max do
    if abs(a[i])<min then
    begin
      min:=abs(a[i]);
      tempi:=i
    end;
  Result:=tempi;
end;
{функция сумма модулей}
function Summ(a:MyArr):integer;
var
  i,res:integer;
  fl:boolean;
begin
  res:=0;
  fl:=false;
  for i:=1 to max do
  begin
    if fl then
      inc(res,abs(a[i]));
    if a[i]<0 then
      fl:=true
  end;
  Result:=res;
end;
{основная программа}
begin
  Writing(a);
  Print(a,'A');
  writeln('Мимальный среди модулей элемент a[',FindMin(a),']=',a[FindMin(a)]);
  writeln('Сумма модулей после первого отрицательного: ',Summ(a));
  Zip(a);
  Print(a,'A')
end.

@galaid · 10.11.2012, 12:15

Puporev, пару вопросов по коду:

Delphi

for k:=1 to x do
     begin
       for j:=k+1 to x+1 do
          begin
            r:=mt[j,k]/mt[k,k];
            for i:=k to x do
               begin
                 mt[j,i]:=mt[j,i]-r*mt[k,i];
               end;
          end;
     end;

На сколько я понимаю j - это строки, i - это столбцы? То есть наиболее вложенный цикл у вас по столбцам?

И еще, а что, если элемент mt[k,k] будет равен нулю? В программе явно это не учтено, и в результате будет ошибка деления на ноль. Скажите, если какой-либо элемент, стоящий на главной диагонали исходной матрицы, равен нулю, будет ли равен нулю ее определитель? Или здесь придется еще менять строки местами, чтобы подобная ошибка не возникала? Но и это тоже будет не самый верный вариант, так как в новой матрице (после перестановки строк) вновь может возникнуть ситуация, описанная выше.

@сашк 0 / 0 / 0 Регистрация: 08.11.2009 Сообщений: 111
	10.11.2009, 09:25 [ТС]	13
	БОЛЬШОЕ СПАСИБО=) ВОТ СЕЙЧАС ИЗУЧАЮ))))ТЯЖЕЛО ВСЕ ЭТО(((( 0

Новые блоги и статьи
UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форм быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Обновление сайта www.historian.by Reglage 13.01.2025 За неделю добавил два урока - по ассемблеру и Линуксу, а также дополнил один урок по ассемблеру. Мелкими шагами двигаюсь дальше к неизменной цели. По ИТ: 1) добавил урок "Структура программы на. . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .	Как создать нейросеть для генерации картинок на Python InfoMaster 12.01.2025 Генерация изображений с помощью искусственных нейронных сетей стала одним из наиболее захватывающих направлений в области компьютерного зрения и машинного обучения. В этой статье мы рассмотрим. . .	Создание нейросети для генерации текста на Python InfoMaster 12.01.2025 Нейросети, или искусственные нейронные сети, представляют собой модели машинного обучения, вдохновленные работой человеческого мозга. Они состоят из множества взаимосвязанных узлов, или "нейронов",. . .
Как создать нейросеть распознавания изображений на Python InfoMaster 12.01.2025 Введение в распознавание изображений с помощью нейросетей Распознавание изображений с помощью нейронных сетей стало одним из самых впечатляющих достижений в области искусственного интеллекта. Эта. . .	Основы искуственного интеллекта InfoMaster 12.01.2025 Искусственный интеллект (ИИ) представляет собой одну из наиболее динамично развивающихся областей современной науки и технологий. В широком смысле под искусственным интеллектом понимается способность. . .	Python и нейросети InfoMaster 12.01.2025 Искусственные нейронные сети стали неотъемлемой частью современных технологий, революционизировав множество областей - от медицинской диагностики до автономных транспортных средств. Python, благодаря. . .	Python в машинном обучении InfoMaster 12.01.2025 Python стал неотъемлемой частью современного машинного обучения, завоевав позицию ведущего языка программирования в этой области. Его популярность обусловлена несколькими ключевыми факторами, которые. . .	Создание UI на Python с TKinter InfoMaster 12.01.2025 TKinter — это одна из наиболее популярных библиотек для создания графических интерфейсов пользователей (GUI) в языке программирования Python. TKinter входит в стандартную библиотеку Python, что. . .	HTML5 в разработке мобильных приложений InfoMaster 12.01.2025 Введение: Обзор роли HTML5 в мобильной разработке В современном мире мобильных технологий HTML5 стал ключевым инструментом для разработки кроссплатформенных приложений. Эта технология произвела. . .

@сашк 0 / 0 / 0 Регистрация: 08.11.2009 Сообщений: 111
	09.11.2009, 08:10 [ТС]	3
	огромное спасибо!!!!!!!!!!!!!а посчет матрицы? =) 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	09.11.2009, 12:56	4
	Сообщение от сашк а посчет матрицы? =) сашк, вероятно вы имеете ввиду 2 задание, но честно вам скажу я не понял что там нужно сделать а именно я не понял в это месте Сообщение от сашк С помощью допустимых преобразований привести систему к треугольному виду. поясните на примере каком нибудь и я вам помогу 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	09.11.2009, 20:28	6
	сашк, то есть я правильно понял что из Код 1 2 3 4 5 3 2 1 3 4 3 2 4 5 4 3 надо сделать Код 1 2 3 4 0 3 2 1 0 0 3 2 0 0 0 3 так? 0

@сашк 0 / 0 / 0 Регистрация: 08.11.2009 Сообщений: 111
	10.11.2009, 06:59 [ТС]	8
	вот только надо с помощью процедур и функций это сделать=) 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	10.11.2009, 07:06	9
	Сообщение от сашк В). Коэффициенты системы линейных уравнений заданы в виде прямоугольной матрицы. С помощью допустимых преобразований привести систему к треугольному виду. Найти кол-во строк, среднее арифметическое элементов которых меньше заданной величины. Где в задании процедуры и функции??? Делай сам. 0

@сашк 0 / 0 / 0 Регистрация: 08.11.2009 Сообщений: 111
	10.11.2009, 07:32 [ТС]	10
	я в самом начале еще написал, блин не знаю как с помощью процедур и функций=(помогите пожалуйста... 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	10.11.2009, 07:38	11
	сашк, в данном случае поддерживаю Puporev'a, так как в условии этого не было... А то что вы где-то в середине темы написали "на клочке туалетной бумаги" это никому не надо. Когда люди заходят в тему, они смотрят и ориентируются на условие... Вы теперь предлагаете ему переписывать всё? Так что учитесь писать верно условие и учитесь уважать чужой труд... 0

@сашк 0 / 0 / 0 Регистрация: 08.11.2009 Сообщений: 111
	10.11.2009, 20:08 [ТС]	14
	скажите пожалуйста (обращаюсь к первому заданию) как сжать массив и дополнить нулями)) с помощь процедур и функций. допустим ввели массив состояший из N вещественных чисел , ну например [1,2,3,4,5] и потом вводим промежуток сжатия , допустим[1,3], программа должна выдать в этом случае такой массив(сжатый) [4,5,0,0,0] помогите пожалуйста...... 0

Сжать массив, удалив из него все элементы, величина которых находится в интервале [a,b]

Решение