Showing Page:
1/4
ВАРИАНТ 10
- 1 -
Лабораторная работа №1
program lab1;
uses crt;
var x,y,u1,u2,u3,u4: real;
begin
clrscr;
writeln('Vvedite x,y');
readln(x,y);
u1:=exp(3*y*ln(x))*exp(2*x*ln(y))+0.7;
writeln('u1=',u1:7:2);
writeln('Vvedite x');
readln(x);
u2:=sqrt(x)*sqr(sin(x))+cos(sqr(x)/2);
writeln('u2=',u2:7:2);
writeln('Vvedite x');
readln(x);
u3:=(abs(x)-ln(abs(x+1)))/(exp(-x)+4.7*x);
writeln('u3=',u3:7:2);
writeln('Vvedite x,y');
readln(x,y);
u4:=exp(1/3*ln(abs(x+7-4*y)))/5/x/y+arctan((x+7)/(x-4));
writeln('u4=',u4:7:2);
readkey;
end.
Результаты счета:
Vvedite x,y
2 2
u1=1024.70
Vvedite x
3
u2= -0.18
Vvedite x
4
u3= 0.13
Vvedite x,y
2 1
u4= -1.18
Лабораторная работа №2
program lab2;
uses crt;
var t,a,b,c,d,x,x1,x2: real;
begin
clrscr;
write('Vvedite t=');
readln(t);
a:=t+1;
b:=3*t;
c:=5*t-2;
if(a=0)then
begin x:=-c/b;
writeln('yravnenie imeet odin koren x=',x:6:2);
readkey;
end;
d:=sqr(b)-4*a*c;
if d<0 then writeln('yravnenie deistvitelnih kornei ne imeet')
else begin
x1:=(-b+sqrt(d))/2/a;
x2:=(-b-sqrt(d))/2/a;
writeln('korni yravnenia x1=',x1:6:2,'x2=',x2:6:2);
readkey;
end;
end.
Результаты счета:
Vvedite t=-1
yravnenie imeet odin koren x= 2.33
Vvedite t=8
yravnenie deistvitelnih kornei ne imeet
Vvedite t=0
korni yravnenia x1= 1.41 x2= -1.41
Лабораторная работа №3 часть 1
а) (x>=-5)and(x<13)
Showing Page:
2/4
ВАРИАНТ 10
- 2 -
б) ((x>-8)and(x<=2))or((x>3)and(x<10))
Лабораторная работа №3 часть 2
program lab3;
uses crt;
var x,y,z,u: real;
begin
clrscr;
writeln('Vvedite x,y,z);
readln(x,y,z);
if (y+z)<x then u:=x
else u:= y+z;
writeln('ishodnie dannie x=',x:5:1,' y=',y:5:1,' z=',z:5:1);
writeln('rezultat u=3-max(x,y+z))/2=',(3-u/2):5:1);
readkey
end.
Результаты счета:
Vvedite x,y,z
3 1 4
ishodnie dannie x= 3.0 y= 1.0 z= 4.0
rezultat u=3-max(x,y+z))/2= 0.5
Лабораторная работа №4
program lab4;
uses crt;
const p=' ';
line='---------------------';
var x,xk,s: real;
n,k,i,znak: integer;
f1:text;
begin
clrscr;
assign(f1,'summa.dat');
rewrite(f1);
write('Vvedite n=');
readln(n);
writeln(f1,p,line);
writeln(f1,p,'!',p,p,p,p,'x',p,p,p,p,'!',p,p,p,p,'s',p,p,p,p,'!');
writeln(f1,p,line);
for i:=1 to 5 do
begin
write('vvedite ocherednoe znachenie x=');
readln(x);
znak:=-1; s:=0; xk:=x/4;
for k:=1 to n do
begin
s:=s+znak*xk*(k+1);
znak:=-znak;
xk:=xk*x/4;
end;
writeln(f1,p,'!',x:9:4,'!',s:9:4,'!');
writeln(f1,p,line);
end;
close(f1); readkey
end.
Результаты счета(файл summa.dat)
--------------------
| x | S |
--------------------
| 0.1000| -0.0123|
--------------------
| 0.3000| -0.0357|
--------------------
| 0.4000| -0.0469|
--------------------
| 0.7000| -0.0785|
--------------------
| 1.0000| -0.1074|
--------------------
Showing Page:
3/4
ВАРИАНТ 10
- 3 -
Лабораторная работа №5
program lab5;
uses crt;
const nmax=17;
var
C: array[1..nmax] of real;
Pbefore,Safter: real;
n,k,i,nol: integer;
finp,fout: text;
begin
clrscr;
assign(finp,'lab5.inp'); reset(finp);
assign(fout,'lab5.out'); rewrite(fout);
readln(finp,n);
for i:=1 to n do read(finp,C[i]);
writeln(fout,'kolichestvo elementov v massive C=',n:3);
writeln(fout,'ishodnii massiv C');
for i:=1 to n do write(fout,C[i]:7:2);
writeln(fout);
Pbefore:= 1; Safter:=0; i:=1;
while(C[i]<>0)do
begin
Pbefore:=Pbefore*C[i];
nol:=i;
i:=i+1
end;
writeln(fout,'proizved elem do nylevogo = ',Pbefore:8:3);
if nol=n then writeln(fout,'nylevih elementov net')
else begin
for i:=nol+1 to n do Safter:=Safter+C[i];
writeln(fout,'Symma elementov posle nylevogo = ',Safter:8:3);
writeln(fout,'Nomer pervogo nylevogo = ',nol:3);
end;
writeln(fout);
close(finp);
close(fout);
writeln('konec rashcheta'); readkey
end.
Результаты счета (файл lab5.out)
kolichestvo elementov v massive C= 10
ishodnii massiv C
15.00 5.00 -2.00 13.00 14.00 0.00 -0.80 4.00 18.00 -1.30
proizved elem do nylevogo = -27300.000
Symma elementov posle nylevogo = 19.900
Nomer pervogo nylevogo = 5
Лабораторная работа 6. Вычисление скалярного произведения. Алгоритм и ручной счет
1 2 3 4 1 2 0.1 1.6 0.7
: 1 2 1 0 4 3 1.7 0.8 1.3 : ( , ( ))
3 2 0 1 1 1 1.5 1.1 0.2
1.) 2.) 3.) ( , )
0.7 1.
1.) 1.3
0.2
Дано A B p q r Вычислить s r A r q
Вычисляем x r q y Ax scal y r
x
−−
= = = = = =
= =
−−


