На сортировку / 2 / 1 курс / 3.Информатика / Информатика / инфрматика 1 / РГР3

№1 Есептің берілгені

Ондық жүйеден Оналтылық жүйеге ауыстыру.

21451220

Блок сехемасы

Шығару жолы

Program KNB;

var k,i,n,x,j:longint;

b:array[1..16] of integer;

begin

readln(x);

i:=1;k:=x;

while k>=16 do

begin

n:=k mod 16;

k:=k div 16;

b[i]:=n;

inc(i); end;

for j:=i downto 1 do

case b[j] of

0..9:write(b[j]);

10:write('A');

11:write('B');

12:write('C');

13:write('D');

14:write('E');

15:write('F');

end;end.

№2 Есептің берілгені

Резевуар

Блок схемасы

Шығару жолы

Program KNB2;

label 1,2;

var v,c,k:integer;

begin

write('rezervuar kolemi=');

readln(v);

2:readln(c);

k:=k+c;

if k>=V then begin writeln('v=',k,'stop');

goto 1 end else begin writeln('v=',k,'go');goto 2; end;

1:exit;end.

№3 Есептің берілгені

F(x)=[x] [-4,4] h=0.6

a)F(x) функциясының жұп мәндерінің орташа арифметикалық мәні

b)f(x) функциясының ең кіші мәні

Блок схемасы

Шығару жолы

program rgr33;

var a,b,i,n:integer;

x,y,s,f,min,h:real;

g:array[1..100] of real;

begin

writeln('a&b aralygyn engiziniz');

write('a='); readln(a);

write('b='); readln(b);

writeln('h kadamdy engiziniz');

write('h='); readln(h);

n:=trunc((b-a)/h);

for i:=1 to n do

begin

x:=a+i*h;

y:=sqr(trunc(x));

g[i]:=y;

end;

writeln('funciyanyn manderi');

for i:=1 to n do write(g[i]:4:2,' ');

s:=0;

for i:=1 to n do s:=s+g[i];

f:=s/n;

writeln;

writeln('funkciyanyn arifmetikalik ortasi');

writeln('f=',f:4:2);

min:=g[1];

for i:=2 to n do

if min>g[i] then min:=g[i];

writeln('minimum elementi min=',min:4:2);

readln;

end.

№4 Есептің берілгені

Блок схемасы

S=S*P1

Шығару жолы

Program KNB;

const p=838;e=1.8-0.001*p;

var s,p1,T:real; i:integer;

begin

s:=0;i:=0;

writeln('T-ni engiz');

read(T);

T:=276;

while T<=316 do

begin

p1:=p-e*(T-293);

if p1>0 then s:=s+p1; inc(i);

T:=T+1;

writeln('p1=',p1:4:2);

end;

writeln('s=',s/i:4:2);

readln;

readln

end.