Помогите пожалуйста!! Завтра экзамен! Надо принести срочно!!! Для матрицы
10-11 класс
|
= i,j=1,...,4 найти произведение отрицательных элементов третьей строки
Код в приложении, хотя я в нем не на 100% уверен, звиняй.
const
n=4;
var
i,j:integer;
s:real;
a:array[1..n,1..n] of real;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=(cos(i)+sin(j))/sqrt(sqr(i)+sqr(j));
s:=1;
for j:=1 to n do
if a[3,j]<0 then s:=s*a[3,j];
writeln('Произведение отрицательных элементов третьей строки: ',s)
end.
Решение:
Произведение отрицательных элементов третьей строки: 7.34755467325983E-05
А это другой вариант, если я неправильно условие под корнем понял
const
n=4;
var
i,j:integer;
s:real;
a:array[1..n,1..n] of real;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=(cos(i)+sin(j))/sqrt(i+sqr(j));
s:=1;
for j:=1 to n do
if a[3,j]<0 then s:=s*a[3,j];
writeln('Произведение отрицательных элементов третьей строки: ',s)
end.
Результат прогона:
Произведение отрицательных элементов третьей строки: 0.000222420247776347
Третий вариант функции:
const
n=4;
var
i,j:integer;
s:real;
a:array[1..n,1..n] of real;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=(cos(i)+sin(j))/(sqrt(i)+sqr(j));
s:=1;
for j:=1 to n do
if a[3,j]<0 then s:=s*a[3,j];
writeln('Произведение отрицательных элементов третьей строки: ',s)
end.
Тестовое решение:
Произведение отрицательных элементов третьей строки: 5.96321227675767E-06
Комментарий удален
по-моему тоже первое
Комментарий удален
Комментарий удален
Другие вопросы из категории
1. прибавь 2
2. прибавь 3
3. умножь на 10
Выполняя первую из них, Калькулятор прибавляет к числу на экране 2, выполняя вторую – прибавляет 3, а выполняя третью – умножает его на 10.
Запишите порядок команд в программе получения из числа 1 числа 434, содержащей не более 6 команд, указывая лишь номера команд.
Б)00001010
В)00001011
Г)11111010
Читайте также
пользоваться. Добрые люди, пожалуйста, помогите :с Завтра сдавать :с
.................................................................................................................................
Возьмите прайс лист любого компьютерного магазина или скачайте в интернете;
Составьте конфигурацию компьютера для специалиста вашей профессии;
Подберите программное обеспечение, поясните, для каких целей будут служить данные программы;
Посчитайте общую стоимость данной конфигурации по прайс листу
....................................................................................................................................
Учусь я на бухгалтера-экономиста.
Давайте думать вместе) Допустим, "специалист вашей профессии" - это бухгалтер. Я беру прайс лист (т.е. лист, где написаны наименования и цены всех товаров). Что такое конфигурация? Как её составить по этому прайс листу, если там и так всего цена и наименования известны...?)))) ПО подобрать, допустим, это будет ;MS Office Excel; для создания таблиц, а для данной задачи для подсчёта общей стоимости конфигурации; и ;MS Office World; для писания отчётов. Что же такое эти "конфигурации"?)))
Помогите, пожалуйста) не пропускайте вопрос)
Нужно выдать число, которое отличается от других равных, при этом, используя ровно две операции сравнения. Я пытался решить эту задачу и через максимум-минимум, и через условия, но везде натыкался на грабли. Помогите, пожалуйста, разобраться. Заранее благодарю! Перед выставлением решения, рассмотрите следующие варианты: "2 4 4 4", "2 3 2 2 ", "-3 -3 -2 -3", "-4 -4 -4 -5".
Требуется написать Блокнот на делфи.
Написал всё, кроме кнопки "Сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном.
Помогите пожалуйста :)