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

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

👇
Ответ:
светульь
светульь
10.11.2020
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
  var m:=ReadInteger('Число строк=');
  var n:=ReadInteger('Число стролбцов=');
  var a:=MatrixRandom(m,n,-99,99);
  var imax:=-1; var jmax:=0;
  var imin:=0; var jmin:=0;
  var min:=100; var max:=-100; // больше большего, меньше меньшего
  for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do begin
      Write(a[i,j]:4);
      if (a[i,j]>0) and (a[i,j] mod 2=0) then begin
        if a[i,j]<min then begin imin:=i; jmin:=j; min:=a[i,j] end;
        if a[i,j]>max then begin imax:=i; jmax:=j; max:=a[i,j] end
        end
      end;
    Writeln
    end;
  if imax<>-1 then begin
    Writeln('Минимальный четный положительный элемент A[',
        imin+1,',',jmin+1,']=',a[imin,jmin]);
    Writeln('Максимальный четный положительный элемент A[',
      imax+1,',',jmax+1,']=',a[imax,jmax])
    end
  else
    Writeln('В массиве нет положительных четных элементов')
end.

Тестовое решение
Число строк= 5
Число стролбцов= 8
 -59  98  55 -92 -98  68   5 -82
  63  49  41   7  51  22  55  -4
 -78  42 -35 -60  -6 -15 -34 -28
 -14  55 -44  22  74 -50 -98  85
  50   2  65  39 -47 -59  -7 -87
Минимальный четный положительный элемент A[5,2]=2
Максимальный четный положительный элемент A[1,2]=98
4,5(30 оценок)
Открыть все ответы
Ответ:
danilp18
danilp18
10.11.2020

сәлем, қалам қас, а Бакуго не на видеть Мидория Изуку. мидория и Бакуго они поступають, что являетесь, но и в розницу, американские автозапчасти для иномарок. , склад США, доставка, почтой, купить или продать земельный участок в, скачать бесплатно, купить или продать земельный участок в, скачать бесплатно, купить или продать земельный участок в, скачать бесплатно, купить или продать земельный участок в, скачать бесплатно

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

4,8(64 оценок)
Ответ:
11SOS11
11SOS11
10.11.2020

import codecs #for UTF-8

def file_existence(filename): #check if source file exists

   try:

       f = open(filename, "r")

       f.close()

       print("File '" + filename + "' is opened\n")

       return 0

   except IOError:

       print("File '" + filename + "' is not accessible")

       return 1

def file_size(filename): #lines in source file

   with open(filename) as f:

       for i, l in enumerate(f):

           pass

       return i + 1

 

def main():

   fread_name = "source_data.txt"

   fwrite_name = "result.txt"

   if(file_existence(fread_name)==0):

       F1 = open(fread_name,"r")

       #F2 = open(fwrite_name, "w")

       F2=codecs.open(fwrite_name, "w", "utf-8-sig")

       size=file_size(fread_name)

       source_data=F1.readlines()

           

       x = [float(num.split('=')[1]) for num in source_data] #numbers from string only

       y=[0]*size #empty array for data

       for i in range (0,size):

           if x[i]<-5:

               y[i] = ((((80*x[i]**7)+(61*x[i]**2)+17)**5)+16*x[i]**7)/((((32*x[i]**3)+x[i]**3)**6)-((36*x[i]**2)+54)**4)

           elif x[i]>=-5 and x[i]<1:

               y[i] = (((((24*x[i]**7)+(44*x[i]**2)+93)**5)**(1/2))-(37*x[i]**4) )/( (((31*x[i]**5)+(x[i]**2))**5) + (((26*x[i]**2)-52))**5)

           elif x[i]>=1:

               y[i]=((((45*x[i]**8)+(33*x[i]**2)+12)**4)-(47*x[i]**5))/((((36*x[i]**8)-(x[i]**3))**4)+((91*x[i]-29)**3)**(1/2))

               

       

       for i in range (0,size):

           print(str(i+1)+") "+"X =  "+str(x[i]))

       print("\n")

       for i in range (0,size):

           print("If X="+ str(x[i])+ " Y= " + str(y[i]))

       for i in range (0,size):

           #F2.write("If X="+ str(x[i])+ " Y= " + str(y[i])+"\n")

           F2.write("При x = "+str(x[i])+" значение y = "+str(y[i])+"\n")

       F1.close()

       F2.close()

       print("\nAll data saved in " + fwrite_name)

       input("\nPress any key to exit...")

   else:

       decision=input("\nCreate a stock file 'source_data.txt' for this program with X from -15 to 7? (Y/N): ")

       if decision=="Y" or decision=="y":

           f = open(fread_name, "w")

           for i in range (-15,7):

               f.write('x='+str(i)+"\n")

           f.write('x='+str(i+1)) #without last empty line

           f.close()

           file_existence(fread_name)

           main()

       elif decision=="N" or decision=="n":

           input("Press any key to exit...")

       else:

           print("Wrong input\n")

           main()

if __name__== "__main__":

   main()

Объяснение:

В случае отсутствия source_data.txt программа спрашивает создать ли файл со значениями Х от -15 до 7, т.е. в принципе можно смело запускать программу без файла source_data.txt + программа сама все посчитает и создаст файл result.txt в этой же папке, где и сама программа. Единственное, чего не удалось реализовать - это округление до 3 знаков. Формулы проверены в wolframalpha, но 100% не могу сказать, что все верно, желательно проверить.

P.S. код не самый суперский, но работает почти как надо  :)


Дана функция, вычисляющая значение переменной y в зависимости от переменной x. дан интервал целых чи
Дана функция, вычисляющая значение переменной y в зависимости от переменной x. дан интервал целых чи
Дана функция, вычисляющая значение переменной y в зависимости от переменной x. дан интервал целых чи
4,6(1 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