Showing Page:
1/4
ВАРИАНТ 28
- 1 -
Лабораторная работа №1
program lab1;
uses crt;
var x,y,z,u1,u2,u3,u4: real;
begin
clrscr;
writeln('Vvedite x,y,z');
readln(x,y,z);
u1:=exp(ln(abs(z))*2*sqr(x))-exp(ln(3)*x*exp(z*ln(abs(y))))-exp(sin(x)+4);
writeln('u1=',u1:7:2);
writeln('Vvedite x');
readln(x);
u2:=2*sqr(cos(x/2))-sqr(ln(abs(x/2)));
writeln('u2=',u2:7:2);
writeln('Vvedite x,y');
readln(x,y);
u3:=x/5/y-ln(2-exp(x))/(3+x-3*y);
writeln('u3=',u3:7:2);
writeln('Vvedite x');
readln(x);
u4:=exp(1/3*ln(abs((x+sqrt(sqr(x)+1))/(-0.6+pi/2-arctan(3*x/(sqrt(1-9*sqr(x))))))));
writeln('u4=',u4:7:2);
readkey;
end.
Результаты счета:
Vvedite x,y,z
1 2 2
u1=-203.66
Vvedite x
2
u2= 0.58
Vvedite x,y
0.1 3
u3= -0.01
Vvedite x
0.3
u4= 2.08
Лабораторная работа №2
program lab2;
uses crt;
var t,a,b,c,d,x,x1,x2: real;
begin
clrscr;
write('Vvedite t=');
readln(t);
a:=t-2;
b:=4*t-1;
c:=3*t-5;
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;
readkey
end.
Результаты счета:
Vvedite t
2
yravnenie imeet odin koren x= -0.14
Vvedite t
1
korni yravnenia x1= 1.00 x2= 2.00
Vvedite t
0.25
yravnenie deistvitelnih kornei ne imeet
Лабораторная работа №3 часть 1
а) (x>=-6)and(x<=1)
б) ((x>-20)and(x<-4))or((x>=0)and(x<15))
Showing Page:
2/4
ВАРИАНТ 28
- 2 -
Лабораторная работа №3 часть 2
program lab3;
uses crt;
var x,y,z,u: real;
begin
clrscr;
writeln('Vvedite x,y,z');
readln(x,y,z);
if x<z then u:=x
else u:= z;
if y>u then u:=y;
writeln('ishodnie dannie x=',x:5:1,' y=',y:5:1,' z=',z:5:1);
writeln('rezultat u=max(y,min(x,z))=',u:5:1);
readkey
end.
Результаты счета:
Vvedite x,y,z
1 2 -1
ishodnie dannie x= 1.0 y= 2.0 z= -1.0
rezultat u=max(y,min(x,z))= 2
Лабораторная работа №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.0482|
--------------------
| 0.3000| -0.1347|
--------------------
| 0.4000| -0.1736|
--------------------
| 0.7000| -0.2757|
--------------------
| 1.0000| -0.3600|
--------------------
Лабораторная работа №5
program lab5;
uses crt;
const nmax=15;
var
A: array[1..nmax] of real;
s: real;
n,i: integer;
finp,fout: text;
begin
clrscr;
assign(finp,'lab5.inp'); reset(finp);
Showing Page:
3/4
ВАРИАНТ 28
- 3 -
assign(fout,'lab5.out'); rewrite(fout);
readln(finp,n);
for i:=1 to n do read(finp,A[i]);
writeln(fout,'kolichestvo elementov v massive A=',n:3);
writeln(fout,'ishodnii massivC');
for i:=1 to n do write(fout,A[i]:7:2);
writeln(fout);
s:= 0; i:= 3;
while(i<=n) do
begin
A[i]:=0;
i:= i+3;
end;
for i:=1 to n do s:=s+A[i];
writeln(fout,'symma elementov s = ',s:8:3);
writeln(fout,'pereformirovvani massivC');
for i:=1 to n do write(fout,A[i]:7:2);
writeln(fout);
close(finp);
close(fout);
writeln('konec rashcheta'); readkey
end.
Результаты счета(файл lab5.out):
kolichestvo elementov v massive A= 10
ishodnii massivC
15.00 5.00 -2.00 13.00 14.00 -2.00 -0.80 4.00 18.00 -1.30
symma elementov s = 48.900
pereformirovvani massivC
15.00 5.00 0.00 13.00 14.00 0.00 -0.80 4.00 0.00 -1.30
Лабораторная работа 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.) 5.) 6.) ( , )
1.)
Дано A B p q r Вычислить s A p r q AAr
Вычисляем x p r y x q z Ay x Ar y Ax scal y z
−−
= = = = = = + +
= + = + = = =
0.1 0.7 0.6 0.6 1.6 2.2
1.7 1.3 3 2) 3 0.8 3.8
1.5 0.2 1.3 1.3 1.1 0.2
xy
= + = = + =
( ) ( ) ( )
( ) ( ) ( )
( ) ( ) ( )
( ) ( ) ( )
( )
1 2 3 2.2 1 2.2 3.8 2 0.2 3 4.8
3) 1 2 1 3.8 1 2.2 3.8 2 0.2 1 5.2
3 2 0 0.2 3 2.2 3.8 2 0.2 0 1
1 2 3 0.7 1 0.7 1.3 2 0.2 3
4) 1 2 1 1.3 1 0.7
3 2 0 0.2
z
x
+ +


= = + + =


+ +

+ +
= =
( ) ( )
( ) ( ) ( )
( ) ( ) ( )
( ) ( ) ( )
( ) ( ) ( )
2.5
1.3 2 0.2 1 2.1
3 0.7 1.3 2 0.2 0 0.5
1 2 3 2.5 1 2.5 2.1 2 0.5 3 8.2
5) 1 2 1 2.1 1 2.5 2.1 2 0.5 1 7.2
3 2 0 0.5 3 2.5 2.1 2 0.5 0 11.7
6) ( ( ),
y
s A p r q




+ + =




+ +


+ +


= = + + =


+ +

= + +
8.2 4.8
) 7.2 5.2 = 8.2*4.8+7.2*5.2+11.7 = 88.5
11.7 1
AAr
=
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;
Showing Page:
4/4
ВАРИАНТ 28
- 4 -
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,p,x,1,1,n); lin(x,r,y,1,1,n);mult(a,y,z,n);
mult(a,r,x,n); mult(a,x,y,n); s:=scal(z,y,n);
writeln(fout,'Rezultat: s=(B(2r+q),AAr)=',s:8:3);
close(finp); close(fout); writeln('konec rashcheta'); readkey end.
!Rezyltati sheta:
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=(B(r-p),BBr)= 88.50

Unformatted Attachment Preview

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