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

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

Ввести с клавиатуры 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.

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

program bil161;

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.

2. Задать двумерный массив размером 4*3. Просуммировать элементы его столбцов. Результаты представить в виде одномерного массива размером 3. Вывести исходный массив в виде таблицы, полученный в виде строки.

program bil62;

var i,j,k:integer;

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

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

begin

for i:=1 to 4 do

for j:=1 to 3 do

begin

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

readln(a[i,j]);

end;

writeln('syariy massiv');

for j:=1 to 3 do

begin

write(a[1,j]:5:3,' ');

write(a[2,j]:5:3,' ');

write(a[3,j]:5:3,' ');

write(a[4,j]:5:3,' ');

writeln;

end;

writeln('noviy massiv');

for i:=1 to 4 do

begin

b[i]:=a[i,1]+a[i,2]+a[i,3];

write(b[i]:5:3,' ');

end;

end.

Билет 17.

Ввести с клавиатуры 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.

2. Задать двумерный массив размером 4*4. Вывести массив в виде таблицы. Предусмотреть вывод элементов задаваемого столбца и задаваемой строки массива.

program bil72;

var i,j:integer;

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

begin

for i:=1 to 4 do

for j:=1 to 4 do

begin

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

readln(a[i,j]);

end;

writeln('syariy massiv');

for j:=1 to 4 do

begin

write(a[1,j]:5:3,' ');

write(a[2,j]:5:3,' ');

write(a[3,j]:5:3,' ');

write(a[4,j]:5:3,' ');

writeln;

end;

writeln('zadat stolbez');

readln(i);

for j:=1 to 4 do

begin

writeln(a[i,j]:5:3,' ');

end;

writeln;

writeln('zadat stroku');

readln(j);

for i:=1 to 4 do

begin

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

end;

writeln;

end.

Билет 18.

Ввести с клавиатуры 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.

2. Задать двумерный массив размером 5*5. Вывести массив в виде таблицы. Предусмотреть вывод элементов задаваемого столбца и задаваемой строки массива.

program bil182;

var i,j:integer;

a:array [1..5,1..5] of real;

begin

for i:=1 to 5 do

for j:=1 to 5 do

begin

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

readln(a[i,j]);

end;

writeln('syariy massiv');

for j:=1 to 5 do

begin

write(a[1,j]:5:3,' ');

write(a[2,j]:5:3,' ');

write(a[3,j]:5:3,' ');

write(a[4,j]:5:3,' ');

write(a[5,j]:5:3,' ');

writeln;

end;

writeln('zadat stolbez');

readln(i);

for j:=1 to 5 do

begin

writeln(a[i,j]:5:3,' ');

end;

writeln;

writeln('zadat stroku');

readln(j);

for i:=1 to 5 do

begin

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

end;

writeln;

end.

Билет 19.

1.Разработать программу вычисления корней квадратного уравнения ax²+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.

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

program bil192;

var n,y,x:real;

begin

writeln('wwedite x,n');

readln(x,n);

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

begin

y:=sin(3*x);

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

end

else writeln('ne udovletvoryaet usloviu');

end.

Билет 20.

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

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.

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

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.

Билет 21-22.

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

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.

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

program bil192;

var n,y,x:real;

begin

writeln('wwedite x,n');

readln(x,n);

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

begin

y:=sin(3*x);

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

end

else writeln('ne udovletvoryaet usloviu');

end.

Билет 23.

1. Вычислить функцию у = 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.

С клавиатуры задается последовательность чисел. Найти сумму чисел, предшествующих первому отрицательному в задаваемой последовательности. Вывести сумму чисел, а также те из них, которые лежат в интервале от 1 до 5. Найти число таких чисел.

Program bil232;

label 1;

var i,j:integer;

sum:real;

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

begin

for i:=1 to 20 do

begin

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

readln(a[i]);

end;

j:=0;

sum:=0;

for i:=1 to 20 do

begin

if a[i]>0 then

begin

sum:=sum+a[i];

if (a[i]>1)and(a[i]<5) then

begin

writeln('chislo ',a[i]:5:3,' v intervale ot 1 do 5');

j:=j+1;

end;

end

else goto 1

end;

1: writeln('summa do 1 menshe 0',sum:10:5);

writeln('chislo chisel v itervale ot 1 do 5 = ',j:2);

end.

Билет 24

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

program bil192;

var n,y,x:real;

begin

writeln('wwedite x,n');

readln(x,n);

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

begin

y:=sin(3*x);

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

end

else writeln('ne udovletvoryaet usloviu');

end.

2. Дано положительное число e, и последовательность а1, а2, а3..., образованная по следующему закону: Найти первый член последовательности, для которого выполняется условие: abs(a_n-a_n-1)<e. Вывести на экран a_n и n.

program bil242;

label 1;

var i:integer;

e,j:real;

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

begin

for i:=1 to 100 do

a[i]:=1-(1/(1+i));

write('wwedite e=');

readln(e);

j:=0;

for i:=1 to 100 do

if abs(a[i]-j)<e then

begin

