Если задача заключается в том, что нужно поменять местами два столбца матрицы, то в приведенном фрагменте много лишних переменных. Программа: 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.
Какие программы предназначены для обработки текстовой информации? называют представление информации изображённой в виде нулей и единиц?двоичное кодированиедесятичное кодированиекомпьютерные величиныцифровая кодировкаКак выглядит число 116 в двоичном представлении:111100110011111110001110100Что такое файл?программа, хранящаяся на компьютере;минимальная единица измерения количества информации;это информация, хранящаяся в долговременной памяти как единое целое и обозначенная именемабзац текста, распечатанный на принтере.Сколько битов составляет 72 байт?72 битов576 битов9 битов8 битовОтметьте понятие среди следующих словосочетаний:Надо починить компьютерЖесткий дискВ нашем классе есть отличникиПонятие – это форма мышления, которая отражает совокупность существенных признаков объекта или нескольких объектов.Определите вид следующего суждения: «Все собаки лают» двоичное число 11011 в десятичную систему счисления4311027Расширение txt, rtf, doc имеют:исполняемые файлыграфические файлытекстовые файлызвуковые файлы Выделите общее понятие:ОзероМоскваВолгаПушкин
const n= 100 ;
var
a,b,x,r,c : real ;
i: integer;
begin
writeln ('введите x') ;
readln (x);
b:=1;
c:=-1;
r:=0 ;
for i:=0 to (n) do begin
a:= exp ((2*i)*ln(x));
if i = 0 then b:=1 else
b:= b*(2*i) ;
c:=c*(-1);
r:= a*c/b+r;
end;
writeln ('ответ : ',r);
end.
Объяснение: