Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.93/41: Рейтинг темы: голосов - 41, средняя оценка - 4.93
0 / 0 / 0
Регистрация: 23.02.2011
Сообщений: 5
1

Решение уравнения

23.02.2011, 23:54. Показов 7956. Ответов 11
Метки нет (Все метки)

Помогите пожалуйста написать программку на Паскале. У самой не получается. Нужно решить это уравнение.
заранее огромное спасибо!!
Миниатюры
Решение уравнения  
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.02.2011, 23:54
Ответы с готовыми решениями:

Решение уравнения
Пожалуйста помогите написать уравнение в паскале. Очень нужно, так как начинаю осваивать...

Решение уравнения |x-A|+B=0
|x - A| + B = 0. A и B переменные два целых числа A и B (-2*10степень9 ≤ A, B ≤...

Решение уравнения
Составить программу для решения уравнения A*X^2=B Вроде не сложно....но не могу

Решение уравнения
пытаюсь написать ур-е, но не могу скомпелировать, помогите плз найти ошибку, выдаёт Error 89: ")"...

11
SuPeR XaKer
24.02.2011, 00:03
  #2

Не по теме:

уууу....клавиатура для блондинок...:D

0
0 / 0 / 0
Регистрация: 23.02.2011
Сообщений: 5
24.02.2011, 00:04  [ТС] 3
А то!!!!!! И мышка в тон!!
0
382 / 330 / 159
Регистрация: 06.12.2010
Сообщений: 894
24.02.2011, 00:07 4
X^Y = exp(ln(X) * Y)

Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
7
 Function Pow(Var chislo, stepen:Real):Real;
     Var per:real;
     Begin 
      Per:= Abs(chislo);
      If chislo < 0 Then Pow:= (-1)*Exp((stepen)*Ln(per))
       Else Pow:= Exp((stepen)*Ln(per));
     end;
1
0 / 0 / 0
Регистрация: 23.02.2011
Сообщений: 5
24.02.2011, 00:13  [ТС] 5
Спасибо. Буду пробовать. )))))))))))))
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
24.02.2011, 00:19 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Uses
 CRT;
Var
 z,x,y,l:real;
begin
repeat
 write('Ñóäû ââåäè x è y, и ïîñëå ââîäà íàæìè ñàìóþ áîëüøóþ êíîïêó (íó òâîþ ëþáèìóþ OK): ');
 readln(x,y);
 if (x=0) or (y=0) then
  write('Íó ïîâòîðè ââîä òî!');
until (x<>0) and (y<>0);
if y>0 then
 l:=(exp(ln(y)*(3*sin(2*x))))
else
 l:=(-exp(ln(abs(y))*(3*sin(2*x))));
z:=exp(ln(5)*(sin(x)/cos(x)))-exp(ln(3)*(cos(x)/sin(x)))*l-exp(ln(1/2)*(2/cos(x)));
write('À âîò îí è ðåçóëüòàò:',z,'. Ïîñìîòðåëà íàæìè ñâîþ ëþáèìóþ êíîïêó (OK).');
readkey
end.
от души...
1
0 / 0 / 0
Регистрация: 23.02.2011
Сообщений: 5
24.02.2011, 00:23  [ТС] 7
пасибо )))) понравилась моя клавиатура? Я на ней еще цветочки со стразиками хочу нарисовать )))
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
24.02.2011, 00:26 8
пасибо )))) понравилась моя клавиатура? Я на ней еще цветочки со стразиками хочу нарисовать )))

Не по теме:

Ну симпотичная такая...:D

1
0 / 0 / 0
Регистрация: 23.02.2011
Сообщений: 5
24.02.2011, 00:36  [ТС] 9
А можете еще немного помочь? Не могу найти ошибку в графике. Мне надо, что бы программка сама нарисовала график Sin и Cos. Но как я ни стараюсь, не получается.... Если можно, помогите пожалуйста
можно txt переименовать в pas, и будет видно, что я сделала
Вложения
Тип файла: txt grafik.txt (1.2 Кб, 62 просмотров)
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
24.02.2011, 07:50 10
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Поскольку графиков 2, чтобы не писать 2 раза одно и тоже, используем подпрограммы-процедуры.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
uses graph;
{интервал по Х}
const xn=-2*pi;
      xk=2*pi;
{опишем функциональный тип для использования в процедурах}
type func=function(x:real):real;
{$F+}
function  Sn(x:real):real;
begin
Sn:=sin(x);
end;
function  Cs(x:real):real;
begin
Cs:=cos(x);
end;
{$F-}
{построение осей координат}
procedure Osi(x0,y0,maxX,h,c,k:integer;mx,my:real);
var i:byte;
    s:string;
