проверочная работа по теме «одномерные массивы»
вариант 2
1. отметьте верные высказывания:
массивы - это организации данных
размерность массива - количество элементов в массиве
одномерный массив имеет размерность 1
массивы позволяют использовать циклы для своей обработки
тип массива определяется типом своих элементов
таблица умножения - одномерный массив
2. массив состоит из 3-х элементов, которые определяются по формуле с[i]: =i-5. определите с[3]:
-2
3
2
-3
3. какие типы циклов существуют в языке паскаль?
for
while
loop
4. массив d состоит из нечетных чисел от 11 до 21. установите количество элементов массива:
0
2
5
6
5. элементы массива f[1..6] равны соответственно 6, 5, 4, 3, 2, 1.
укажите значение выражения f[ f[ f[ 3 ] ] ] – f[ f[ 2 ] – f[ 4 ] ] .
6. пусть в массиве а хранятся следующие числа: 2,7,10,2,5. какое число будет выведено на экран в результате выполнения этого фрагмента:
n: =1;
for i: =1 to 5 do
if a[i] mod 2=0 then n: =n*2;
write(n);
3
6
8
0
7. вводится одномерный массив размерностью 40 для обработки данной программой. что делает программа?
program pr;
var a: array [1..40] of integer;
i,p,n: integer;
begin
for i: =1 to 40 do
readln (a [i] ) ;
for i: =1 to 40 div 2 do
begin
p: =a[i] ;
a[i]: =a[n-i+1] ;
a[n-i+1]: =p;
end;
for i: =1 to n do
writeln (a [i] ) ;
end.
данная программа осуществляет:
перестановку наибольшего и наименьшего значений;
меняет местами значения элементов, стоящие на четных местах, со значениями элементов, стоящими на нечетных местах;
меняет порядок следования значений элементов в массиве на обратный порядок.
в следующих запишите ответ (число, слово или команду)
8. что определяет количество индексов массива?
9. запишите имя массива, если он имеет элементы mas[1],
10. задавая разные значения элементам массива, можно изменить размерность массива?
в следующих запишите программы.
11.
дана программа нахождения суммы всех элементов массива. изменить программу таким образом, чтобы:
1) массив состоял из 25 элементов целого типа;
2) значения элементов массива должны меняться в интервале от 1 до 30;
3) в результате выполнения программы должна быть найдена сумма квадратов всех элементов массива.
program massiv;
const n=10;
var a: array[1..n] of real;
s,i: integer;
begin
writeln('исходный массив: ');
for i: =1 to n do
begin
a[i]: =random(10);
write('a[',i,']=',a[i],' ');
end;
s: =0;
for i: =1 to n do
s: =s+a[i];
writeln('сумма всех элементов массива s=',s);
end.
12.
напишите программу получения из заданного целочисленного массива размером 30 элементов другого массива, который будет содержать модули значений элементов первого массива (не используя специальной функции, вычисляющей модуль числа).
Var S,A:integer;
Begin
S:=0;
For A:= 5 to 45 do
if A mod 4 = 0 then S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 260
Вторая программа:
Var A,S:integer;
Begin
S:=0;
For A:= 79 to 205 do
if A mod 2 <> 0 then S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 9088
Третья программа:
Var
x:byte;
Begin
WriteLn('f(x) = x^2');
For x:= 1 to 20 do
WriteLn('f(',x/2:3,') = ',Sqr(x/2))
End.
Результат работы программы:
f(x) = x^2
f(0.5) = 0.25
f( 1) = 1
f(1.5) = 2.25
f( 2) = 4
f(2.5) = 6.25
f( 3) = 9
f(3.5) = 12.25
f( 4) = 16
f(4.5) = 20.25
f( 5) = 25
f(5.5) = 30.25
f( 6) = 36
f(6.5) = 42.25
f( 7) = 49
f(7.5) = 56.25
f( 8) = 64
f(8.5) = 72.25
f( 9) = 81
f(9.5) = 90.25
f( 10) = 100
VAR A: integer; B: string;BEGINB:=('Число отрицательно.');READLN(A);IF A>0 THENB:=('Число положительное.');writeln(B);end.
2)
VAR A,B: integer;BEGINREADLN(A);READLN(B);WRITELN('1 число: ',A);WRITELN('2 число: ',B);END
3)
VAR a,b,c,d,e,t,y: integer;BEGINreadln(a);readln(b);readln(c);readln(d);readln(e);t:=a+b+c+d+e;y:=a*b*c*d*e;writeln(t);writeln(y);END.
4)
var a,b,c: integer;beginwrite('1 число: ');readln(a);write('2 число: ');readln(b);write('3 число: ');readln(c);write('Наибольшое из введёных чисел: ');if (a>b) and (a>c) thenwriteln(a)elseif (b>a) and (b>c) thenwriteln(b)elsewriteln(c);end.
Вообщем вот. Программки "Фигня", если более сложные нужно написать, то напиши сюда.