Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.12.2020, 16:42   #1
AntoxaS1
Новичок
Джуниор
 
Регистрация: 24.12.2020
Сообщений: 5
По умолчанию составить код и блок схему.

в паскале составить программы решения в которых пользователь вводит число итераций (решений) М, программы проводят введенное число итераций (решений), и выводят в качестве результата полученную точность решения Е.
var
a,b,E,F,F1,x,n,P:real;
begin
write('Введите границы a, b и точность E: ');
readln(a,b,E);
n:=0;
F1:=ln(a)-a+1.8;
x:=(a+b)/2;
F:=ln(x)-x+1.8;
n:=n+1;
while abs(F)>E do
begin
x:=(a+b)/2;
F:=ln(x)-x+1.8;
n:=n+1;
if F1*F<0 then
b:=x
else
begin
a:=x;
F1:=F;
end;
end;
P:=ln(x)-x+1.8;
if round(P)=0 then
writeln('Проверка: ln(x)-x+1.8=',round(P));
write('x=',(a+b)/2:1:15,' n=',n);
end.
AntoxaS1 вне форума Ответить с цитированием
Старый 25.12.2020, 16:43   #2
AntoxaS1
Новичок
Джуниор
 
Регистрация: 24.12.2020
Сообщений: 5
По умолчанию составить код и блок схему.

в паскале и маткаде составить программы решения в которых пользователь вводит число итераций (решений) М, программы проводят введенное число итераций (решений), и выводят в качестве результата полученную точность решения Е.
var
a,b,x1,x,n,E:real;
begin
write('Введите значение точности E: ');
readln(E);
a:=2;
b:=3;
n:=0;
x:=(a+b)/2;
x1:=x-((ln(x)-x+1.8)*(1/(1/abs(x)-1)));
n:=n+1;
while abs(x1-x)>E do
begin
x:=x1;
x1:=x-((ln(x)-x+1.8)*(1/((1/abs(x)-1))));
n:=n+1;
end;
write('x=',x1:1:15,' n=',n);
end.
AntoxaS1 вне форума Ответить с цитированием
Старый 25.12.2020, 16:45   #3
AntoxaS1
Новичок
Джуниор
 
Регистрация: 24.12.2020
Сообщений: 5
По умолчанию составить код и блок схему.

в паскале и маткаде составить программы решения методами итераций и Зейделя в которых пользователь вводит число итераций (решений) М, программы проводят введенное число итераций (решений), и выводят в качестве результата полученную точность решения Е, в каждом методе выполнить сравнение полученных результатов с решением по методу Гаусса.
const
N=3;
M=3;
var
i,j,k,l,h:integer;
f:text;
A,A1:array[1..N,1..M] of real;
B,B1:array[1..N] of real;
F1,Q,S:real;
begin
writeln('Исходныеданные:');
assign(f,'C:\Users\user\Desktop\2 лаб\help.txt'); //связкапеременнойсфайлом
reset(f); //открытие файла для чтения //rewrite(f) - открытие файла для записи
For i:=1 to N do
begin
For j:=1 to M do
begin
read(f,A[i,j]);
A1[i,j]:=A[i,j];
end;
readln(f,B[i]);
B1[i]:=B[i];
end;
close(f); //закрытиефайла
For i:=1 to N do
begin
write(' ');
For j:=1 to M do
write(A[i,j],' ');
writeln(B[i]);
end;
For k:=1 to N do
begin
h:=0;
F1:=abs(A[k,k]);
For j:=k+1 to N do
begin
if abs(A[j,k])>F1 then
begin
F1:=abs(A[j,k]);
h:=j;
end;
end;
if h<>0 then
begin
for l:=k to N do
begin
Q:=A[k,l];
A[k,l]:=A[h,l];
A[h,l]:=Q;
end;
Q:=B[k];
B[k]:=B[h];
B[h]:=Q;
end;
Q:=A[k,k];
For j:=k to N do
A[k,j]:=(A[k,j]/Q);
B[k]:=B[k]/Q;
For i:=k+1 to N do
begin
Q:=A[i,k];
For j:=k to N do
A[i,j]:=A[i,j]-A[k,j]*Q;
B[i]:=B[i]-B[k]*Q;
end;
end;
For i:=N-1 downto 1 do
For j:=N downto i+1 do
B[i]:=B[i]-A[i,j]*B[j];
writeln('Ответ:');
For i:=1 to N do
writeln(' x',i,'=',B[i]);
writeln('Проверка:');
For i:=1 to N do
begin
S:=0;
For j:=1 to N do
S:=S+A1[i,j]*B[j];
writeln(' y',i,'=',S-B1[i]:3:2);
end;
end.



