Составить программу вычисления объема полого цилиндра с внешним радиусом R и внутренним r. Высота цилиндра H.

Program bil21;

var v,n,r,h,p:Real;

begin

writeLn('wwedite znachenia r,n,h');

readln(r,n,h);

p:=3.14;

v:=p*n*n*h-p*r*r*h;

writeln('v=',v:10:5);

end.

Ввести с клавиатуры 3 числа, найти среди них наименьшее. Предусмотреть выводы данных на дисплей.

program bil22;

var k,l,m:real;

begin

writeln('wwedite znachenia k,l,m');

readln(k,l,m);

if (k=l)and(k=m)and(l=m) then writeln('m=l=k=',m:10:3) else

begin

if(k<=l)and(k<=m) then writeln('min k=',k:10:3) else

begin

if(l<=k)and(l<=m) then writeln('min l=',l:10:3) else

writeln('min m=',m:10:3)

end

end

end.

Билет 3

1.Составить программу для определения расстояния пройденного физическим телом за время t. Тело движется с постоянным ускорением А и имеет начальную скорость V.

Program bil11;

var a,t,v,v0:Real;

begin

writeLn('wwedite znachenia a,t,v0');

readln(a,t,v0);

v:=v0+a*t*t/2;

writeln('v=',v:10:3);

end.

Ввести с клавиатуры 4 числа. Найти среди них числа, больше полусуммы введенных чисел. Предусмотреть выводы данных на дисплей.

program bil31;

var a:array [1..4] of real;

i,j:integer;

st:Real;

begin

for i:=1 to 4 do

begin

write('wwedite a[',i:2,']=');

readln(a[i]);

end;

st:=0;

for i:=1 to 4 do st:=st+a[i];

st:=st/2;

j:=0;

for i:=1 to 4 do

if a[i]>st then

begin

writeln('chisla > st',a[i]:10:3);

j:=j+1;

end;

if j=0 then writeln('no cisel');

end.

Билет 4.

1.Составить программу для определения площади поверхности цилиндра с радиусом основания R и высотой H.

Program bil21;

var s,r,h,p:Real;

begin

writeLn('wwedite znachenia r,h');

readln(r,h);

p:=3.14;

s:=2*p*r*r+1*p*r*h;

writeln('s=',s:10:2);

end.

Ввести с клавиатуры 7 чисел. Вывести на дисплей четные и нечетные числа, указать число четных и нечетных чисел.

program bil41;

var i,j:integer;

a:array [1..7] of real;

st:Real;

begin

for i:=1 to 7 do

begin

write('wwedite a[',i:2,']=');

readln(a[i]);

end;

writeln('chetnie chisla');

j:=0;

for i:=1 to 7 do

begin

st:=a[i]/2;

if frac(st)=0 then

begin

writeln(a[i]:10:3);

j:=j+1;

end;

end;

writeln('chetnix chisel',j:2);

writeln('nechetnie chisla');

j:=0;

for i:=1 to 7 do

begin

st:=a[i]/2;

if frac(st)<>0 then

begin

writeln(a[i]:10:3);

j:=j+1;

end;

end;

writeln('nechetnix chisel',j:2);

end.

Билет 5

1.Составить программу для определения расстояния на плоскости между двумя точками М1(х1, у1) и М2(х2, у2).

program bil51;

var x1,x2,y1,y2,s:real;

begin

writeln('wwedite x1,x2,y1,y2');

readln(x1,x2,y1,y2);

s:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));

writeln('dlinna s=',s:10:5);

end.

Ввести с клавиатуры 8 чисел. Найти их среднее значение. Найти числа большие среднего значения и меньшие среднего значения, подсчитать количество тех и других. Предусмотреть выводы данных на дисплей.

program bil52;

var i,j:integer;

a:array [1..8] of real;

st:Real;

begin

for i:=1 to 8 do

begin

write('wwedite a[',i:2,']=');

readln(a[i]);

end;

st:=0;

for i:=1 to 8 do

st:=st+a[1];

st:=st/2;

j:=0;

writeln('chisla > st');

for i:=1 to 8 do

begin

if a[i]>st then

begin

writeln(a[i]:10:3);

j:=j+1;

end;

end;

writeln('kol-vo chisel > st=',j);

j:=0;

writeln('chisla < st');

for i:=1 to 8 do

begin

if a[i]<st then

begin

writeln(a[i]:10:3);

j:=j+1;

end;

end;

writeln('kol-vo chisel < st=',j);

end.

Билет 6.

Ввести с клавиатуры 4 числа, найти среди них наибольшее и наименьшее. Предусмотреть выводы данных на дисплей.

program bil62;

var i,j:integer;

a:array [1..4] of real;

min,max:Real;

begin

for i:=1 to 4 do

begin

write('wwedite a[',i:2,']=');

readln(a[i]);

end;