writeln('vipolnyaet uslovie a[',i:2,']=',a[i]:5:3);

writeln('nomer = ',i);

goto 1;

end

else j:=a[i];

1: end.

Билет 25.

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

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.

2. Начав тренировки, спортсмен в первый день пробежал х км. Каждый следующий день он увеличивал норму на 10 % от предыдущего дня. Через сколько дней спортсмен будет пробегать больше у км.?

program bil252;

var x,y: real;

i:integer;

begin

writeln('wwedite rezultat 1 dnya');

readln(x);

writeln('wwedute chislo y');

readln(y);

i:=1;

repeat

begin

x:=x+0.1*x;

i:=i+1;

end;

until x>y;

writeln('cherez ',i:2,' dnya');

end.

Билет 26

1. Вычислить функцию у = 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.

2. Составить таблицу степеней числа 3: 3n, n=1, 2, 3...i Прекращать печатать таблицу, когда 3n превысит заданное число D. Вычисления проводить не используя операцию возведения в степень.

program bil262;

var n:integer;

x,x1,d:real;

begin

write('chislo stepen kotorogo ishem ');

readln(x);

write('chislo sravneniya ');

readln(d);

x1:=x;

n:=0;

repeat

begin

x:=x*x1;

n:=n+1;

writeln('n=',n:2,' x=',x:6:2);

end

until x>d;

end.

Билет 27.

1. Задать двумерный массив размером 4*3. Просуммировать элементы его столбцов. Результаты представить в виде одномерного массива размером 3. Вывести исходный массив в виде таблицы, полученный в виде строки.

program bil62;

var i,j,k:integer;

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

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

begin

for i:=1 to 4 do

for j:=1 to 3 do

begin

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

readln(a[i,j]);

end;

writeln('syariy massiv');

for j:=1 to 3 do

begin

write(a[1,j]:5:3,' ');

write(a[2,j]:5:3,' ');

write(a[3,j]:5:3,' ');

write(a[4,j]:5:3,' ');

writeln;

end;

writeln('noviy massiv');

for i:=1 to 4 do

begin

b[i]:=a[i,1]+a[i,2]+a[i,3];

write(b[i]:5:3,' ');

end;

end.

2. В очередном году урожайность ячменя составила 20ц с гектара. В среднем каждые два года урожайность увеличивается на 5%. Определить через сколько лет урожайность превысит Nц с га.

program bil272;

var x,n: real;

i:integer;

begin

writeln('uroshay 1 goda');

readln(x);

writeln('neobxodimiy uroshay');

readln(n);

i:=1;

repeat

begin

x:=x+0.05*x;

i:=i+2;

end;

until x>n;

writeln('cherez ',i:2,' god');

end.

Билет 28

1. Задать двумерный массив размером 4*4. Вывести массив в виде таблицы. Предусмотреть вывод элементов задаваемого столбца и задаваемой строки массива.

program bil72;

var i,j:integer;

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

begin

for i:=1 to 4 do

for j:=1 to 4 do

begin

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

readln(a[i,j]);

end;

writeln('syariy massiv');

for j:=1 to 4 do

begin

write(a[1,j]:5:3,' ');

write(a[2,j]:5:3,' ');

write(a[3,j]:5:3,' ');

write(a[4,j]:5:3,' ');

writeln;

end;

writeln('zadat stolbez');

readln(i);

for j:=1 to 4 do

begin

writeln(a[i,j]:5:3,' ');

end;

writeln;

writeln('zadat stroku');

readln(j);

for i:=1 to 4 do

begin

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

end;

writeln;

end.

2. Среди последовательности чисел 1, 1+1/2, 1+1/2+1/3,... найти первое, большее заданного числа а. Вывести на экран само число и его номер.

program bil282;

label 1;

var x,a:real;

i,j:integer;

Begin

write('wwedite x=');

readln(x);

write('wwedite ogranichenie a=');

readln(a);

j:=1;

for i:=2 to 100 do

Begin

x:=x+(1/i);

j:=j+1;

if x>a then goto 1;

end;

1: writeln('chislo x>a =',x:10:5);

writeln('nomer chisla ',j);

End.

Билет 29.

1. Задать двумерный массив размером 5*5. Вывести массив в виде таблицы. Предусмотреть вывод элементов задаваемого столбца и задаваемой строки массива.

program bil182;

var i,j:integer;

a:array [1..5,1..5] of real;

begin

for i:=1 to 5 do

for j:=1 to 5 do

begin

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

readln(a[i,j]);

end;

writeln('syariy massiv');

for j:=1 to 5 do

begin

write(a[1,j]:5:3,' ');

write(a[2,j]:5:3,' ');

write(a[3,j]:5:3,' ');

write(a[4,j]:5:3,' ');

write(a[5,j]:5:3,' ');

writeln;

end;

writeln('zadat stolbez');

readln(i);

for j:=1 to 5 do

begin

writeln(a[i,j]:5:3,' ');

end;

writeln;

writeln('zadat stroku');

readln(j);

for i:=1 to 5 do

begin

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

end;

writeln;

end.