Showing Page:
1/4
Вариант 4
- 1 -
Лабораторная работа №1
program lab1;
uses crt;
var x,y,z,u1,u2,u3,u4: real;
begin
clrscr;
writeln('Vvedite x,z');
readln(x,z);
u1:=exp(3*x*ln(abs(z)))+3*exp(x*ln(abs(x)))-0.3;
writeln('u1=',u1:7:2);
writeln('Vvedite x');
readln(x);
u2:=sqrt(ln(abs(exp(3*ln(abs(sin(x))))))+1)-exp(-x);
writeln('u2=',u2:7:2);
writeln('Vvedite x,y');
readln(x,y);
u3:=(0.3*sqr(cos(sqr(x)))+1)/2/x/y+6;
writeln('u3=',u3:7:2);
writeln('Vvedite x');
readln(x);
u4:=(arctan(2*x)+7)/(x+4.2)+exp(1/3*ln(abs(x)));
writeln('u4=',u4:7:2);
readkey;
end.
Результаты счета:
Vvedite x,z
2 3
u1= 740.70
Vvedite x
1
u2= 0.33
Vvedite x,y
2 2
u3= 6.14
Vvedite x
3
u4= 2.61
Лабораторная работа №2
program lab2;
uses crt;
var t,a,b,c,d,x,x1,x2: real;
begin
clrscr;
write('Vvedite t=');
readln(t);
a:=t-3;
b:=-2*(3*t-4);
c:=7*t-6;
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=3
yravnenie imeet odin koren x= 1.50
Vvedite t=1
korni yravnenia x1= -0.36 x2= 1.36
Vvedite t=0
yravnenie deistvitelnih kornei ne imeet
Showing Page:
2/4
Вариант 4
- 2 -
Лабораторная работа №3 часть 1
а) (x>=-1)and(x<7)
б) ((x>-10)and(x<=-3))or((x>=0)and(x<=13))
Лабораторная работа №3 часть 2
program lab3_2;
uses crt;
var x,y,z: real;
begin
clrscr;
writeln('Vvedite x,y,z');
readln(x,y,z);
if((x<=y)and(x<=z))then x:=0;
if((y<=x)and(y<=z))then y:=0;
if((z<=y)and(z<=x))then z:=0;
writeln('x= ',x,', y= ',y,', z= ',z);
readkey
end.
Результаты счета:
Vvedite x,y,z
2 3 -4
x= 2, y= 3, z= 0
Лабораторная работа №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*sqr(x);
for k:=1 to n do
begin
s:=s+znak*xk/(k*(k+1));
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.0048|
--------------------
| 0.3000| 0.0411|
--------------------
| 0.4000| 0.0711|
--------------------
| 0.7000| 0.2020|
--------------------
| 1.0000| 0.3822|
--------------------
Showing Page:
3/4
Вариант 4
- 3 -
Лабораторная работа №5
program lab5;
uses crt;
const nmax=12;
var
c: array[1..nmax] of real;
sp,po: real;
n,i,kp,ko: 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 massivC');
for i:=1 to n do write(fout,c[i]:7:2);
writeln(fout);
sp:= 0; po:= 1; ko:= 0; kp:= 0;
for i:=1 to n do
begin
if c[i]>0 then
begin
sp:=sp+c[i];
kp:=kp+1;
end;
if c[i]<0 then
begin
ko:=ko+1;
po:=po*c[i];
end;
end;
writeln(fout,'kol-vo poloj elementov kp = ',kp:3);
writeln(fout,'symma polojit elementov sp = ',sp:8:3);
writeln(fout,'kol-vo otric elementov ko = ',ko:3);
writeln(fout,'proizv otric elementov po = ',po:8:3);
close(finp);
close(fout);
writeln('konec rashcheta'); readkey
end.
Результаты счета(файл lab5.out):
kolichestvo elementov v massive C= 10
ishodnii massivC
15.00 5.00 -2.00 13.00 14.00 -2.00 -0.80 4.00 18.00 -1.30
kol-vo poloj elementov kp = 6
symma polojit elementov sp = 69.000
kol-vo otric elementov ko = 4
proizv otric elementov po = 4.160
Лабораторная работа 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.) ( , )
1 2 3 0.7
1.) 1 2 1 1.3
3 2 0 0
Дано A B p q r Вычислить s Ar Bp
Вычисляем x Ar y Bp scal y r
x
−−
= = = = = =
==


=



( ) ( ) ( )
( ) ( ) ( )
( ) ( ) ( )
( ) ( ) ( )
( ) ( ) ( )
( ) ( ) ( )
1 0.7 1.3 2 0.2 3 2.5
1 0.7 1.3 2 0.2 1 2.1
.2 3 0.7 1.3 2 0.2 0 0.5
4 1 2 0.1 4 0.1 1.7 1 1.5 2
2) 0 4 3 1.7 0 0.1 1.7 4 1.5 3
1 1 1 1.5 1 0.1 1.7 1 1.5 1
y

+ +

= + + =


+ +

+ +
= = + +
+ +
0.9
2.3
0.3
2.5 0.9
3.) ( , ) 2.1 2.3 2.5*0.9 2.1*2.3 0.5*0.3 2.73
0.5 0.3
s Ar Bp


=