min:=a[1];

for i:=1 to 4 do

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

writeln('min=',min:10:3);

max:=a[1];

for i:=1 to 4 do

if max<=a[i] then max:=a[i];

writeln('max=',max:10:3);

end.

Билет 7.

Ввести с клавиатуры 3 числа. Найти среди них число, расположенное между наименьшим и наибольшим. Предусмотреть выводы данных на дисплей.

program bil72;

var i,j:integer;

a:array [1..3] of real;

min,max:Real;

begin

for i:=1 to 3 do

begin

write('wwedite a[',i:2,']=');

readln(a[i]);

end;

min:=a[1];

max:=a[1];

for i:=2 to 3 do

begin

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

if max<=a[i] then max:=a[i];

end;

j:=0;

for i:=1 to 3 do

if (a[i]>min)and(a[i]<max) then

begin

writeln('srednie ',a[i]:10:3);

j:=j+1

end;

if j=0 then writeln('srednego net');

end.

Билет 8.

2.Разработать программу вычисления корней квадратного уравнения ax2+bx+c=0.

program bil82;

var a,b,c,d,x1,x2:real;

begin

writeln('wwedite a,b,c');

readln(a,b,c);

d:=b*b-4*a*c;

if d>=0 then

begin

x1:=(-b+sqrt(d))/2*a;

x2:=(-b-sqrt(d))/2*a;

writeln('x1=',x1:10:3,'x2=',x2:10:3);

end

else writeLn('resheniy net');

end.

Билет 9-10

Ввести с клавиатуры три пары чисел. Определить сумма какой из пар чисел больше. Предусмотреть выводы данных на дисплей.

program bil92;

var i,j,k:integer;

a:array [1..3,1..2] of real;

max:Real;

begin

for i:=1 to 3 do

for j:=1 to 2 do

begin

write('wwedite a[',i:2,',',j:2,']=');

readln(a[i,j]);

end;

max:=a[i,1]+a[i,2];

k:=i;

for i:=1 to 3 do

begin

if a[i,1]+a[i,2]>max then

begin

max:=a[i,1]+a[i,2];

k:=i;

end;

end;

writeln('max summa=',max:10:3,' nomer par ',k);

end.

Билет 11.

Ввести с клавиатуры три пары чисел. Найти произведение каждой пары и определить какое из них минимально. Предусмотреть выводы данных на дисплей.

program bil112;

var i,j:integer;

a:array [1..3,1..2] of real;

min:Real;

begin

for i:=1 to 3 do

for j:=1 to 2 do

begin

write('wwedite a[',i:2,',',j:2,']=');

readln(a[i,j]);

end;

min:=a[i,1]*a[i,2];

j:=i

for i:=1 to 3 do

if a[i,1]*a[i,2]<min then

begin

j:=i;

min:=a[i,1]*a[i,2];

end;

writeln('min proizvedenie=',min:10:3,' nomer par ',j);

end.

Билет 12

Разработать программу вычисления функции

Program bil12;

var x,y:Real;

begin

writeln('wwedite znachenia x');

readln(x);

if x>0 then

y:=5*cos(x)+8*x*x

else

y:=2*sin(x);

writeln('y=',y);

end.

2.Вычислить функцию у = 2х² - 8Sinх (-2< х >3). Найти ее минимум и максимум. Вывести в виде таблицы результаты вычислений.

program bil122;

var a,b,h,x,y,max,min:real;

begin

writeln('wwedite a,b,h');

readln(a,b,h);

x:=a+h;

min:=2*x*x-8*sin(x);

max:=2*x*x-8*sin(x);

repeat

y:=2*x*x-8*sin(x);

writeln('x=',x:5:3,' y=',y:10:5);

x:=x+h;

if min>y then min:=y;

if max<y then max:=y;

until x>=b;

writeln('max=',max:10:5,' min=',min:10:5);

end.

Билет 13

Ввести с клавиатуры 3 числа, найти среди них наименьшее. Предусмотреть выводы данных на дисплей.

program bil22;

var k,l,m:real;

begin

writeln('wwedite znachenia k,l,m');

readln(k,l,m);

if (k=l)and(k=m)and(l=m) then writeln('m=l=k=',m:10:3) else

begin

if(k<=l)and(k<=m) then writeln('min k=',k:10:3) else

begin

if(l<=k)and(l<=m) then writeln('min l=',l:10:3) else

writeln('min m=',m:10:3)

end

end

end.

2. Вычислить функцию у = Sin 3х (-p< х < p). Предусмотреть вывод данных в виде таблиц.

program bil132;

var n,y,x:real;

begin

writeln('wwedite x,n');

readln(x,n);

if (x>-n)and(x<n) then

begin

y:=sin(3*x);

writeln('y=',y:10:5);

end

else writeln('ne udovletvoryaet usloviu');

end.

Билет 14.