турбо паскаль

Составить программу вычисления значения по формулам ...

1. Задание 4
1.1. Линейные алгоритмы 4
1.1.1. Простые вычисления по формулам 4
1.1.2. Логические выражения 4
1.2. Разветвление 4
1.2.1. Вычисление таблицы значений функции одного аргумента с выбором формулы 4
1.2.2. Проверка попадания точки в заданную область 4
1.3. Циклы 5
1.3.1. Алгоритм с единственным циклом 5
1.3.2. Накопление сумм и произведений 5
1.3.3. Нахождение экстремальных элементов в одномерных массивах 5
1.3.4. Алгоритмы с ветвлением в теле цикла 6
1.3.5. Табулирование функции одной переменной 6
1.3.6. Табулирование функции двух переменных 6
1.4. Подпрограммы 6
1.4.1. Вычисление выражения с использованием процедур 6
1.4.2. Использование массива как параметра функции 6
1.4.3. Решение нелинейных уравнений 6
1.4.4. Решение СЛАУ методом Гаусса 7
1.4.5. Проверка решения СЛАУ методом Крамера 7


2. Выполнение задания 8
2.1. Линейные алгоритмы 8
2.1.1. Простые вычисления по формулам 8
2.1.2. Логические выражения 8
2.2. Разветвление 9
2.2.1. Вычисление таблицы значений функции одного аргумента с выбором формулы 9
2.2.2. Проверка попадания точки в заданную область 10
2.3. Циклы 12
2.3.1. Алгоритм с единственным циклом 12
2.3.2. Накопление сумм и произведений 12
2.3.3. Нахождение экстремальных элементов в одномерных массивах 13
2.3.4. Алгоритмы с ветвлением в теле цикла 13
2.3.5. Табулирование функции одной переменной 14
2.3.6. Табулирование функции двух переменных 15
2.4. Подпрограммы 16
2.4.1. Вычисление выражения с использованием процедур 16
2.4.2. Использование массива как параметра функции 17
2.4.3. Решение нелинейных уравнений 18
2.4.4. Решение СЛАУ методом Гаусса 20
2.4.5. Проверка решения СЛАУ методом Крамера 25

решение СЛАУ методом ГАУССА,КРАМЕРА.

