Showing Page:
1/4
ВАРИАНТ 22
- 1 -
Лабораторная работа №1
program lab1;
uses crt;
var x,y,z,a,b,t,u1,u2,u3,u4: real;
begin
clrscr;
writeln('Vvedite x, y, z, t, a, b');
readln(x, y, z, t, a, b);
u1:=exp(t*y*z*ln(abs(x)))-exp(3*ln(abs(a)))+7*exp(x/2);
writeln('u1=',u1:7:2);
writeln('Vvedite x');
readln(x);
u2:=sqrt(sqr(cos(exp(3*ln(abs(x)))))+2)-exp(sin(x)+sin(x)/cos(x));
writeln('u2=',u2:7:2);
writeln('Vvedite x, y');
readln(x,y);
u3:=sqr(x)/2/4/6-(y*exp(3*ln(abs(x)))+2*sin(x))/(3*abs(x)+sqr(ln(x)));
writeln('u3=',u3:7:2);
writeln('Vvedite x');
readln(x);
u4:=(3*exp((x+1)*ln(1/3))*sin(7*(x+6))/cos(7*(x+6)))/(2+exp(3*ln(abs(x)))/4.3);
writeln('u4=',u4:7:2);
readkey;
end.
Результаты счета:
Vvedite x, y, z, t, a, b
2 2 2 1 2 1
u1= 27.03
Vvedite x
2
u2= 1.14
Vvedite x, y
3 2
u3= -5.13
Vvedite x
2
u4= -0.02
Лабораторная работа №2
program lab2;
uses crt;
var t,a,b,c,d,x,x1,x2: real;
begin
clrscr;
write('Vvedite t=');
readln(t);
a:=t-5;
b:=-3*t;
c:=2*(t-3);
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= 0.22
Vvedite t=2
yravnenie deistvitelnih kornei ne imeet
Vvedite t=-3
korni yravnenia x1= 0.46x2= 3.29
Лабораторная работа №3 часть 1
а) (x>=-15)and(x<=1)
б) ((x>=-9)and(x<-2))or((x>6)and(x<=15))
Showing Page:
2/4
ВАРИАНТ 22
- 2 -
Лабораторная работа №3 часть 2
program lab3;
uses crt;
var x,y,z,p,u: real;
begin
clrscr;
writeln('Vvedite x,y,z');
readln(x,y,z);
if x+y<y+z then p:=x+y
else p:=y+z;
if p<(x+2*y+3*z)/3 then u:=(x+2*y+3*z)/3
else u:=p;
writeln('ishodnie dannie x=',x:5:1,' y=',y:5:1,' z=',z:5:1);
writeln('rezultat u=2+max((x+2*y+3*z)/3,min(x+y,y+z))=',(u+2):5:1);
readkey
end.
Результаты счета:
Vvedite x,y,z
3 1 -7
ishodnie dannie x= 3.0 y= 1.0 z= -7.0
rezultat u=2+max((x+2*y+3*z)/3,min(x+y,y+z))= -3.3
Лабораторная работа №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;
for k:=1 to n do
begin
s:=s+znak*xk*(k+1)/(k+2)/k;
znak:=-znak;
xk:=xk*x;
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.0632!
---------------------
! 0.3000! -0.1721!
---------------------
! 0.4000! -0.2197!
---------------------
! 0.7000! -0.3415!
---------------------
! 1.0000! -0.3994!
---------------------
Showing Page:
3/4
ВАРИАНТ 22
- 3 -
Лабораторная работа №5
program lab5;
uses crt;
const nmax=13;
var
P: array[1..nmax] of real;
s: real;
ko,i,n: 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,P[i]);
writeln(fout,'kolichestvo elementov v massive P=',n:3);
writeln(fout,'ishodnii massiv P');
for i:=1 to n do write(fout,P[i]:7:2);
writeln(fout);
s:=0; ko:=0;
for i:=1 to n do
begin
if P[i]<0 then ko:=ko+1;
s:=s+P[i];
end;
writeln(fout,'kol-vo ostavshihsya elementov(ne otricatelnih) = ',(n-ko):3);
writeln(fout,'symma ostavshihsya elementov s = ',s:8:3);
close(finp);
close(fout);
writeln('konec rashcheta'); readkey
end.
Результаты счета (файл lab5.out)
kolichestvo elementov v massive P= 10
ishodnii massiv P
0.00 -1.00 -3.00 0.00 -6.00 6.00 7.00 4.00 0.00 1.00
kol-vo ostavshihsya elementov(ne otricatelnih) = 7
symma ostavshihsya elementov s = 28.000
Лабораторная работа 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.) 4.) ( , )
1 2 3
1.) 1 2 1
3 2 0
Дано A B p q r Вычислить s AAp q p
Вычисляем x Ap y Ax z q y scal z p
x
−−
= = = = = = +
= = = +


