Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.01.2014, 19:35   #1
artem 18
Новичок
Джуниор
 
Регистрация: 13.01.2014
Сообщений: 2
По умолчанию вычислить значение выражения, заданного системой уравнений

помогите пожалуйсто решить задачу а то уже мозги кипят !!!!!!!!!!!!!!!!!!!!!!!!!1.jpg
artem 18 вне форума Ответить с цитированием
Старый 14.01.2014, 06:11   #2
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

А они есть?

Что наработано на данный момент?
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Старый 23.01.2014, 19:58   #3
artem 18
Новичок
Джуниор
 
Регистрация: 13.01.2014
Сообщений: 2
По умолчанию z почимуто = 0 и не совпадает не с одним условием ?

Код:
var
  P : array[1..3,1..3] of real;
  i, j,k : integer;
  Sb2, c, a:real; {матрица, a}

  x : array[1..5] of real;
  b,Sb1: real;
  {число b}

  z,y :real;

begin
 a:=0; Sb2:=0;
 writeln ('Введите c');
 readln (c);
   writeln('ВВЕДИТЕ Pij ');
  for i:= 1 to 3 do
    for j:= 1 to 3 do
      read(P[i,j]);
  for i:= 1 to 3 do
  begin
    for j:= 1to 3 do
      write(P[i,j], ' ');
  writeln;
    for j:= 1to 3 do
      a:=a+(power(P[i,j],2)+P[i,j]);
   end;
     begin
      for i:= 1 to 3 do
       begin
        for j:= 1to 3 do
        Sb2:= Sb2 + (power((P[i,j]-c),2));
       end;
       writeln ('a =',a:7:4);
       writeln('Sb2=',Sb2:7:4);
       {конец суммы а}
      end;
      
begin

Sb1:=0;

writeln('ВВЕДИТЕ x ');
for i:= 1 to 5 do
read(x[i]);
   for i:= 1 to 5 do
   begin
    for i:= 1 to 5 do
    write(x[i], ' ');
    writeln;
    end;
     begin
      for i:= 1 to 5 do
        begin
        Sb1:= Sb1+(c*power(sin(x[i]),2)+sqrt(c*power(x[i],2)));
        end;
     end;
    writeln('Sb1=',Sb1:6:4);
    b:=1.085+0.82*Sb1+Sb2;
    writeln ('b=',b:6:4);

end;
    if a+b<=0.82 then
     begin
       z:=ln(power(c,2))- exp(a+b)+(ln(abs(c+a*b)))/ln(10);
       writeln ('Условие 1');
     end
    else if a-b>=b+0.85 then
       begin
       z:= sin(a*c-power(b*sqr(c),1/3)-exp(-(c*b)))/ cos(a*c-power(b*sqr(c),1/3)-exp(-(c*b)));
       writeln ('Условие 2');
       end
       else writeln ('не принадлежит условиям');
    writeln ('z=',z:7:4);
    
  if 2*a>=b-0.8 then
    begin
      y:=ln(abs((z)/(a*z+sqr(b)))) - exp(2*sqr(z)+b);
      writeln ('Условие 1');
    end
  else if 2*b<=0 then
    begin
      y:= sin(a*z-sqr(b)-power(b,3)*power(z,1/5))/cos(a*z-sqr(b)-power(b,3)*power(z,1/5));
      writeln ('Условие 2');
    end;
    
end.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 23.01.2014 в 23:34.
artem 18 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана строка, арифметические выражения вида A x B. Вычислить значение выражения Un1q Паскаль, Turbo Pascal, PascalABC.NET 4 09.12.2013 14:47
Найти значение заданного выражения C++ ne_znaika C++ Builder 0 10.07.2013 14:49
Вычислить значение выражения P91 Помощь студентам 0 08.12.2012 08:53
вычислить значение выражения (на C++) laychan Помощь студентам 2 05.03.2012 11:32
Вывести значение логического выражения, заданного в виде строки Алиночка Климова Паскаль, Turbo Pascal, PascalABC.NET 13 22.06.2011 09:07