У вас вопросы?
У нас ответы:) SamZan.net

Вычислить значения функции z xii - 2 если i x и i ~элементы массивов состоящие из 40 элементов каждый

Работа добавлена на сайт samzan.net: 2016-03-30

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025

4.1. Вычислить значения функции z= (xi+ai )/ 2 , если i x и i a –элементы массивов, состоящие из 40 элементов каждый. var

x: array [1..40] of integer;

a: array [1..40] of integer;

z:real;

i: integer;

begin

for i:= 1 to 40 do

read (x[i]);

for i:= 1 to 40 do

begin

z:= sqrt ( (x[i]+ a[i]) / 2);

writeln (‘z=’, z:3:3);

end; end.

4.2. Записать в массив x, состоящий из 20 элементов, нули.

var

x: array [1..10] of integer;

i:= integer;

begin

for i:= 1 to 10 do

read (x[i]);

for i:= 1 to 10 do

x[i] :=0;

for i:= 1 to 10 do

Writeln (‘x[i]=’, x[i]);

end.

4.3. Вычислить значения функции, если ai– элементы массива:

ai=ai, если ai> 0, ai=0 , если ai<= 0.

Var

a: array [1..10] of integer;

i: integer;

begin

for i:= 1 to 10 do

Readln (a[i]);

for i:= 1 to 10 do

begin

if a[i] > 0 then a[i]:= a[i] else

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

Writeln (a[i]);

end; end.

4.4. Вывести на печать положительные элементы массива.

Var

a: array [1..10] of integer;

i: integer;

begin

for i:= 1 to 10 do

readln (a[i]);

for i:= 1 to 10 do

if a[i]> 0 then

write (a[i]);

writeln;

end.

 

4.5. Вывести на печать первый отрицательный элемент массива и его порядковый номер, полагая, что в массиве есть хотя бы один отрицательный элемент.

Var

a: array [1..10] of integer;

i,k: integer;

begin

for i:= 1 to 10 do

readln (a[i]);

k:=0;

for i:= 1 to 10 do

if a[i] < then  begin

k:= k+1;

if  k=1 then writeln (‘элемент=’a[i], ‘номер=’,i);

end; end.

4.6. Вывести на печать номера элементов массива, удовлетворяющих условию 0<ai<1.

Var

a: array [1..10] of integer;

i: integer;

begin

for i:= 1 to 10 do

readln (a[i]);

for i:= 1 to 10 do

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

write (‘номер элемента=’ , i);

end.

4.7. Вычислитьz=3aibici / 3, где ai ,bi ,ci - элементы массивов, состоящие из 20 элементов каждый.

Var

a:array [1..10] of integer;

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

c:array [1..10] of integer;

i:integer;

z:extended;

Begin

for i:=1 to 10 do

read (a[i],b[i],c[i]);

for i:=1 to 10 do

Begin

z:=exp((1/3)*ln(a[i]*b[i]*c[i]/3));

write('z=',z:3);

  End;

End.

4.8. Вывести на печать элементы массива кратные трем.

Var

a: array [1..10] of integer;

i: integer;

begin

for i:= 1 to 10 do

readln (a[i]);

for i:= 1 to 10 do

if a[i] mod 3=0 then

writeln (‘элементы=’, a[i]);

end.

4.9. Вывести на печать номера точек, лежащих в круге радиусом r. Координаты точек заданы массивами (x1,x2 ,...,x10 ),(y1 ,y2 ,..,y10 ).

Var

x:array [1..10] of integer;

y: array [1..10] of integer;

z:array [1..10] of integer;

r, i: integer;

begin

for i:= 1 to 10 do

read (x[i]);

for i:= 1 to 10 do

read (y[i]);

writeln ( ‘введитеr’);

readln (r);

for i:= 1 to 10 do

ifsqr(x[i]) + sqr (y[i]) <sqr (r)  then

writeln (‘номер элемента=’, i);

end.

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

Var

a: array [1..10] of integer;

s,p,k,i: integer;

begin

for i:= 1 to 10 do

readln (a[i]);

s:=0; p:=1; k:=0;

for i:= 1 to 10 do  begin

if a[i]> 0 then s:= s+a[i]; end;

for i:= 1 to 10 do  begin

if a[i]< 0 then p:= p*a[i]; end;

for i:= 1 to 10 do  begin

if a[i] mod 2=0 then k:=k+1; end;

Writeln(‘s=’s, ‘p=’p, ‘k=’k);

End.

4.11. Найти минимальное значение элемента массива и его порядковый номер.

Var

a: array [1..10] of integer;

min, minI, i: integer;

begin

for i:= 1 to 10 do

readln (a[i]);

min:= a[i]; minI:=1;

for i:= 1 to 10 do

if a[i] < min then begin

min:= a[i]; minI:=I;

end;

writeln (‘min=’, min, ‘minI=’,minI);

end.

4.12. Найти минимальное значение элемента массива из нечетной позиции.

Var

a: array [1..10] of integer;

min, i: integer;

begin

for i:= 1 to 10 do

readln (a[i]);

min:= a[i];

for i:= 1 to 10 do

if a[i] < min then begin

min:= a[i];

ifimod 2=1 then

min:= a[i];

writeln (‘ min=’, min);

end; end.

4.13. Найти максимальное значение элемента массива и его порядковый номер.

Var

a: array [1..10] of integer;

max, maxI, i: integer;

begin

for i:= 1 to 10 do

readln (a[i]);

max:= a[i]; maxI:=1;

for i:= 1 to 10 do

if a[i] > max then begin

max:= a[i]; maxI:=I;

end;

writeln (‘max=’, max, ‘maxI=’,maxI);

end.

 

4.14. Дан массив, состоящий из 30 элементов, найти второй положительный элемент. Var

a: array [1..10] of integer;

i,k:integer;

begin

for i:= 1 to 10 do

readln (a[i]);

k:=0;

for i:= 1 to 10 do

if a[i]> 0 then k:=k+1;

if k=2 then

writeln(a[i]);

end; end.

4.15. Дан массив, состоящий из 50 элементов, найти предпоследнийнечетный элемент.

Var

a: array [1..10] of integer;

i,k: integer;

begin

k:=0;

for i:= 1 to 10 do

readln (a[i]);

for i:= 10 downto 1 do

if  a[i] mod 2= 1 then begin

k:=k+1;

if k=2 then

writeln(a[i]0:

end; end.

4.16. В одномерном массиве перенести элемент, стоящий на первом месте в конец массива.

Var

a: array [1..10] of integer;

i: integer;

begin

for i:= 1 to 10 do

readln (a[i]);

for i:= 1 to 10 do

write (a[i]);

writeln;

a[10]:= a[1];

write (a[i]);

end.

5.1. Вычислить значение функции z= √(xi+a)/ 2 , если xi являются элементами массива, a изменяется от 2 с шагом 0,5. Считатьxi+a>0

Var

a: array [1..10] of integer;

i,n,a,na,z,xi: integer;

begin

for i:= 1 to 10 do

readln (a[i]);

a:=2; na:=0,5;

read (n);

for i:= 1 to 10 do  

begin

if  xi+a> 0 then

z:= sqrt (xi + a)/ 2;

a:= a+na; end;

writeln( ‘z=,z:3:3);

end.

5.2. Вычислить значение функции z=(a+b+ci)/ i , если a изменяется от 0 до 1 с шагом 0,1, b изменяется от 1 до 3 с шагом 0,2, c i – элементы массива.

Var

c: array [1..10] of integer;

i: integer;

a,b,z: real;

begin

for i:= 1 to 10 do

readln (c[i]);

for i:= 1 to 10 do

a:=0; b:=1;

while (a<=1) and (b<=3) do

begin

z:= ( (a[i]+s+b)/i);

a:= a+0,1;

b:= b+ 0,2;

end;

writeln (‘z=’,z);

end; end.

5.3. Вычислить значения функции  u=(xi+y)/z2i-1 , если xi– массив (x1,x2,..,x50), zi – массив (z1,z2,..,z100) , а y изменяется от 1 с шагом 0,25.

Var

x: array [1..5] of integer;

y: array [1..10] of integer;

i: integer;

u,y: real;

begin

for i:= 1 to 5 do

read (x[i]);

for i:= 1 to 10 do

read (z[i]);

begin

u:= (x[i]+y)/ z[2i-1]);

y:= y+0,25;

writeln (‘u=’,u:3:3);

end; end.

5.4. Вычислить значение функции z=xyi/(x+yi ) , если xизменяется одновременно с yi от начального значения a с шагом h, где yi являются элементами массива (y1 ,y2 ,...,y20 ) .

Var

y: array [1..5] of integer;

i: integer;

a,h,z,x,u: real;

begin

for i:= 1 to 5 do

read (y[i]);

read (a,h);

u:=a;

for i:= 1 to 5 do

begin

z:= u*y[i]/(x+y[i]);

u:= a+h; end;

writln (‘z=’,z:3:3);

end.

5.8. Вычислить и запомнить значения функции zi = (x2i +1)/ i, где xi – элементы массива.

Var

x: array [1..5] of real;

z: array [1..5] of integer;

i: integer;

begin

for i:= 1 to 5 do

read(x[i]);

for i:= 1 to 5 do  begin

z[i]:= sqrt(sqr (x[i]) +1)/i);

writeln (‘z[i]=’, z[i]:3:3);

end; end.

5.9. Вычислить и запомнить значения функции z=aebx-cx2  при изменении аргумента xот 0 до 2 с шагом 0,1.

Var

x:array [1..20] of integer;

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

I,a,b,c:integer;

X:real;

Begin

x:=0;

for i:=1 to 20 do

read (x[i]);

for i:=1 to 20 do

begin

z[i]:=a*exp((b*x-c*sqr(x))ln(e));

x:=x+0,1;

write ('z[i]=',z[i]:0:1);end;

End.

5.10. Вычислить и запомнить значения функции zi =(xi +yi )/ 2, где x,y – массивы из 45 элементов каждый.

Var

x: array [1..5] of integer;

y: array [1..5] of integer;

z:array [1..5] of integer;

i: integer;

begin

for i:= 1 to 5 do

read (x[i]);

for i:= 1 to 5 do

begin

z[i]:= (x[i]+y[i])/2; end

for i:= 1 to 5 do

writeln (‘z[i]=’,z[i]:3:3);

end.

5.11. Вычислить и запомнить значения функции

-1, если xi<= 0,

yi=0, если xi= 0;

yi=xi , если xi< 0 , где xi– элементы массива из 20 элементов.

Var

x: array [1..20] of integer;

y,i: integer;

begin

for i:= 1 to 20 do

read (x[i]);

for  i:= 1 to 20 do begin

x[i]:= random(20);

y[i]:= random (20);

for i:= 1 to 20 do begin

if x[i]<0 then y:= x[i];

if x[i]= 0 then y[i]:=0;

if x[i]<= 0 then y[i]:=-1;

end; end;

writeln(y[i]);

end.

5.12. Записать положительные элементы массива (x1 ,x2 ,...x30 ) подряд в массив Y . Var

x: array [1..10] of integer;

y:array [1..10] of integer;

i:integer;

begin

for i:= 1 to 10  do

read(x[i]);

for i:= 1 to 10 do

begin

if x[i]>0 then y[i]:= x[i];

writeln (‘y[i]=’,y[i]);

end; end.

5.13. Переписать в массив Y элементы массива (x1 ,x2 ,...x30 ) в обратном порядке.

Var

x: array [1..30] of integer;

y: array [1..30] of integer;

i: byte;

begin

for i:= 1 to 30 do

read (x[i]);

for i:= 1 to 30 do  

begin

x[i]:= random (31-15);

write(x[i]:4);

end;

writeln;

writeln(‘МассивY’);

fori:= n downto 1 do  

begin

y[abc(i-n)+1]:= x[i];

write (y[abc(i-n)+1]:4);

end; readln;

end.

5.23.Вычислить произведение положительных элементов массива.

Var

x: array [1..10]  of integer;

p,i: integer;

begin

for i:= 1 to 10 do

read(x[i]);

p:=1;

for i:= 1 to 10 do  

begin

if x[i]> 0 then p:=p*x[i]; end;

writeln (‘p=’,p);

end.

5.25. Вычислить значения функции z= П15i=1 (n+i)/ i

Var

a:array[1..15] of integer;

i,n:integer;

p,y:real;

Begin

for i:=1 to 15 do

read (a[i]);

read(n);

p:=1;

for i:=1 to 15 do

Begin

y:=(n+i)/i;

p:=p*y;

  End;

writeln ('p=',p);

End.

5.26. Вычислить сумму положительных элементов массива (x1,x2,…,x55).

Var

x: array [1..10]  of integer;

s,i: integer;

begin

for i:= 1 to 10 do

read(x[i]);

s:=0;

for i:= 1 to 10 do  

begin

if x[i]> 0 then s:=s+x[i]; end;

writeln (‘s=’,s);

end.

5.27. Вычислить среднее арифметическое элементов массива. Const n

Var

x: array [1..n]  of integer;

s,i,Sa,k: integer;

begin

for i:= 1 to 10 do

read(x[i]);

s:=0; Sa:=0; k:=0;

for i:= 1 to n do  

begin

s:=s+x[i] ; end;

Sa:=s/n;

writeln (‘Sa=’,Sa);

end.

5.28. Вычислить среднее арифметическое отрицательных элементов массива, полагая, что в массиве есть отрицательные значения.

Const n

Var

x: array [1..n]  of integer;

s,i,Sa,k: integer;

begin

for i:= 1 to 10 do

read(x[i]);

s:=0; Sa:=0; k:=0;

for i:= 1 to n do  

begin

if x[i]< 0 then  begin

k:=k+1; s:=s+x[i] ; end;

Sa:=s/k;

writeln (‘Sa=’,Sa);

end.

5.29. Вычислить среднее геометрическое положительных элементов

массива, имеющих четные индексы. Если таких элементов нет, то вывести на

печатьпризнак 0.

Var

a: array [1..10] of integer;

k,i,p: integer;

Sg: real;

Begin

for i:= 1 to 10 do

read (a[i]);

k:=0; p:=1;

for i:= 1 to 10 do

if (a[i]>0) and (i mod 2 =0) then begin

k:=k+1; p:=p*a[i]; else write(‘0=’,0);end;

Sg:=exp(k*ln(p));

Writeln (‘Sg=’,Sg);

End.

5.30. Вычислить среднее геометрическое элементов массива, удовлетворяющих условию yi>a, считая, что в массиве есть элементы, для которых выполняется это условие.

Var

y: array [1..10] of  integer;

a,i,p,k: integer;

Sg: real;

Begin

for i:= 1 to 10 do

read (y[i]);

read (a);

k:=0; p:=1;

for i:= 1 to 10 do

ifyi> a then  begin

k:=k+1; p:= p*y[i];

end;

Sg:=exp(k*ln(p));

Writeln(‘Sg=’,Sg);

End.

5.31. Подсчитать количество элементов целочисленного массива, кратных трем. Var

x: array [1..10]  of integer;

i,k: integer;

begin

for i:= 1 to 10 do

read(x[i]);

k:=0;

for i:= 1 to 10 do  

begin

if x[i] mod 3=0 then

k:=k+1; end;

writeln (‘k=’,k);

end.

5.64. Найти наименьшее значение функции y=ax3 +bx2 +cx+d и значение аргумента, при котором оно получено. Значение аргумента xизменяется от 0 до 10 с шагом 0,1.

Var

a,b,c,d:integer;

x,h, y, y min, argx: real;

begin

read(a,b,c,d);

x:=0; h:=0,1;

y min:= exp(19* ln(10));

while x<= 10 do begin

y:= a*x*x*x+b*x*x+c*x+d;

if y< y min  then y min:=y;

arg x:=x; end;

x:=x+h; end;

writeln (‘y min=’, y min, ‘arg x=’,arg x);

end.

5.70. Для массива вычислить наибольшее и наименьшее значения модуля разности между соседними элементами. Var

a: array [1..5] of integer;

min, max, x, i: integer;

begin

for i:= 1 to 5 do

read(a[i]);

min:= abs (a[1]-a[2]);

max:= abs (a[1]-a[2]);

for i:= 1 to 5 do begin

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

if x> max then max:=x;

if x<min then min:= x; end;

writeln( ‘max=’,max, ‘min=’,min);

end.

5.72. Найти наибольший элемент главной диагонали матрицы и вывести на печать всю строку, в которой он находится.

Var

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

maxi, maxj: byte;

i,j: integer;

begin

for i:= 1 to 5 do

for j:= 1 to 5 do

read(a[i,j]);

maxi:=1; maxj:=1;

for i:= 1 to 5 do

for j:= 1 to 5 do

if  (i=j)  and (a[i,j]> a[maxi, maxj]) then

begin

maxi:=i; maxj:=j;

end;

write( maxi);

for j:= 1 to 5 do

Write( a[ maxi,j]:4);

End.

5.73. Найти наименьший из положительных элементов массива.

Var

a: array [1..5] of integer;

y min, i: integer;

begin

for i:= 1 to 5 do

read (a[i]);

y min:= a[1];

for i:= 1 to 5 do

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

begin

y min:= a[i]; end;

writeln (‘y min=’, y min);

end.

№1. В двумерном массиве удалить  столбец с №k

usescrt;

Var

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

i,j,k: integer;

Begin

For i:=1 to 5 do

for j:=1 to 5 do

read (a[i]);

Writeln('Введитеномерстолбца');

readln(k);

for i:=1 to 5 do

for j:=k to 4 do begin

a[i,j]:=a[i,j+1];

a[I,5]:=0;end;

for i:=1 to 5 do begin

for j:=1 to 5 do

Writeln;

For j:=1 to 5 do begin

Writeln (a[i,j]);

end;end.

№2.Дан двумерный массив, поменять столбец, содержащий максимальный элемент, с первым столбцом матрицы.

Var

a: array [1..5] of integer;

z,i,j,max, maxj: integer;

begin

for i:= 1 to 5 do

for j:= 1 to 5 do

read(a[i,j]);

max:= a[1,1]; maxj:=1;

for i:= 1 to 5 do

for j:= 1 to 5 do

if a[i,j] > max then

begin

max:=a[i,j]; maxj:= j;

end;

for i:= 1 to 5 do  begin

for j:= 1 to 5 do

z:= a[1,j];

a[1,j]:=a[maxi,j];

a[maxi,j]:=z; end;

for i:= 1 to 5 do  begin

for j:= 1 to 5 do

Writeln( a[i,j]:3);

end;end.

№3. Дан двумерный массив, удалить строку, в которой встретиться второй отрицательный элемент.

Var

a: array [1..5] of integer;

i,j,k,str: integer;

begin

for i:= 1 to 5 do

for j:= 1 to 5 do

read(a[i,j]);

str:=1; k:=0;

for i:= 1 to 5 do

for j:= 1 to 5 do

if a [i,j] < 0 then begin

k:=k+1;

if k=2 then str:=i; end;

for i:= 1 to 5 do

for j:= 1 to 5 do

a[i,j] “= a[i+1,j];

for i:= 1 to 5 do begin

for j:= 1 to 5 do

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

writeln; end;

end.

№4.  Дан двумерный массив, удалить третий четный элемент.

Var

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

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

i,j,k,n,p: integer;

begin

p:=1;

for i:= 1 to 5 do

for j:= 1 to 5 dobegin

read (a[i,j]);

b[p]:= a[i,j];

p:=p+1; end;

for i:= 1 to 5 do begin

for j:= 1 to 5 do

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

k:=0; n:=1;

for i:=  1 to 25 do

if b[i] mod 2 =0 then begin

k:=k+1;

if k=3 then n:=I; end;

for i:= n to 24 do

b[i]:=b[i+1];

b[25]:= 0;

p:=1;

for i:= 1 to 5 do begin

for j:= 1 to 5 do

a[i,j]:= b[p];

p:= p+1;

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

end; end;end.

№5.Дан одномерный массив, вставить число 100 после пятого элемента массива.

Constn=10

Var

a: array [1..10] of integer;

i,k,x: integer;

begin

for i:= 1  to n do

read( a[i]);

read(k);

read(x);

for i:= n downto k do

a[i+1]:= a[i];

a[k]:=x;

for i:= 1 to n+1 do

writeln (a[i]);

end.

№6.Дан одномерный массив, вставить число 100 перед пятым элементом массива.

Constn=10

Var

a: array [1..10] of integer;

i,k,x: integer;

begin

for i:= 1  to n do

read( a[i]);

read(k);

read(x);

for i:= n downto k do

a[i+1]:= a[i];

a[k+1]:=x;

for i:= 1 to n+1 do

writeln (a[i]);

end.

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

«Ульяновский Государственный технический Университет»

Отчет по информатике

Выполнил: студент группы ЭАбд-12

Козлов К.Н.

Проверил: доцент кафедры ЭП и АПу

Петрова М.В.

г.  Ульяновск – 2013




1. СанктПетербургский государственный университет технологии и дизайна УТВЕРЖДАЮ Проректор по учеб
2. на тему-Энергетические ресурсы Тихого океана Выполнил-Горняков А.
3. 122005 N 199ФЗ от 31
4. Грегор Одной из них является иерархическая теория потребностей А
5. Нормативы Центрального Банка Российской Федерации
6. Наш государственный строй говорил один из прославленных вождей афинской демократии Перикл не подражает
7. Школа ’48 города Набережные Челны Республики Татарстан Музыкальнолитературный вечер посвящен
8. Тема 2.2. Программное обеспечение для дизайнераполиграфиста.html
9. Характеристика поведения и психического отражения на стадии сенсорной психики
10. Storing dt Bckup copy Резервна копія Directory Катал.html