Питон 1) Вычислите значение в градусах угла, синус которого равен 0.5. У вас должно получиться 30 или очень близкое к этому значение. Если нет, исправьте ошибки. 2) Вычислите √2 двумя : с функции и с операции возведения в степень.
microsoft office system - пакет программ, который включает в себя:
- microsoft office access - программа базой данных. предлагает непринуждённость использования и расширенные способности экспорта, импорта, и работы с картотеками данных xml.
- microsoft
office excel - программа крупноформатной таблицы. включает поддержку xml плюс особенности, которые облегчают анализ и разделение информации.
- microsoft office frontpage - программа и создания вэб-сайта, которая включает в себя различные особенности и средства , для
проектирования вэб-сайтов.
- microsoft office infopath – программа для сбора информации и дальнейшего её .
- microsoft office onenote - программа и создания заметок, которая позволяет организовать, создать и использовать заметки на ноутбуке или настольном
компьютере.
- microsoft office outlook – персональный информационный менеджер плюс коммуникационная программа, обеспечивает интегрированное календарями, электронной почтой, контактами и другой персональной или общей информацией.
- microsoft office powerpoint
– программа для создания графических презентаций.
- microsoft office project позволяет организациям упорядочить предпринимательские инициативы, ресурсы и проекты для улучшения результата.
- microsoft office publisher - бизнес издатель плюс программа для
маркетинговых материалов, которая облегчает производство, проектирование и издательство профессиональных информационных продуктов.
- microsoft office visio - техническая программа схематического отображения информации, которая может преобразовать идеи и обычные деловые данные в
диаграммы.
Const N = 3; M = 4; Var A:array[1..N,1..M] of integer; i,j,iMax:integer; S,Max:real; Begin Randomize; WriteLn('Исходная матрица:'); For i:= 1 to N do Begin For j:= 1 to M do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' '); End; WriteLn End; Max:=0; iMax:=1; For j:= 1 to M do Max:=Max+A[1,j]; For i:= 2 to N do Begin For j:= 1 to M do S:=S+A[i,j]; if S>Max then Begin Max:=S; iMax:=i; End; End; Write('Искомая строка:'); For j:= 1 to M do Write(' ',A[iMax,j]) End.
microsoft office system - пакет программ, который включает в себя:
- microsoft office access - программа базой данных. предлагает непринуждённость использования и расширенные способности экспорта, импорта, и работы с картотеками данных xml.
- microsoft
office excel - программа крупноформатной таблицы. включает поддержку xml плюс особенности, которые облегчают анализ и разделение информации.
- microsoft office frontpage - программа и создания вэб-сайта, которая включает в себя различные особенности и средства , для
проектирования вэб-сайтов.
- microsoft office infopath – программа для сбора информации и дальнейшего её .
- microsoft office onenote - программа и создания заметок, которая позволяет организовать, создать и использовать заметки на ноутбуке или настольном
компьютере.
- microsoft office outlook – персональный информационный менеджер плюс коммуникационная программа, обеспечивает интегрированное календарями, электронной почтой, контактами и другой персональной или общей информацией.
- microsoft office powerpoint
– программа для создания графических презентаций.
- microsoft office project позволяет организациям упорядочить предпринимательские инициативы, ресурсы и проекты для улучшения результата.
- microsoft office publisher - бизнес издатель плюс программа для
маркетинговых материалов, которая облегчает производство, проектирование и издательство профессиональных информационных продуктов.
- microsoft office visio - техническая программа схематического отображения информации, которая может преобразовать идеи и обычные деловые данные в
диаграммы.
- microsoft word office - текстовой процессор
N = 3;
M = 4;
Var
A:array[1..N,1..M] of integer;
i,j,iMax:integer;
S,Max:real;
Begin
Randomize;
WriteLn('Исходная матрица:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ');
End;
WriteLn
End;
Max:=0;
iMax:=1;
For j:= 1 to M do
Max:=Max+A[1,j];
For i:= 2 to N do
Begin
For j:= 1 to M do
S:=S+A[i,j];
if S>Max then
Begin
Max:=S;
iMax:=i;
End;
End;
Write('Искомая строка:');
For j:= 1 to M do
Write(' ',A[iMax,j])
End.
Пример работы программы:
Исходная матрица:
8 0 -7 -1
-2 -10 -4 -10
5 -1 10 -6
Искомая строка: 8 0 -7 -1