=−



( ) ( ) ( )
( ) ( ) ( )
( ) ( ) ( )
6 0.9 1 2 3 0.9 1 0.9 0.5 2 0.9 3 0.8
0.8 0.5 2) 1 2 1 0.5 1 0.9 0.5 2 0.9 1 1
1.1 0.9 3 2 0 0.9 3 0.9 0.5 2 0.9 0 3.7
0.8
3.) ( , ( )) 1
3.7
y
s r A r q

+ +

= = = + + =


+ +



= =



0.7
1.3 0.8*0.7 1*1.3 3.7 * 0.2 2.6
0.2


= + + =



Showing Page:
4/4
ВАРИАНТ 10
- 4 -
program lab6;
uses crt;
const nmax=10;
type matr=array[1..nmax,1..nmax] of real;
vec=array[1..nmax] of real;
var a,b:matr; p,q,r,x,y,z:vec;
s:real; i,j,n:integer; finp,fout:text;
procedure mult(a:matr; var b,c:vec; n:integer);
var i,j:integer;
begin
for i:=1 to n do
begin c[i]:=0; for j:=1 to n do c[i]:=c[i]+a[i,j]*b[j]; end;
end;
procedure lin(var a,b,c:vec; ka,kb:real; n:integer);
var i:integer;
begin for i:=1 to n do c[i]:=ka*a[i]+kb*b[i]; end;
function scal(var a,b:vec; n:integer):real;
var i:integer; s:real;
begin s:=0; for i:=1 to n do s:=s+a[i]*b[i]; scal:=s; end;
begin
clrscr;
assign(finp,'lab6.inp'); reset(finp);
assign(fout,'lab6.out'); rewrite(fout);
readln(finp,n);
for i:=1 to n do
begin for j:=1 to n do read(finp,a[i,j])end;
for i:=1 to n do
begin for j:=1 to n do read(finp,b[i,j]) end; writeln(fout,'Poryadok matric =',n:3);
writeln(fout,'Matrx A');
for i:=1 to n do begin
for j:=1 to n do write(fout,a[i,j]:7:2); writeln(fout); end;
writeln(fout,'Matrix B');
for i:=1 to n do begin
for j:=1 to n do write(fout,b[i,j]:7:2); writeln(fout); end;
writeln(fout,'Vektor p') ;
for i:=1 to n do
begin read(finp,p[i]); write(fout,p[i]:7 :2) ; end;
writeln(fout);
writeln(fout,'Vektor q');
for i:=1 to n do
begin read(finp,q[i]); write(fout,q[i]:7 :2) ; end;
writeln(fout);
writeln(fout,'Vektor r');
for i:=1 to n do
begin read(finp,r[i]); write(fout,r[i]:7:2) ; end;
writeln(fout) ;
lin(r,q,x,1,-1,n); mult(a,x,y,n); s:=scal(r,y,n);
writeln(fout,'Rezultat: s=(r,A(r-q))=',s:8:3);
close(finp); close(fout); writeln('konec rashcheta'); readkey end.
Результаты счета(файл lab6.out)
Poryadok matric = 3
Matrx A
1.00 2.00 3.00
1.00 2.00 1.00
3.00 2.00 0.00
Matrix B
4.00 1.00 2.00
0.00 4.00 3.00
1.00 1.00 1.00
Vektor p
0.10 1.70 -1.50
Vektor q
-1.60 0.80 1.10
Vektor r
-0.70 1.30 0.20
Rezultat: s=(r,A(r-q))= 2.60

