Какое из перечисленных слов может быть зашифровано в виде кода #[email protected]$%#& ? 1) монитор; 2) плоттер; 3) принтер; 4) колонки.
169
422
Ответы на вопрос:
// 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.
Популярно: Информатика
-
werwedsgfdg30.09.2020 08:45
-
пстрвчлвяряу24.05.2020 10:52
-
Alekskarpov13.06.2023 12:39
-
mashanlo200616.02.2022 04:47
-
Стерва1234522.08.2022 03:57
-
масяня15510.06.2021 03:19
-
Лісанна12.03.2020 18:35
-
annatimofeeva424.07.2020 22:50
-
mrfotuna1415.03.2021 09:33
-
titomeister21.08.2020 03:14