Pascal! 50 . задан массив размерностью 10х10 элементов. присвоить элементам массива значение функции при изменение аргумента от 5 с шагом 0.75. сформировать новый массив, добавив строку, элементы которой состоят из минимальных элементов каждого столбца. вывести на экран в формате 3 знака после запятой: исходный массив; полученный массив; искомые элементы (если они есть). предусмотреть возможность вывода на экран и в файл.
117
203
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1447 от 22.05.2017// внимание! если программа не работает, обновите версию! begin var f: real-> real: = x-> cos(0.75*power(x,0.25)-0.5*power(x,0.5)+0.25*power(x,0.75)); var a: =matrgen(10,10,(i,j)-> f(5+(10*i+j)*0.75)); writeln('*** исходный массив ***'); a.println(7,3); writeln(70*'-'); writeln('*** результирующий массив ***'); setlength(a,11,10); a.setrow(10,a.cols.select(x-> x.min).toarray); a.println(7,3); writealllines('output.txt',a.rows.select(x-> x.select(y-> format('{0,7: f3}',y)) .joinintostring(''); end. результат *** исходный массив *** 0.668 0.629 0.589 0.550 0.509 0.469 0.428 0.387 0.346 0.305 0.263 0.222 0.180 0.139 0.098 0.057 0.016 -0.024 -0.064 -0.104 -0.143 -0.182 -0.220 -0.258 -0.295 -0.331 -0.367 -0.402 -0.437 -0.470 -0.503 -0.535 -0.566 -0.596 -0.625 -0.653 -0.680 -0.706 -0.732 -0.756 -0.779 -0.801 -0.822 -0.841 -0.860 -0.878 -0.894 -0.909 -0.923 -0.936 -0.948 -0.958 -0.968 -0.976 -0.983 -0.988 -0.993 -0.996 -0.999 -1.000 -1.000 -0.999 -0.996 -0.993 -0.988 -0.983 -0.976 -0.968 -0.959 -0.949 -0.939 -0.927 -0.914 -0.900 -0.885 -0.869 -0.853 -0.835 -0.817 -0.798 -0.778 -0.757 -0.735 -0.713 -0.690 -0.667 -0.642 -0.617 -0.592 -0.566 -0.539 -0.512 -0.485 -0.457 -0.429 -0.400 -0.371 -0.341 -0.312 -0.282 *** результирующий массив *** 0.668 0.629 0.589 0.550 0.509 0.469 0.428 0.387 0.346 0.305 0.263 0.222 0.180 0.139 0.098 0.057 0.016 -0.024 -0.064 -0.104 -0.143 -0.182 -0.220 -0.258 -0.295 -0.331 -0.367 -0.402 -0.437 -0.470 -0.503 -0.535 -0.566 -0.596 -0.625 -0.653 -0.680 -0.706 -0.732 -0.756 -0.779 -0.801 -0.822 -0.841 -0.860 -0.878 -0.894 -0.909 -0.923 -0.936 -0.948 -0.958 -0.968 -0.976 -0.983 -0.988 -0.993 -0.996 -0.999 -1.000 -1.000 -0.999 -0.996 -0.993 -0.988 -0.983 -0.976 -0.968 -0.959 -0.949 -0.939 -0.927 -0.914 -0.900 -0.885 -0.869 -0.853 -0.835 -0.817 -0.798 -0.778 -0.757 -0.735 -0.713 -0.690 -0.667 -0.642 -0.617 -0.592 -0.566 -0.539 -0.512 -0.485 -0.457 -0.429 -0.400 -0.371 -0.341 -0.312 -0.282 -1.000 -0.999 -0.996 -0.993 -0.988 -0.988 -0.993 -0.996 -0.999 -1.000
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Georgy033512.06.2020 16:37
-
zufarovaindira27.11.2020 13:25
-
kirill13125a12.09.2020 17:51
-
gnkbdh02.01.2021 03:59
-
АНДРЕЙ2285555504.12.2022 09:10
-
prospekt88813.02.2022 13:11
-
Bata200328.05.2023 12:54
-
дашикмашикпык22.02.2022 22:55
-
dia49724zyf13.07.2022 16:55
-
Nauchniki17.03.2023 04:21
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.