Помогите, пожалуйста, составить программы

Irisa · 12.12.2010, 00:05

Помогите составить программы:
1)Для вычисления элементов матрицы y по известным элементам матрицы x:
y[i,j]=x[i] в степени sinx[j],если x[i]>x[j] и cosx[i]>0.5
y[i,j]=(cos e в степени -x[i]) +sinx[j], в противном случае
2)Написать программу, содержащую подпрограмму для расчета квадратного корня из суммы положительных элементов массива x[m,n]
Заранее спасибо!

MrSTEP · 12.12.2010, 00:21

Прежде чем создать тему, прочитать обязательно!

Vladimir_S · 12.12.2010, 09:25

Цитата:

Сообщение от MrSTEP

Прежде чем создать тему, прочитать обязательно!

А к этому добавлю, что если Вы думаете, что, создавая дубликаты своих тем, Вы повышаете вероятность ответа, то уверяю Вас - глубоко заблуждаетесь. На самом деле Вы повышаете лишь шансы нарваться на наказание в виде бана.
Дубликат удален.

P.S. Ладно уж, так и быть: первую я Вам нарисую, а уж вторую (она совсем элементарная) - извольте самостоятельно. Дело в том, что в первой задаче есть "изюминка": поскольку там предполагается возведение в степень по основанию x[i], то отсюда следует, что все элементы массива x должны быть СТРОГО ПОЛОЖИТЕЛЬНЫМИ, поскольку при программной реализации такого действия не обойти вычисления логарифма x[i], а логарифм не допускает ни отрицательных, ни нулевых аргументов. С учетом этого:

Код:

const
 n=5;
var
 i,j:integer;
 x:array[1..n] of real;
 y:array[1..n,1..n] of real;
begin
 Randomize;
 For i:=1 to n do
  begin
   x[i]:=Random+0.1;
   Write(x[i]:9:5);
  end;
 WriteLn;
 WriteLn;
 For i:=1 to n do
  begin
   For j:=1 to n do
    begin
     If (x[i]>x[j]) and (Cos(x[i])>0.5) then
      y[i,j]:=Exp(Sin(x[j])*Ln(x[i]))
     else
      y[i,j]:=Cos(Exp(-x[i]))+Sin(x[j]);
     Write(y[i,j]:9:5);
    end;
   WriteLn;
  end;
 readln;
end.

Irisa · 15.12.2010, 10:15

Спасибо!

12.12.2010, 00:05	#1 (permalink)
Irisa Новичок Регистрация: 11.12.2010 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите, пожалуйста, составить программы Помогите составить программы: 1)Для вычисления элементов матрицы y по известным элементам матрицы x: y[i,j]=x[i] в степени sinx[j],если x[i]>x[j] и cosx[i]>0.5 y[i,j]=(cos e в степени -x[i]) +sinx[j], в противном случае 2)Написать программу, содержащую подпрограмму для расчета квадратного корня из суммы положительных элементов массива x[m,n] Заранее спасибо!

12.12.2010, 00:21	#2 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	Прежде чем создать тему, прочитать обязательно!

15.12.2010, 10:15	#4 (permalink)
Irisa Новичок Регистрация: 11.12.2010 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070