= = = + + =
Showing Page:
4/4
Вариант 4
- 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) ;
mult(A,r,x,n); mult(B,p,y,n); s:=scal(x,y,n);
writeln(fout,'Rezultat: s=(Ar,Bp)=',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=( Ar,Bp)= 2.73

Unformatted Attachment Preview

-1- Лабораторная работа №1 program lab1; uses crt; var x,y,z,u1,u2,u3,u4: real; begin clrscr; writeln('Vvedite x,z'); readln(x,z); u1:=exp(3*x*ln(abs(z)))+3*exp(x*ln(abs(x)))-0.3; writeln('u1=',u1:7:2); writeln('Vvedite x'); readln(x); u2:=sqrt(ln(abs(exp(3*ln(abs(sin(x))))))+1)-exp(-x); writeln('u2=',u2:7:2); writeln('Vvedite x,y'); readln(x,y); u3:=(0.3*sqr(cos(sqr(x)))+1)/2/x/y+6; writeln('u3=',u3:7:2); writeln('Vvedite x'); readln(x); u4:=(arctan(2*x)+7)/(x+4.2)+exp(1/3*ln(abs(x))); writeln('u4=',u4:7:2); readkey; end. Результаты счета: Vvedite x,z 2 3 u1= 740.70 Vvedite x 1 u2= 0.33 Vvedite x,y 2 2 u3= 6.14 Vvedite x 3 u4= 2.61 Лабораторная работа №2 program lab2; uses crt; var t,a,b,c,d,x,x1,x2: real; begin clrscr; write('Vvedite t='); readln(t); a:=t-3; b:=-2*(3*t-4); c:=7*t-6; 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=3 yravnenie imeet odin koren x= 1.50 Vvedite t=1 korni yravnenia x1= -0.36 x2= 1.36 Vvedite t=0 yravnenie deistvitelnih kornei ne imeet Вариант 4 Лабораторная работа №3 часть 1 а) (x>=-1)and(x<7) б) ((x>-10)and(x<=-3))or((x>=0)and(x<=13)) -2- Лабораторная работа №3 часть 2 program lab3_2; uses crt; var x,y,z: real; begin clrscr; writeln('Vvedite x,y,z'); readln(x,y,z); if((x<=y)and(x<=z))then x:=0; if((y<=x)and(y<=z))then y:=0; if((z<=y)and(z<=x))then z:=0; writeln('x= ',x,', y= ',y,', z= ',z); readkey end. Результаты счета: Vvedite x,y,z 2 3 -4 x= 2, y= 3, z= 0 Лабораторная работа №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*sqr(x); for k:=1 to n do begin s:=s+znak*xk/(k*(k+1)); 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.0048| -------------------| 0.3000| 0.0411| -------------------| 0.4000| 0.0711| -------------------| 0.7000| 0.2020| -------------------| 1.0000| 0.3822| -------------------- Вариант 4 Вариант 4 -3Лабораторная работа №5 program lab5; uses crt; const nmax=12; var c: array[1..nmax] of real; sp,po: real; n,i,kp,ko: 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 massivC'); for i:=1 to n do write(fout,c[i]:7:2); writeln(fout); sp:= 0; po:= 1; ko:= 0; kp:= 0; for i:=1 to n do begin if c[i]>0 then begin sp:=sp+c[i]; kp:=kp+1; end; if c[i]<0 then begin ko:=ko+1; po:=po*c[i]; end; end; writeln(fout,'kol-vo poloj elementov kp = ',kp:3); writeln(fout,'symma polojit elementov sp = ',sp:8:3); writeln(fout,'kol-vo otric elementov ko = ',ko:3); writeln(fout,'proizv otric elementov po = ',po:8:3); close(finp); close(fout); writeln('konec rashcheta'); readkey end. Результаты счета(файл lab5.out): kolichestvo elementov v massive C= 10 ishodnii massivC 15.00 5.00 -2.00 13.00 14.00 -2.00 kol-vo poloj elementov kp = 6 symma polojit elementov sp = 69.000 kol-vo otric elementov ko = 4 proizv otric elementov po = 4.160 -0.80 4.00 Лабораторная работа 6. Вычисление скалярного произведения. 1  Дано : A =  1 3  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 = ( Ar , Bp) 1 1 1  −1.5   1.1   0.2  2 0          x = Ar 2.) y = Bp 3.) scal ( y, r )  1 2 3   −0.7   1  ( −0.7 ) + (1.3)  2 + ( 0.2 )  3   2.5          1.) x =  1 2 1    1.3  =  1  ( −0.7 ) + (1.3)  2 + ( 0.2 )  1  =  2.1   3 2 0   0.2   3  ( −0.7 ) + (1.3)  2 + ( 0.2 )  0   0.5           4 1 2   0.1   4  ( 0.1) + (1.7 )  1 + ( −1.5 )  2   −0.9          2) y =  0 4 3    1.7  =  0  ( 0.1) + (1.7 )  4 + ( −1.5 )  3  =  2.3   1 1 1   −1.5   1  ( 0.1) + (1.7 )  1 + ( −1.5 )  1   0.3           2.5   −0.9      3.) s = ( Ar , Bp ) =  2.1    2.3  = −2.5 * 0.9 + 2.1* 2.3 + 0.5 * 0.3 = 2.73  0.5   0.3      -4- Вариант 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) ; mult(A,r,x,n); mult(B,p,y,n); s:=scal(x,y,n); writeln(fout,'Rezultat: s=(Ar,Bp)=',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=( Ar,Bp)= 2.73 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