Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
unit ZS;
interface
procedure zol;
implementation
procedure zol;
var a,eps,b,c:real;
function f(x:real):real;
begin
f:={x*x-1}x*x*x-9*x+2;
end;
begin
write('Vvedite otrezok ');
read(a,b);
if f(a)*f(b)>0 then
writeln('Na promegutke libo net kornei libo ih chetnoe chislo ')
else
begin
write('Vvedite pogreshnost eps= ');
read(eps);
repeat
c:=a+(b-a)*0.625;
if f(c)*f(b)>0 then
b:=c
else
a:=c;
write(a:2:2,' ',b:2:2,' ',c:2:2,' ');
until (abs(b-a)*0.625)<eps;
writeln;
writeln('Rezultat ',c:3:3);
writeln('Proverka: ',f(c):3:3);
end;
readln;
end;
end.
2 Формула прямоугольников
unit integral;
interface
uses crt;
var a, b, c, h, s,p: real;
i, n: integer;
procedure area;
implementation
procedure area;
begin
clrscr;
writeln('VVEDITE a'); {Vvod a}
readln (a);
writeln('VVEDITE b'); {Vvod b}
readln (b);
writeln('VVEDITE n'); {Vvod chisla razbienia}
readln (n);
h:=(b-a)/n;
writeln('SHAG=',h); {Vuvod na ekran shaga razbienia}
c:=a+h/2;
s:=sqr(c);
for i:=1 to n do
begin
c:=c+h;
s:=s+sqr(c);
end;
p:=h*s;
writeln('PLOSHAD=',p); {Vuvod na ekran znachenia ploshadi}
readkey;
end;
end.
3 Определитель матрицы
Unit Determ;
Interface
procedure Det;
Implementation
procedure Det;
var
a:array [1..3,1..5] of real;
s1,s2,d,k,Det: real;
i,j,m: integer;
begin
writeln('Vvedite elementi matrici');
for i:=1 to 3 do
for j:=1 to 3 do
begin
readln(k);
a[i,j]:=k;
end;
for i:=1 to 3 do
for j:=1 to 2 do
a[i,j+3]:=a[i,j];
s1:=0;
for m:=0 to 2 do
begin
d:=1;
for i:=1 to 3 do
d:=d*a[i,i+m];
s1:=s1+d;
end;
s2:=0;
for m:=6 downto 4 do
begin
d:=1;
for i:=1 to 3 do
d:=d*a[i,m-i];
s2:=s2+d;
end;
Det:=s1-s2;
write('Opredelitel raven = ');
writeln(Det);
end;
end.
Главный модуль
program Kursovik;
uses Integral,Determ,ZS,crt;
begin
clrscr;
repeat
writeln('Viberi programmu');
writeln('1-metod Zolotogo secheniya');
writeln('2-Formula pryamougolnika');
writeln('3-Vichislenie opredelitelya matrici');
case readkey of
'1':Zol;
'2':area;
'3':Det;
end;
writeln;
writeln('povtor(y/n)');
until readkey='n';
end.
Лист
19