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

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

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

1. Ввести с клавиатуры 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х (- х  ). Предусмотреть вывод данных в виде таблиц.

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.

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

program bil141;

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.

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

program bil142;

var n,y,x :real;

begin

writeln('wwedite x,n');

readln(x,n);

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

begin

y:=cos(2*x);

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

end

else writeln('ne udovletvoryaet usloviu');

end.

Билет 15

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

program bil31;

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.

2. Вычислить функцию у = 2х² - 6Sinх (-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-6*sin(x);

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

repeat

y:=2*x*x-6*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.

Билет 16.

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

program bil161;