begin
setcolor(c);{цвет линий}
line(0,y0,maxX,y0);{оси}
line(maxX,y0,maxX-10,y0-3);
line(maxX,y0,maxX-10,y0+3);
line(x0,y0-h,x0,Y0+h);
line(x0,y0-h,x0-3,y0-h+10);
line(x0,y0-h,x0+3,y0-h+10);
for i:=1 to k+1 do{максимальное количество засечек в одну сторону}
  begin
    line(x0+round(i*mx),y0-3,x0+round(i*mx),Y0+3); {засечки на оси Х}
    line(x0-round(i*mx),y0-3,x0-round(i*mx),Y0+3);
    str(i,s);
    {подпись оси Х}
    str(i,s);
    outtextXY(x0+round(i*mx),y0+10,s);
    outtextXY(x0-round(i*mx),y0+10,'-'+s);
  end;
{засечки и подписи по оси У}
line(x0-3,y0-round(my),x0+3,y0-round(my));
line(x0-3,y0+round(my),x0+3,y0+round(my));
outtextXY(x0-15,y0-round(my),'1');
outtextXY(x0-20,y0+round(my),'-1');
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-20,y0-20,'X');
outtextXY(x0-20,y0-round(my)-10, 'Y');
end;
{построение графиков}
procedure Grafik(F:func;x0,y0,c:integer;mx,my:real;s:string);
var x,dx,y:real;
    px,py:integer;
begin
setcolor(c);
{график}
x:=xn;
dx:=0.001;
while x<=xk do
   begin
     x:=x+dx; {наращиваем х}
     px:=x0+round(x*mx); {изменение по оси Х}
     y:=F(x); {график в реальных координатах}
     py:=y0-round(y*my);{в экранных}
     putpixel(px,py,c);
   end;
outtextXY(100,y0-round(my)-40,s);
end;
var mx,my:real;
    x0,y0,i:integer;
    s:string;
begin
x0:=0;
initgraph(x0,y0,'');
x0:=getmaxX div 2;{центр экрана по горизонтали}
y0:=getmaxY div 4;{1/4 экрана по вертикали}
mx:=(getmaxX-40)/(xk-xn);{масштаб по Х}
my:=y0-40;{масштаб по Y}
i:=round(xk);{количество засечек по Х в одну сторону}
s:='Y=sinX';
Osi(x0,y0,getmaxX,y0,15,i,mx,my);
Grafik(Sn,x0,y0,12,mx,my,s);
y0:=getmaxY*3 div 4;{второй график 3/4 высоты экрана}
s:='Y=cosX';
Osi(x0,y0,getmaxX,y0 div 3,14,i,mx,my);
Grafik(Cs,x0,y0,13,mx,my,s);
readln
end.
0
Moldag4c
06.11.2013, 21:55 11
Пожалуйста помогите. Сумашедшая училка ,на втором уроке изучения ,дала задание племяннице написать на Паскале уравнение H=N*L/C)*(a (в квадрате)+b (в квадрате)/a*b, где L=0,5 ; С=10 (в квадрате) ; N=3*4; a=0*5. Дети уже роют себе могилы. Спасите
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
07.11.2013, 07:32 12
Напишите условие понятным языком, формулы лучше в редакторе формул (кнопка над окном сообщений).
Что у вас означает знак *, это вообще-то умножение, но тогда выражение N=3*4 смотрится не корректно, а а=0*5 вообще глупо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.11.2013, 07:32

Решение уравнения
Помогите срочно решить это уравнение, просьба расписать все от начала до конца, т.к. сам вообще...

Решение уравнения
вычислить y x=1 y -не вычисляется x&gt;0 y=2*x x&gt;-1 and x&lt;10 y=1-sin(x) x&lt;-1 y=exp(-x) Что-то...

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

Решение уравнения
Решить методом интерации уравнение вида x=f(x). Очередное приближение корня находится по формуле ...


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

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

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