Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Міністерство освіти і науки України
Львівський національний університет ім.Івана Франка
Кафедра програмування
ЗВІТ
з обчислювальної практики
Виконав
Студент групи МТС-22
Вовк Микола
Керівник ст.викл.
Левицька С.М.
Львів 2013
Дано: . Обчислити ,якщо
;
;
.
var x,y,z,a,b,c,S1,S2,S3:real;
begin
writeln ('vvedit 3 4usla');
read (x,y,z);
a:=(cos(arctan(1/z))/sqr(sin(z))+sqr(sin(z))/cos(arctan(1/z)));
b:=((cos(arctan(1/z))-cos(arctan(1/z))*sqr(cos(arctan(1/z)))/3+1/(20*x)));
c:=(arctan(10*10*10)-sqrt(sqr(abs(x-y)/sqr(z)+(sqr(z)/(abs(x+y)))+20)));
if ((a-b)>(sqr(b))) and ((a-b)>(c+b)) then S1:=(a-b) else
if (sqr(b))>(c+b) then S1:=(sqr(b)) else S1:=(c+b);
if ((a/b)<(b)) and ((a/b)<(c+b)) then S2:=(a/b) else if (b)<(c+b) then S2:=(b)
else S2:=(c+b);
S3:=S1+S2;
writeln('vidpovid=',S3:6:2);
end.
Завдання 2
Дано натуральне .Обчислити
var n,i:integer;s:real;
begin
writeln('vvedit naturalne 4uslo');
readln(n);
S:=0;
for i:=1 to n do
begin
S:=(S+sin(i)/cos(n+1-i));
end;
writeln('vidpovid=',S:6:2);
end.
Завдання 3
program programa3;
var item:real;
i,j:integer;
eps:real;
x: array[1..10] of real;
S: array[1..10] of real;
y: array[1..10] of real;
Poh: array[1..10] of real;
begin
writeln('ln(1+x) calculation');
for i:=1 to 10 do
begin
writeln('Enter function argument x', i, ': ');
readln(x[i]);
end;
writeln('Enter mistake:');
readln(eps);
for i:=1 to 10 do
begin
if abs(x[i])<1 then
begin
summ[i]:=x[i];
item:=x[i];
j:=2;
while abs(item)>eps do
begin
item:=item*(((-1)*x_arr[i]*(j-1))/(j));
summ_arr[i]:=summ_arr[i]+item;
j:=j+1;
end;
end;
end;
for i:=1 to 10 do
begin
if abs(x[i])<1 then
begin
y[i]:=1/sqrt(sqrt(1-x[i])));
end;
end;
for i:=1 to 10 do
begin
if abs(x[i])<1 then
begin
Poh[i]:=(abs((S[i]-y[i])/(y[i]))*100);
end;
end;
writeln('______________________________________________________');
writeln('| X | S | Y | Poh |');
writeln('|____________|_______________|_______________|_______|');
for i:=1 to 9 do
begin
if abs(x[i])<1 then
begin
if y[i]=0 then writeln('|X',i,'=',x[i]:7:4,' |', 'S',i,'=',S[i]:10:7,' |','y',i,'=',y[i]:10:7,' |','error ','|')
else writeln('|X',i,'=',x_arr[i]:7:4,' |', 'S',i,'=',summ_arr[i]:10:7,' |','y',i,'=',y[i]:10:7,' |',Poh[i]:3:4,'%|');
end
else writeln('|X1=',x[1]:8:4,' |', 'S1=error ',' |','y1=error ',' |','error ','|');
writeln('|____________|_______________|_______________|_______|');
end;
if abs(x[10])<1 then
begin
if y[10]=0 then writeln('|X10=',x_arr[10]:7:4,' |', 'S10=',S[10]:10:7,' |','y10=',y[10]:10:7,' |','error ','|')
else writeln('|X10=',x_arr[10]:7:4,' |', 'S10=',S[10]:10:7,' |','y10=',y[10]:10:7,' |',Poh[10]:3:4,'%|');
end
else writeln('|X10=',x[10]:8:4,'|', 'S10=error ',' |','y10=error ',' |','error ','|');
writeln('|____________|_______________|_______________|_______|');
readln;
readln;
end.
Завдання 4
Задано два натуральні числа.Знайти найстаршу цифру в першому числі і підрахувати кількість таких цифр у другому числі.Знайти суму всіх цифр в обох числах(якщо цифри повторюються,то взяти по одному разу).
program prog4;
var A,B,k,i,j,z,S1,S2:integer;
a_arr:array[1..25] of integer;
b_arr:array[1..25] of integer;
flag: boolean;
m:integer;
begin
readln (m,A,B);
A:=abs(A);
B:=abs(B);
repeat
k:=A mod 10;
flag:=false;
for i:=1 to m do
if k=a_arr[i] then
begin
flag:=true;
break
end;
if flag=false then
begin
m:=m+1;
a_arr[m]:=k;
end;
A:=A div 10 until A=0;
while B<>0 do
begin
j:=j+1;
b_arr[j]:=B mod 10;
B:=B mod 10;
end;
for i:=1 to m do begin
if a_arr[i]>a_arr[i+1] then a:=a_arr[i]
end;
if a=b_arr[i] then begin
k:=k+1;end;
z:=a*k;
S1:=0;
for i:=1 to m do begin
S1:=S1+a_arr[i];
S2:=S2+b_arr[i];
writeln(z);
end;
end.
Завдання 5
По заданих a,b побудувати вектор y=(y1,y2,…,yn) ,де n=15;
Yi=; Обчислити функцію g. Значення a та b вводяться з клавіатури.
program vovk5;
const n=15;
var a,b,g:real;
y,g1:array[1..n] of real;
i:integer;
begin
write('a=');
readln(a);
write('b=');
readln(b);
if a>b then
begin
for i:=1 to n do
begin
y[i]:=(((sqr(1+i)*(1+i))+sqrt((b+i)*sqr(b+i)))/(sqrt(sqr(a)+2*sqr(b))+sqr(i)));
end;
end
else
begin
for i:=1 to n do
begin
y[i]:=((i-1)*(sqr(i-b)))/sqrt(sqr(i)+sqr(b)+sqr(a));
end;
end;
for i:=1 to n do
g1[i]:= sqrt((sqr(y[i])+sqr(a))/2);
g:=g1[1];
for i:=2 to n do
if g1[i]<g then g:=g1[i];
write('y=(');
for i:=1 to (n-1) do
begin
write(y[i]:7:4,',');
end;
writeln(y[n]:7:4,')');
writeln('g=',g:7:4);
readln;
readln;
end.
Завдання 6
Дані квадратні матриці A та B порядку n.Отримати матрицю A(B-E)+C , де C одинична матриця порядку n,а елементи матриці C обчислюються за формулою:
, =1,2,…,n.
program prog6;
const n=3;
var a:array [1..n,1..n] of real;
b:array [1..n,1..n] of real;
c:array [1..n,1..n] of real;
d:array [1..n,1..n] of real;
i,j:integer;
begin
writeln ('vvedit matrutsy A');
for i:=1 to n do
for j:=1 to n do
read (a[i,j]);
writeln;
writeln ('A:');
for i:=1 to n do begin writeln;
for j:=1 to n do
write (a[i,j],' ');
writeln;
end;
writeln ('vvedit matrutsy B');
for i:=1 to n do
for j:=1 to n do
read (b[i,j]);
writeln;
writeln ('B:');
for i:=1 to n do begin writeln;
for j:=1 to n do
write (b[i,j],' ');
writeln;
end;
for i:=1 to n do
for j:=1 to n do
c[i,j]:=1/(i+j);
writeln;
writeln('A(B-E)+C:');
for i:=1 to n do
for j:=1 to n do
d[i,j]:=a[i,j]*(b[i,j]-1)+c[i,j];
for i:=1 to n do begin writeln;
for j:=1 to n do
write (d[i,j]:7:2,' ');
writeln;
end;
end.
Завдання 7
Заданий текст, що закінчується крапкою. Викинути з речення слова, що стоять на парних місцях і мають непарну довжину.