Лабы по программированию (КИ МГОУ) / Лабы по программированию 1 курс / Лаба3 / отчёта3

Исходный код программы:

program zadanie_23;

{$APPTYPE CONSOLE}

uses

SysUtils;

Var X:array [1..10] of real;

Y:array [1..10] of real;

i:integer;

xA,yA:real;

begin

X[1]:=0; Y[1]:=-65.8;

X[2]:=1; y[2]:=-33.9;

X[3]:=2; y[3]:=-11.1;

X[4]:=3; y[4]:=0.2;

X[5]:=4; y[5]:=10.0;

X[6]:=5; y[6]:=28.9;

X[7]:=6; y[7]:=49.5;

X[8]:=7; y[8]:=62.2;

X[9]:=8; y[9]:=79.7;

X[10]:=9; y[10]:=96.3;

write(' X ');

for i:=1 to 10 do write(X[i]:6:1);

writeln;

write(' Y ');

for i:=1 to 10 do write(y[i]:6:2);

writeln;

write ('xA='); readln(xA);

i:=1;

While xA>X[i] do i:=i+1;

yA:=Y[i-1]+(xA-X[i-1])*(Y[i]-Y[i-1])/(X[i]-X[i-1]);

Write ('yA=',yA:7:2);

writeln;

writeln('***End program****');

readln;

end.

Исходные данные:

X, y

Результаты расчёта:

Блок схема:

Исходный код программы:

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

const n=4; m=5;

var a:array[1..n,1..m] of integer;

s,i,j:integer;

begin

for i:=1 to n do

for j:=1 to m do begin

write('Vvedite element A[',i,',',j,']: ');

readln(a[i,j]);

end;

writeln;

writeln('Matrix: ');

for i:=1 to n do begin

for j:=1 to m do begin

write(a[i,j]:3);

s:=s+a[i,j]

end;

writeln;

end;

writeln('Summa: ',S);

writeln('End program.'); readln;

end.

Исходные данные:

A[I,j]

Результаты расчёта:

Блок схема:

Исходный код программы:

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

var a,x,y,a2,a3:real;

i:integer;

begin

write('Vvedite A: ');

readln(a);

a2:=sqr(a);

a3:=a*sqr(a);

x:=0;

writeln;

writeln(' x y');

for i:=1 to 31 do begin

y:=a3/(a2+sqr(x));

writeln(x:8:4,y:8:4);

x:=x+0.1;

end;

writeln;

writeln('End program.'); readln;

end.

Исходные данные:

a

Результаты расчёта:

Блок схема:

Исходный код программы:

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

function f(x:real):real;

begin f:=sqr(x) end;

Var a,b,h,s_nov,s_star,eps:real;

i,step:integer;

Label 1;

begin

1:

write('Vvedite predeli integrirovania:'); readln(a,b);

if b<a then begin writeln('b<a'); goto 1 end;

eps:=1E-3; step:=1;

h:=b-a; s_nov:=f(a)*h;

repeat

s_star:=s_nov; s_nov:=0;

step:=step*2; h:=h/2;

for i:=1 to step do

s_nov:=s_nov+f(a+(step-i)*h);

s_nov:=s_nov*h;

until abs(s_nov-s_star)<=eps;

writeln; writeln(s_nov:8:2);

writeln('End program');

readln;

end.

Исходные данные:

Результаты расчёта:

Блок схема:

Исходный код программы:

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var a,xa,xb,dx,y,x:real;

n,i:integer;

begin

a:=0.9; x:=0.8;

xa:=0.8; xb:=2; dx:=0.1;

n:=trunc((xb-xa)/dx)+1;

writeln(' x y');

for i:=1 to n do begin

if x>1 then begin

y:=a*(ln(x)/ln(10))+(exp(0.3*ln(abs(x))));

writeln(x:7:3,y:7:3)

end

else if x<=1 then begin

y:=2*a*cos(x)+3*sqr(x);

writeln(x:7:3,y:7:3)

end;

x:=x+0.1;

end;

readln;

end.

Исходные данные:

Y, x

Результаты расчёта:

Блок схема:

Исходный код программы:

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

var a:array[1..20] of integer;

i:integer;

p:real;

begin

p:=1;

for i:=1 to 20 do begin

a[i]:=random(21)-10;

writeln(a[i]:3);

if a[i]>0 then p:=p*a[i];

end;

writeln;

writeln('Proizvedenie: ');

writeln(p:10:1);

readln;

end.

Исходные данные:

Результаты расчёта:

Блок схема:

Исходный код программы:

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

var a:array[1..20]of integer;

i:integer;

z:real;

begin

z:=0;

for i:=1 to 20 do begin

a[i]:=random(10);

write(a[i]:3);

z:=z+sqr(a[i])/i;

end;

writeln;

writeln('Summa ryada: ',z:7:2);

readln;

end.

Исходные данные:

Результаты расчёта:

Блок схема:

Исходный код программы:

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

var z,x,e,ch,fac,s,m,p,f:real;

k:integer;

n,i:integer;

begin

z:=1; n:=0; S:=2; P:=1; F:=1; e:=1E-03;

write('vvedite znachenie X: ');readln(x);

repeat

N:=N+1; S:=S*n;

fac:=s; M:=1;

While p < fac do begin

P:=p+1; f:=m*p; m:=F;

end;

K:=n;

if k mod 2<>0 then k:=-1 else K:=1;

P:=1; fac:=f;

ch:=exp(2*n*ln(x))/fac*k;

z:=z+ch;

until ch<e;

write ('Summa beskonechnogo ryda: ',z:7:2); readln;

end.

Исходные данные:

Результаты расчёта:

Блок схема: