Написати програму розв’язку завдання двома – із використанням оператора циклу while (перший іб) та за до
оператора циклу do…while (другий іб). Перевірити правильність
виконання програми, використавши контрольні приклади.
Обчислити
cos(x)
з точністю
е
(обчислення продовжується до
моменту, поки абсолютне значення чергового члену ряду не буде
меншим
е
). Підрахувати кількість членів ряду, які необхідні
просумувати для досягнення заданої точності.
261
272
Ответы на вопрос:
Если заключается в том, что нужно поменять местами два столбца матрицы, то в фрагменте много лишних переменных. программа: program jhk; const n=5; var d: array[1..n,1..n]of real; i,j: integer; a: real; begin writeln('исходный массив: '); for i: =1 to n do begin for j: =1 to n do begin d[i,j]: =sin(i+j); write(d[i,j]: 6: 2); end; writeln; end; for i: =1 to n do begin a: =d[i,1]; d[i,1]: =d[i,n]; d[i,n]: =a; end; writeln('измененный массив: '); for i: =1 to n do begin for j: =1 to n do write(d[i,j]: 6: 2); writeln; end; end. результат: исходный массив: 0.91 0.14 -0.76 -0.96 -0.28 0.14 -0.76 -0.96 -0.28 0.66 -0.76 -0.96 -0.28 0.66 0.99 -0.96 -0.28 0.66 0.99 0.41 -0.28 0.66 0.99 0.41 -0.54 измененный массив: -0.28 0.14 -0.76 -0.96 0.91 0.66 -0.76 -0.96 -0.28 0.14 0.99 -0.96 -0.28 0.66 -0.76 0.41 -0.28 0.66 0.99 -0.96 -0.54 0.66 0.99 0.41 -0.28
Популярно: Информатика
-
vitashe13518.02.2022 21:27
-
ArinaYmnaya16.03.2020 09:24
-
brankjs09.11.2022 19:31
-
mrdruss25.05.2023 06:55
-
TAMADA12312310.02.2023 04:30
-
ep097791272109.04.2021 16:50
-
misik111.10.2022 12:57
-
bananxhik13.08.2021 22:39
-
yannashipunova20.01.2023 23:07
-
ruslan42618.02.2023 10:30