| CARVIEW |
Select Language
HTTP/2 200
date: Sun, 12 Oct 2025 02:24:58 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=164e08fa7c6b06e3eb9fd7032bd88371ca5f104cc752c1f49aad032776afe05da%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22QC0v4eTH-sp0ZvDHwLQUGjjp_qbPDkGD%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d324dcaf048e4d-BLR
LABA3 - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program laba3;
- Uses
- Math, System.SysUtils;
- CONST
- EPS = 1E-6;
- Var
- A, B, X, Fa, Fb, Fx: Double;
- IsCorrect : Boolean;
- Begin
- Writeln('Программа уточняет корень уравнения методом половинного деления');
- Repeat
- IsCorrect := True;
- Write ('Введите значение A : ');
- Try
- Readln(A);
- Except
- IsCorrect := False;
- End;
- If (Not IsCorrect) Or (A < 0 ) Then
- Begin
- IsCorrect := False;
- Writeln('Ошибка');
- End;
- Until IsCorrect;
- Repeat
- IsCorrect := True;
- Write ('Введите значение B : ');
- Try
- Readln(B);
- Except
- IsCorrect := False;
- End;
- If (Not IsCorrect) Or (B < A ) Then
- Begin
- IsCorrect := False;
- Writeln('Ошибка');
- End;
- Until IsCorrect;
- Fa := Exp(A) - 10 * A;
- Fb := Exp(B) - 10 * B;
- If Fa * Fb > 0 Then
- Begin
- Writeln('На отрезке [A, B] нет корня или их четное количество.');
- Exit;
- End;
- Repeat
- X := (A + B) / 2;
- Fx := Exp(X) - 10 * X;
- If Fa * Fx < 0 Then
- Begin
- B := X;
- Fb := Fx;
- End
- Else
- Begin
- a := x;
- fa := fx;
- End;
- Until (Abs(B - A) < EPS) Or (Abs(Fx) < EPS);
- Writeln('Корень уравнения: ', X:0:6);
- Readln;
- End.
Advertisement
Add Comment
Please, Sign In to add comment
-
📝 Crypto Swap Glitch ✅ Working
JavaScript | 6 sec ago | 0.24 KB
-
⭐⭐⭐Make $15OO in 2O minutesV G⭐⭐
Java | 8 sec ago | 0.10 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ 7
JavaScript | 10 sec ago | 0.25 KB
-
📌 Swapzone +37% glitch ⭐ 6
JavaScript | 19 sec ago | 0.25 KB
-
⭐⭐⭐Instant Profit Method⭐⭐
Java | 21 sec ago | 0.10 KB
-
📝 Crypto Swap Glitch ✅ Working
JavaScript | 23 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ⭐⭐ C
JavaScript | 28 sec ago | 0.25 KB
-
⭐⭐⭐Crypto Accounts⭐⭐
Java | 33 sec ago | 0.10 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
