Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Пример № 4. S:= S + z *(sin(exp(b* ln(x))) /exp(a*ln(2)));
|
|
Repeat
S: = S + z *(sin(exp(b* ln(x))) /exp(a*ln(2)));
a: = а + 2;
b: = b+0.2;
z: = – z;
until (a> 32);
Writeln(" Сумма =", S: 6: 4);
End.
Пример № 3
Постановка задачи. Затабулировать функцию двух переменных z (x, y) внутри квадрата xmax ≥ x ≥ xmin и ymax ≥ у ≥ ymin и области существования функции z. Шаги табуляции Δ х = Δ у. Результаты вывести в виде таблицы. В точках, где функция не определена вывести 4 символа «*».
z (x, y) xy Δ х = Δ y
[0; 1] [-1; 1] 0, 1
Program zadanie3;
uses crt;
var Z, x, Y: real;
N: integer;
Begin
clrscr; {очистка экрана}
WRITELN(‘ | N | X | Y | Z |’);
N: =0; { Номер точки }
X: =0; { начальное значение Х }
WHILE (X< =1) DO { Цикл по Х }
BEGIN
Y: =-1; { начальное значение Y }
WHILE (Y< =1) DO { Цикл по Y }
BEGIN
N: =N+1;
IF ((3-SQR(X)+2*Y)> 0) THEN { Область существования Z }
BEGIN
Z: =SQRT(3-SQR(X)+2*Y);
WRITELN(‘ ‘, N: 2, ’ ’, X: 5: 2, ’ ‘, Y: 5: 2, ‘ ‘, Z: 5: 2);
writeln(‘_____________________________‘);
END
ELSE
begin
WRITELN(‘*****”);
writeln(‘_____________________________‘);
end;
Y: =Y+0.1;
END;
X: =X+0.1;
END;
end.
Пример № 4
Составить программу, которая вычисляет сумму ряда с заданной точностью. Результаты вывести в окно сообщений.
| Значе ние х | Точность e |
| 1, 7 | 10–3 |
Program zadanie4;
var s, x, eps, SL: real;
f, n: integer;
Begin
x: =1.7; { Значение Х }
S: =0; { Значение суммы ряда }
n: =0; { номер слагаемого }
f: =1; { Значение F – факториал }
eps: =1E-3;; { Значение заданной точности }
writeln('n x s');
Repeat
SL: = exp((2*n+1)*ln(x))/F; { вычисление ТЕКУЩЕГО СЛАГАЕМОГО }
s: =s+sl; { вычисление Суммы ряда }
n: =n+1;
writeln(' ', n: 2, ' ', sl: 5: 2, ' ', s: 5: 2, ' ', eps);
f: =f*(2*n+1)*(2*n); { вычисление F – факториала }
until (sL< eps);
end.
|