Pascal.abc! 50 . задан массив размерностью (10х10) элементов. присвоить элементам массива значение функции при изменении аргумента от 5 с шагом 0.75. сформировать одномерный массив, в который переписать все элементы, расположенные на главной и побочной диагоналях. пересортировать полученный массив по возрастанию методом "пузырька". вывести на экран в формате 3 знака после запятой: исходный массив; полученный массив; искомые элементы (если они есть). предусмотреть возможность вывода на экран и в файл.

135

353

Посмотреть ответы 2

Ответы на вопрос:

logvlad9

Информатика

4,4(34 оценок)

// pascalabc.net 3.2, сборка 1449 от 23.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*'-'); var fo: =openwrite('output.txt'); writeln(fo,'*** исходный массив ***'); for var i: =0 to 9 do begin for var j: =0 to 9 do write(fo,a[i,j]: 7: 3); writeln(fo) end; writeln(fo,70*'-'); write('сформированный массив: '); write(fo,'сформированный массив: '); var b: =a.elementswithindexes.where(x-> (x[0]=x[1]) or (x[0]=9-x[1])) .select(x-> x[2]).toarray; b.foreach(x-> write(x: 7: 3)); writeln; b.foreach(x-> write(fo,x: 7: 3)); writeln(fo); write('отсортированный массив: '); write(fo,'отсортированный массив: '); // пузырьковая сортировка for var i: =0 to 18 do for var j: =0 to 18-i do if b[j]> b[j+1] then swap(b[j],b[j+1]); b.foreach(x-> write(x: 7: 3)); writeln; b.foreach(x-> write(fo,x: 7: 3)); writeln(fo); fo.close 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.305 0.222 -0.064 -0.220 -0.402 -0.596 -0.680 -0.860 -0.878 -0.983 -0.988 -0.993 -0.976 -0.914 -0.835 -0.757 -0.592 -0.539 -0.282 отсортированный массив: -0.993 -0.988 -0.983 -0.976 -0.914 -0.878 -0.860 -0.835 -0.757 -0.680 -0.596 -0.592 -0.539 -0.402 -0.282 -0.220 -0.064 0.222 0.305 0.668 вариант без пузырьковой сортировки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*'-'); var fo: =openwrite('output.txt'); writeln(fo,'*** исходный массив ***'); for var i: =0 to 9 do begin for var j: =0 to 9 do write(fo,a[i,j]: 7: 3); writeln(fo) end; writeln(fo,70*'-'); write('сформированный массив: '); write(fo,'сформированный массив: '); var b: =a.elementswithindexes.where(x-> (x[0]=x[1]) or (x[0]=9-x[1])) .select(x-> x[2]).toarray; b.foreach(x-> write(x: 7: 3)); writeln; b.foreach(x-> write(fo,x: 7: 3)); writeln(fo); write('отсортированный массив: '); write(fo,'отсортированный массив: '); b.sort; // вместо пузырьковой сортировки b.foreach(x-> write(x: 7: 3)); writeln; b.foreach(x-> write(fo,x: 7: 3)); writeln(fo); fo.close end.

MaxDeep

Информатика

4,4(61 оценок)

Var a: array[1..2*100] of integer; n,x,i,j,k : integer; begin readln(n,x); for i: =1 to n do read(a[i]); k: =0; for i: =n downto 1 do if a[i] mod 2=0 then begin k: =k+1; for j: =n+k downto i+1 do a[j]: =a[j-1]; a[i]: =x; end; for i: =1 to n+k do write(a[i],' '); end. пример: 6 -6 11 1 13 -6 -6 3 11 1 13 -6 -6 -6 -6 3

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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