=


( ) ( ) ( )
( ) ( ) ( )
( ) ( ) ( )
( ) ( ) ( )
( ) ( ) ( )
( ) ( ) ( )
0.1 1 0.1 1.7 2 1.5 3 1
1.7 1 0.1 1.7 2 1.5 1 2
1.5 3 0.1 1.7 2 1.5 0 3.7
1 2 3 1 1 1 2 2 3.7 3 14
2) 1 2 1 2 1 1 2 2 3.7 1
3 2 0 3.7 3 1 2 2 3.7 0
y
+ +


= + + =


+ +

+ +


= = + + =


+ +

.1
6.7
1
14.1 1.6 12.5 12.5 0.1
3) 6.7 0.8 7.5 4) ( , ) 7.5 1.7 12.5*0.1+7.5*1.7-1.5*2.1 = 10.85
1 1.1 2.1 2.1 1.5
z s AAp q p





= + = = + = =
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);
Showing Page:
4/4
ВАРИАНТ 22
- 4 -
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(q,r,y,-1,1,n); mult(b,y,z,n); s:=scal(p,z,n);
writeln(fout,'Rezultat: s=(B(r-q),p)=',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=(AAp+q,p)= 10.850

Unformatted Attachment Preview

-1- ВАРИАНТ 22 Лабораторная работа №1 program lab1; uses crt; var x,y,z,a,b,t,u1,u2,u3,u4: real; begin clrscr; writeln('Vvedite x, y, z, t, a, b'); readln(x, y, z, t, a, b); u1:=exp(t*y*z*ln(abs(x)))-exp(3*ln(abs(a)))+7*exp(x/2); writeln('u1=',u1:7:2); writeln('Vvedite x'); readln(x); u2:=sqrt(sqr(cos(exp(3*ln(abs(x)))))+2)-exp(sin(x)+sin(x)/cos(x)); writeln('u2=',u2:7:2); writeln('Vvedite x, y'); readln(x,y); u3:=sqr(x)/2/4/6-(y*exp(3*ln(abs(x)))+2*sin(x))/(3*abs(x)+sqr(ln(x))); writeln('u3=',u3:7:2); writeln('Vvedite x'); readln(x); u4:=(3*exp((x+1)*ln(1/3))*sin(7*(x+6))/cos(7*(x+6)))/(2+exp(3*ln(abs(x)))/4.3); writeln('u4=',u4:7:2); readkey; end. Результаты счета: Vvedite x, y, z, t, a, b 2 2 2 1 2 1 u1= 27.03 Vvedite x 2 u2= 1.14 Vvedite x, y 3 2 u3= -5.13 Vvedite x 2 u4= -0.02 Лабораторная работа №2 program lab2; uses crt; var t,a,b,c,d,x,x1,x2: real; begin clrscr; write('Vvedite t='); readln(t); a:=t-5; b:=-3*t; c:=2*(t-3); 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= 0.22 Vvedite t=2 yravnenie deistvitelnih kornei ne imeet Vvedite t=-3 korni yravnenia x1= 0.46x2= 3.29 Лабораторная работа №3 часть 1 а) (x>=-15)and(x<=1) б) ((x>=-9)and(x<-2))or((x>6)and(x<=15)) -2Лабораторная работа №3 часть 2 program lab3; uses crt; var x,y,z,p,u: real; begin clrscr; writeln('Vvedite x,y,z'); readln(x,y,z); if x+y
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