Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
0 / 0 / 0
Регистрация: 21.01.2010
Сообщений: 6
1

система уравнений

27.01.2010, 18:00. Просмотров 2328. Ответов 2
Метки нет (Все метки)


очень прошу помочь решить вот эту систему уравнений 2.doc
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.01.2010, 18:00
Ответы с готовыми решениями:

система уравнений
решить систему уравнений на pascal

Система уравнений
составить программу на языке программирования Паскаль, предназначенные для вычисления значения...

Система уравнений
Задание на картинке. http://i018.***********/1109/7f/2d5ac3a75ff2.png

система сложных уравнений
условие задачи и мой вариант ответа далее. пытался сделать прогу, вот только, что-то в ней не так

__________________
Помогаю в написании студенческих работ здесь.
2
80 / 80 / 36
Регистрация: 20.11.2009
Сообщений: 326
27.01.2010, 18:50 2
Лучший ответ Сообщение было отмечено MordaUnt как решение

Решение

не уверен на 100%, но попробуйте так...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program syst;
const
a=1.8;
b=-0.5;
c=3.5;
var
x,f:real;
BEGIN
x:=1;
f:=0;
while x<1.2 do
begin f:=a*x+b*sqr(x)+c; write('x = ', x:8:3);  writeln(' y  = ', f:8:3);
x:=x+0.25; end;
 
f:=a/x+sqrt(x+1); write('x = ', x:8:3);  writeln('y  = ', f:8:3); x:=x+0.25;
 
while x<2 do
 begin f:=(a+b*x)/(sqrt(x+1)); write('x = ', x:8:3);  writeln(' y  = ', f:8:3);
x:=x+0.25; end;
                              END.
1
Модератор
62965 / 46969 / 32371
Регистрация: 18.05.2008
Сообщений: 113,838
27.01.2010, 22:23 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var a,b,x,c,y:real;
begin
clrscr;
a:=0.8;
b:=-0.5;
c:=3.5;
x:=1;
while x<=2 do
 begin
  if x<1.2 then y:=a*x+b*x*x+c
  else if x=1.2  then y:=a/x+sqrt(x+1)
  else y:=(a+b*x)/sqrt(x+1);
  writeln('x=',x:0:2,'  y=',y:7:4);
  x:=x+0.25;
 end;
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.01.2010, 22:23

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Система нелинейных уравнений
Помогите, пожалуйста, написать программу.Решить систему нелинейных уравнений F(X) = 0, где F =...

Система уравнений. Pascal
Здравствуйте, уважаемые форумчане! Помогите пожалуйста кто-нибудь написать код программы на языке...

Система линейных уравнений
Даны действительные числа x, y, z. Выяснить, верно ли, что (I-модуль)Ia1b2- ф2и2І&gt;=0.001и если...

система линейных уравнений
необходимо решить систему линейных уравнений: 3х1+4х2+2х3=8 2х1-х2-3х3=-4 х1+5х2+х3=0 Метод...


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

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

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