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