Проверка попадания точки в заданную областьuses crt;var x,y:real; u,v:boolean;beginclrscr;write(' Введите x,y'); read(x,y);u:=(x>=-1)and(x<=1)and(0<=y)and(y<=2);v:=(x*x+y*y>1);if u and v=true then writeln(' точка попадает в область') else writeln(' точка не попадает в область');readln;end.ЦиклыАлгоритм с единственным цикломProgram Z_1_4_1;uses crt; var p:real; i:integer; A,B:array[1..5] of integer;Beginclrscr; for i:=1 to 5 do Begin clrscr; Write('Vvedite ',i,' element massiva A: '); Readln(A[i]); Write('Vvedite ',i,' element massiva B: '); Readln(B[i]); End; P:=0; For i:=1 to 5 do P:=P+A[i]*B[i]; Writeln(' P = ',P); Readln;End.Накопление сумм ипроизведенийProgram Z_1_3_2;uses crt; var sum,X,result:real; k,n:integer; BEGIN clrscr; Write('Vvedite X: '); Readln(X); Write('Vvedite n: '); Readln(n); sum:=0; for k:=1 to n do if cos(2*x/k)>0 then sum:=sum+Exp(1/k*Ln(exp(k+sqrt(x))*cos(2*x/k))); result:=sqrt(abs(x)+n)*sum; writeln(' result=',result ); readln; END.Нахождение экстремальных элементов в одномерных массивахProgram Z_1_4_3;uses crt; Var A:array[1..5] of integer; i,n:integer;Begin clrscr; For i:=1 to 5 do begin clrscr; write('Vvedite ',i,' element massiva X: '); readln(A[i]); end; n:=abs(A[1]-A[2]); for i:=2 to 4 do if n<abs(A[i]-A[i+1]) then n:=abs(A[i]-A[i+1]); writeln('MAX = ',n); readln;END.Алгоритмы с ветвлением в теле цикла Program Z_1_4_2;uses crt; Var X:array[1..5] of integer; i,n,p:integer;Beginclrscr; For i:=1 to 5 do begin clrscr; write('Vvedite ',i,' element massiva X: '); readln(X[i]); end; n:=0; p:=1; for i:=1 to 5 do if (X[i]>0) and (sin(X[i])>0) then begin p:=p*X[i]; n:=n+1; end; writeln('Proizvedenie = ',p); writeln('Kol-vo elementov = ',n); readln;END.Табулирование функции одной переменнойprogram table;uses crt;const a=0; b=4; n=20;var x,y,h:real; i:integer;beginclrscr;x:=a;h:=(b-a)/n;for i:=0 to n dobeginy:=x*sin(x);writeln(' x=',x:5:2,' y=',y:10:5);x:=x+h;end;end.Табулирование функции двух переменных program tabletwo;uses crt;const a=1; b=3; c=1; d=3; n=2;var x,y,hx,hy,z:real; i,j:integer;beginclrscr;hx:=(b-a)/n;hy:=(d-c)/n;for i:=0 to n dobeginx:=a+i*hx;for j:=0 to n dobeginy:=c+j*hy;z:=arctan(y/x)+arctan(z/y);writeln(' x=',x:5:2,' y=',y:5:2,' z=',z:10:5);end;end;readln;end.ПодпрограммыВычисление выражения с использованием процедурProgram Z_4_1;uses crt; var t,temp:real; a,b,c:integer;Function koren(x,y:real):real; beginkoren:=exp((sqrt(y)+exp(1/3*ln(y))+exp(1/4*ln(y))+exp(1/5*ln(y)))*ln(x)) end;BEGINclrscr; write('Vvedite a: '); readln(a); write('Vvedite b: '); readln(b); write('Vvedite c: '); readln(c); t:=koren(a,c)+sqrt(koren(b,a/c)); writeln(' t = ',t); readln;END.Использование массива как параметра функцииProgram Z_4_2_3;uses crt; const n=10; var i:integer; Y:array[0..n+1] of integer;Function sum(X:array of integer;n:integer):integer; var j,temp:integer; begin temp:=0; for j:=1 to n do if X[j]<0 then temp:=temp+X[j]; sum:=temp; end;BEGIN clrscr; { repeat write('Kol-vo elementov massiva = '); readln(n); if (n<=0) or (n>MaxSize) then writeln('Nekorrektnoe znachenie'); until (N>0) and (n<=MaxSize); } for i:=1 to n do begin write('Vvedite ',i,' element massiva: '); readln(Y[i]); end; writeln('Symma = ',sum(Y,n)); readln;END.Решение нелинейных уравнений Program otd;uses crt;const a=-10; b=10; step=0.5;Function F(x:real):real; Begin F:=x+cos(x); End;var a1,b1,y1,y2:real;BEGINclrscr; a1:=a; While a1<=b do begin b1:=a1+step; y1:=F(a1); y2:=F(b1); if y1*y2<=0 then begin writeln('Koren na otrezke[',a1:2:6,', ',b1:2:6,']'); a1:=b1; End; readln;END.PROGRAM dichot;uses crt;CONST a=-1; b=-0.5; eps=0.00001;FUNCTION F(x: real): real; Begin F:=x+cos(x); end;VAR x,a1,b1: real; y1,y2,y: real;BEGINclrscr;a1:=a;b1:=b;y1:=F(a1);y2:=F(b1);While b1-a1>eps do begin x:=a1+(b1-a1)/2; y:=F(x); If y1*y<0 then b1:=x else If y=0 then begin a1:=x; b1:=x end else a1:=x; end;x:=a1+(b1-a1)/2;Writeln('Koren x=', x: 2: 6);ReadlnEND. Решение СЛАУ методом ГауссаProgram GaussMetod;Uses CRT;label 555;Const l=10;Type matrice=array [1..l,1..l+1] of real; vector=array [1..l] of real;Var i,j,n,k,g:integer; z,m,s:real; a:matrice; x:vector; ch:char;{Podprogramma}Procedure Pausa; begin writeln; writeln('Press any key to continue...