Билет 1.
1.Составить программу определения катета прямоугольного треугольника по известным значениям гипотенузы и второго катета В..
Program bil11;
var a,b,c:Real;
begin
writeLn('wwedite znachenia b,c');
readln(b,c);
a:=sqrt(c*c-b*b);
writeln('a=',a);
end.
2. Разработать программу вычисления функции
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.
1.Составить программу вычисления объема полого цилиндра с внешним радиусом 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.
2. Ввести с клавиатуры 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.
2.Ввести с клавиатуры 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.
2. Ввести с клавиатуры 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.
2.Ввести с клавиатуры 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.
2. Ввести с клавиатуры 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.
2. Ввести с клавиатуры 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
2.Ввести с клавиатуры три пары чисел. Определить сумма какой из пар чисел больше. Предусмотреть выводы данных на дисплей.
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.
1.Ввести с клавиатуры три пары чисел. Найти произведение каждой пары и определить какое из них минимально. Предусмотреть выводы данных на дисплей.
program bil112;