|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.12.2020, 16:42 | #1 |
Новичок
Джуниор
Регистрация: 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. |
25.12.2020, 16:43 | #2 |
Новичок
Джуниор
Регистрация: 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. |
25.12.2020, 16:45 | #3 |
Новичок
Джуниор
Регистрация: 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. |
25.12.2020, 16:47 | #4 |
Новичок
Джуниор
Регистрация: 24.12.2020
Сообщений: 5
|
составить код и блок схему.
паскале составить программы решения методами в которых пользователь вводит число z, для которого определяется уz, а также те узлы интерполяции, в которых должно проводиться решение, например, для линейной интерполяции вводится Z и любые две точки из заданной совокупности Х и У, результат выводится в виде значения уz, найденного при этих исходных данных.
x y 25 276 35 379 45 475 55 563 65 642 75 711 |
25.12.2020, 16:50 | #5 |
Новичок
Джуниор
Регистрация: 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 | Фриланс | 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 |