program PR_INER;
const
E=0.00001;
N=3;
vAr
A: Array [1..N,1..N] of real;
B: Array [1..N] of real;
x1: Array [1..N] of real;
x0: Array [1..N] of real;
H: Array [1..N] of real;
S: real;
i,j: integer;
f: text;
Label r;
Begin
Writeln('Исходная');
Assign(f,'C:\Users\user\Desktop\2 лаб\help.txt');
Reset (f);
For i:=1 to N do
Begin
For j:=1 to N do
Read (f,A[i,j]);
Read (f,B[i]);
End;
Close (f);
For i:=1 to N do
Begin
For j:=1 to N do
Write (A[i,j]:4);
Writeln ( B[i]:4);
End;
Writeln('Преобразованная');
Assign (f,'C:\Users\user\Desktop\2 лаб\преобразованная.txt');
Reset (f);
For i:= 1 to N do
Begin
For j:= 1 to N do
Read (f,A[i,j]);
Read (f,B[i]);
Readln (f,x0[i]);
End;
Close (f);
For i:=1 to N do
Begin
For j:=1 to N do
Write (A[i,j]:4);
Writeln ( B[i]:4);
End;
Writeln ('Начальные: ':4);
For i:= 1 to N do
Writeln (x0[i]:4);
R:
For i:=1 to N do
Begin
S:=0;
For j:=1 to N do
If i<>j then
S:=S+A[i,j]*x0[j];
X1[i]:=(B[i]-S)/A[i,i];
H[i]:=abs(x1[i]-x0[i]);
End;
For i:=1 to N do
X0[i]:=x1[i];
For i:= 1 to N do
If H[i]>E then
Goto r;
Writeln('Ответ:':4);
For i:=1 to N do
Writeln('x':4,i,'=', x1[i]:0:15);
End.
AntoxaS1 вне форума Ответить с цитированием
Старый 25.12.2020, 16:47   #4
AntoxaS1
Новичок
Джуниор
 
Регистрация: 24.12.2020
Сообщений: 5
По умолчанию составить код и блок схему.

паскале составить программы решения методами в которых пользователь вводит число z, для которого определяется уz, а также те узлы интерполяции, в которых должно проводиться решение, например, для линейной интерполяции вводится Z и любые две точки из заданной совокупности Х и У, результат выводится в виде значения уz, найденного при этих исходных данных.
x y
25 276
35 379
45 475
55 563
65 642
75 711
AntoxaS1 вне форума Ответить с цитированием
Старый 25.12.2020, 16:50   #5
AntoxaS1
Новичок
Джуниор
 
Регистрация: 24.12.2020
Сообщений: 5
По умолчанию составить код и блок схему.

в паскале составить программы решения методами в которых пользователь вводит любые два значения Х из заданной совокупности Х и У, и решение задачи аппроксимации выполняется в указанном диапазоне Х, например, для вашего варианта пользователь может ввести 1 и 4, программа должна выдать решение для этого диапазона
х у
0.2 -1.21
0.4 -0.32
0.6 -0.01
0.8 0.38
1.0 0.5
3.0 1.7
5.0 2.01
7.0 2.55
8.0 2.48
9.0 2.79
AntoxaS1 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
составить код и блок схему. AntoxaS1 Фриланс 3 26.12.2020 03:24
составить код и блок схему. AntoxaS1 Помощь студентам 3 25.12.2020 00:11
составить код и блок схему. AntoxaS1 Помощь студентам 0 24.12.2020 22:11
составить код и блок схему. AntoxaS1 Помощь студентам 0 24.12.2020 22:08
составить код и блок схему. AntoxaS1 Помощь студентам 0 24.12.2020 22:04