Unformatted Attachment Preview

-1- Лабораторная работа №1 program lab1; uses crt; var x,y,u1,u2,u3,u4: real; begin clrscr; writeln('Vvedite x,y'); readln(x,y); u1:=exp(3*y*ln(x))*exp(2*x*ln(y))+0.7; writeln('u1=',u1:7:2); writeln('Vvedite x'); readln(x); u2:=sqrt(x)*sqr(sin(x))+cos(sqr(x)/2); writeln('u2=',u2:7:2); writeln('Vvedite x'); readln(x); u3:=(abs(x)-ln(abs(x+1)))/(exp(-x)+4.7*x); writeln('u3=',u3:7:2); writeln('Vvedite x,y'); readln(x,y); u4:=exp(1/3*ln(abs(x+7-4*y)))/5/x/y+arctan((x+7)/(x-4)); writeln('u4=',u4:7:2); readkey; end. Результаты счета: Vvedite x,y 2 2 u1=1024.70 Vvedite x 3 u2= -0.18 Vvedite x 4 u3= 0.13 Vvedite x,y 2 1 u4= -1.18 Лабораторная работа №2 program lab2; uses crt; var t,a,b,c,d,x,x1,x2: real; begin clrscr; write('Vvedite t='); readln(t); a:=t+1; b:=3*t; c:=5*t-2; if(a=0)then begin x:=-c/b; writeln('yravnenie imeet odin koren x=',x:6:2); readkey; end; d:=sqr(b)-4*a*c; if d<0 then writeln('yravnenie deistvitelnih kornei ne imeet') else begin x1:=(-b+sqrt(d))/2/a; x2:=(-b-sqrt(d))/2/a; writeln('korni yravnenia x1=',x1:6:2,'x2=',x2:6:2); readkey; end; end. Результаты счета: Vvedite t=-1 yravnenie imeet odin koren x= 2.33 Vvedite t=8 yravnenie deistvitelnih kornei ne imeet Vvedite t=0 korni yravnenia x1= 1.41 x2= -1.41 Лабораторная работа №3 часть 1 а) (x>=-5)and(x<13) ВАРИАНТ 10 -2- б) ((x>-8)and(x<=2))or((x>3)and(x<10)) Лабораторная работа №3 часть 2 program lab3; uses crt; var x,y,z,u: real; begin clrscr; writeln('Vvedite x,y,z’); readln(x,y,z); if (y+z)0)do begin Pbefore:=Pbefore*C[i]; nol:=i; i:=i+1 end; writeln(fout,'proizved elem do nylevogo = ',Pbefore:8:3); if nol=n then writeln(fout,'nylevih elementov net') else begin for i:=nol+1 to n do Safter:=Safter+C[i]; writeln(fout,'Symma elementov posle nylevogo = ',Safter:8:3); writeln(fout,'Nomer pervogo nylevogo = ',nol:3); end; writeln(fout); close(finp); close(fout); writeln('konec rashcheta'); readkey end. Результаты счета (файл lab5.out) kolichestvo elementov v massive C= 10 ishodnii massiv C 15.00 5.00 -2.00 13.00 14.00 0.00 proizved elem do nylevogo = -27300.000 Symma elementov posle nylevogo = 19.900 Nomer pervogo nylevogo = 5 -0.80 4.00 Лабораторная работа 6. Вычисление скалярного произведения. 1  Дано : A =  1 3  1.) Вычисляем 1.) 18.00 -1.30 Алгоритм и ручной счет 2 3  4 1 2  0.1   −1.6   −0.7           2 1  B =  0 4 3  p =  1.7  q =  0.8  r =  1.3  Вычислить : s = ( r , A( r − q)) 1 1 1  −1.5   1.1   0.2  2 0          x=r−q 2.) y = Ax 3.) scal ( y, r )  −0.7   −1.6   0.9        x =  1.3  −  0.8  =  0.5   0.2   1.1   −0.9         1 2 3   0.9   1  ( 0.9 ) + ( 0.5 )  2 + ( −0.9 )  3   −0.8          2) y =  1 2 1    0.5  =  1  ( 0.9 ) + ( 0.5 )  2 + ( −0.9 )  1  =  1   3 2 0   −0.9   3  ( 0.9 ) + ( 0.5 )  2 + ( −0.9 )  0   3.7           −0.8   −0.7      3.) s = (r , A(r − q )) =  1    1.3  = 0.8 * 0.7 + 1*1.3 + 3.7 * 0.2 = 2.6  3.7   0.2      -4- ВАРИАНТ 10 program lab6; uses crt; const nmax=10; type matr=array[1..nmax,1..nmax] of real; vec=array[1..nmax] of real; var a,b:matr; p,q,r,x,y,z:vec; s:real; i,j,n:integer; finp,fout:text; procedure mult(a:matr; var b,c:vec; n:integer); var i,j:integer; begin for i:=1 to n do begin c[i]:=0; for j:=1 to n do c[i]:=c[i]+a[i,j]*b[j]; end; end; procedure lin(var a,b,c:vec; ka,kb:real; n:integer); var i:integer; begin for i:=1 to n do c[i]:=ka*a[i]+kb*b[i]; end; function scal(var a,b:vec; n:integer):real; var i:integer; s:real; begin s:=0; for i:=1 to n do s:=s+a[i]*b[i]; scal:=s; end; begin clrscr; assign(finp,'lab6.inp'); reset(finp); assign(fout,'lab6.out'); rewrite(fout); readln(finp,n); for i:=1 to n do begin for j:=1 to n do read(finp,a[i,j])end; for i:=1 to n do begin for j:=1 to n do read(finp,b[i,j]) end; writeln(fout,'Poryadok matric =',n:3); writeln(fout,'Matrx A'); for i:=1 to n do begin for j:=1 to n do write(fout,a[i,j]:7:2); writeln(fout); end; writeln(fout,'Matrix B'); for i:=1 to n do begin for j:=1 to n do write(fout,b[i,j]:7:2); writeln(fout); end; writeln(fout,'Vektor p') ; for i:=1 to n do begin read(finp,p[i]); write(fout,p[i]:7 :2) ; end; writeln(fout); writeln(fout,'Vektor q'); for i:=1 to n do begin read(finp,q[i]); write(fout,q[i]:7 :2) ; end; writeln(fout); writeln(fout,'Vektor r'); for i:=1 to n do begin read(finp,r[i]); write(fout,r[i]:7:2) ; end; writeln(fout) ; lin(r,q,x,1,-1,n); mult(a,x,y,n); s:=scal(r,y,n); writeln(fout,'Rezultat: s=(r,A(r-q))=',s:8:3); close(finp); close(fout); writeln('konec rashcheta'); readkey end. Результаты счета(файл lab6.out) Poryadok matric = 3 Matrx A 1.00 2.00 3.00 1.00 2.00 1.00 3.00 2.00 0.00 Matrix B 4.00 1.00 2.00 0.00 4.00 3.00 1.00 1.00 1.00 Vektor p 0.10 1.70 -1.50 Vektor q -1.60 0.80 1.10 Vektor r -0.70 1.30 0.20 Rezultat: s=(r,A(r-q))= 2.60 Name: Description: ...
User generated content is uploaded by users for the purposes of learning and should be used following Studypool's honor code & terms of service.
Studypool
4.7
Trustpilot
4.5
Sitejabber
4.4