Министерство образования и науки российской федерации
Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования
«Ульяновский государственный технический университет» Отчёт по информатике
Выполнил:
студент группы Эбд-11
Тимофеев Д.Н.
Проверила: доцент кафедры ЭП и АПУ
Петрова М. В.
Ульяновск
2015
4.1. Вычислить значения функции z=sqrt( (xi+ai )/ 2) , если xi и ai – элементы массивов, состоящие из 40 элементов каждый.
var
x,a:array[1..40] of integer;
z:real;
i:integer;
begin
randomize;
for i:=1 to 40 do begin
a[i]:=random(25);
x[i]:=random(25);
end;
for i:=1 to 40 do begin
z:=sqrt((x[i]+a[i])/2);
writeln(i,', ',z);
end;
end.
4.2. Записать в массив x , состоящий из 20 элементов, нули.
var
X: array [1..20] of integer;
begin
for i:=1 to 20 do
x[i]:=0;
end.
4.3. Вычислить значения функции, если ai – элементы массива:
ai =ai , если ai >0
ai =0, если ai≤0.
var
a:array[1..10] of integer;
I:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(25)-8;
writeln(a[i]);
end;
writeln();
for i:=1 to 10 do begin
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
randomize;
for i:=1 to 10 do begin
a[i]:=random(25);
end;
for i:=1 to 10 do
begin
if a[i]>0 then writeln(a);
end;
end.
4.5. Вывести на печать первый отрицательный элемент массива и его
порядковый номер, полагая, что в массиве есть хотя бы один отрицательный
элемент.
var
a:array[1..10] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(25)-8;
writeln(a[i]);
end;
writeln();
s:=0;
for i:=1 to 10 do begin
if a[i]<0 then s:=s+1;
if s=1 then writeln(i,', ',a[i]);
end;
end.
4.6. Вывести на печать номера элементов массива, удовлетворяющих
условию 0<ai<1.
var
a: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(25)-10;
writeln(a[i]);
end;
for i:=1 to 10 do begin
if a[i]>0 do
if a[i]<1 do
writeln(i);
end;
end.
4.7.
Вычислить
,
где
ai
,bi ,ci
- элементы
массивов,
состоящие из 20 элементов каждый.
var
a,b,c: array[1..20] of integer;
I:integer;
z:real;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(25)-10;
b[i]:=random(25)-10;
c[i]:=random(25)-10;
end;
writeln();
for i:=1 to 20 do begin
z:=(1/3*ln(a[i]*b[i]*c[i]/3))
writeln(i,', ',z);
end;
end.
4.8. Вывести на печать элементы массива кратные трем.
var
a: array [1..10] of integer;
I: integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(25)-10;
writeln(a[i]);
end;
writeln();
for i:=1 to 10 do
begin
if a[i] mod 3=0 then do
writeln(a[i]);
end;
end.
4.10. В одномерном массиве найти сумму положительных, произведение
отрицательных, количество четных элементов.
var
a:array[1..30] of integer;
i,s,p,k:integer;
begin
randomize;
for i:=1 to 30 do begin
a[i]:=random(25)-10;
writeln(a[i]);
end;
writeln();
s:=0; p:=1; k:=0;
for i:=1 to 30 do begin
if a[i]>0 then s:=s+a[i];
if a[i]<0 then p:=p*a[i];
if a[i] mod 2=0 then k:=k+1;
end;
writeln('сумма ',s,' произведение отричательных ',p,' количество чётных ',k);
end.
4.11. Найти минимальное значение элемента массива и его порядковый
номер.
var
a: array [1..10] of integer;
min,k,i: integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(25)-10;
writeln(a[i]);
end;
min:=100000000;
for i:=1 to 10 do begin
if a[i]<min then do
begin
min:=a[i];
k:=i;
end;
end;
writeln(‘минимальный элемент равен ‘,min,’,номер ’,k);
end.
4.12. Найти минимальное значение элемента массива из нечетной позиции.
var
a:array[1..15] of integer;
i,min:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(25)-10;
writeln(a[i]);
end;
writeln();
min:=a[1];
for i:=1 to 15 do
if (i mod 2=1) and (a[i]<min) then min:=a[i];
writeln('минимальный элемент равен ',min);
end.
4.13. Найти максимальное значение элемента массива и его порядковый
номер.
var
a: array [1..10] of integer;
max,k,i: integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(25)-10;
writeln(a[i]);
end;
max:=-100000000;
for i:=1 to 10 do begin
if a[i]>max then do
begin
max:=a[i];
k:=i;
end;
end;
writeln(‘максимальный элемент равен ‘,max,’,номер ’,k);
end.
4.14. Дан массив, состоящий из 30 элементов, найти второй
положительный элемент.
var
a:array[1..15] of integer;