Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Igor1337
0 / 0 / 0
Регистрация: 27.10.2013
Сообщений: 18
#1

Решить систему уравнений - Turbo Pascal

27.10.2013, 18:47. Просмотров 500. Ответов 1
Метки нет (Все метки)

не знаю как решить, помогите пожалуйста.
0
Миниатюры
Решить систему уравнений  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.10.2013, 18:47
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Решить систему уравнений (Turbo Pascal):

Решить систему уравнений
sinx2+4 ,x>=2 cos5x ,x<2

Решить систему уравнений
x2+5, x>5 y= x2+5x+2, x=5 x+4, x<5

Решить систему уравнений
помогите пожалуйста решить решить систему уравнений...

Решить систему уравнений
a1*x+b1*y+c1=0 a2*x+b2*y+c2=0 (это система) нужно решить уравнение и...

Решить систему уравнений
сабж. и блок-схемку замутить если вариант. спасибо

Решить систему уравнений
Уравнения в pascal.ipg

1
Samhain
690 / 565 / 413
Регистрация: 31.03.2013
Сообщений: 1,029
28.10.2013, 08:57 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Igor1337, уточните интервал для х. А то не понятно то ли х меняется от 0 до 72, то ли от 0.7 до 2, то ли Вы просто не написали. В общем так как деление на 0 маловероятно, то у меня взят интервал [0.7, 2).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const a=1.65;
var x,q:real;
begin
  x:=0.7;
  repeat
    if x<1.4 then q:=pi*x*x-7/(x*x)
    else if x=1.4 then q:=a*x*x*x+7*sqrt(x)
         else q:=ln(x+7*sqrt(abs(x+a)));
    writeln('Q(',x:0:1,') = ',q:0:4);
    x:=x+0.1;
  until x>=2;
  readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2013, 08:57
Привет! Вот еще темы с решениями:

Решить систему уравнений
Здравствуйте! вот такая маленькая система, которую я не могу решить до конца!...

Решить систему нелинейных уравнений
Здравствуйте! Необходимо решить систему нел. уравнений sin(x+1)-y=1,2...

Решить систему дифференциальных уравнений
Помогите,плиз.Мне нужно решить систему дифференциальных уравнений с начальными...

Решить систему линейных уравнений
Решить систему линейных уравнений и вот собственно система не пойму как...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru