Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
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=3√aibici / 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