Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Ивано-Франковский национальный технический университет нефти и газа

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Тести з інформатики1.doc

Скачиваний:

Добавлен:

17.09.2019

Размер:

121.34 Кб

Скачать

☆

<<< < Предыдущая 1 23 / 33

I:integer; maxA:real;

begin

i:=1; maxA:=A[1];

repeat

if A[i]>maxA then

maxA:=A[i]; i:=i+1;

until i=15;

write(maxA); end.

Який з фрагментів програми пошуку мінімального елементу не містить помилок:

в) var a:array[1..20] of real; i:integer;

minA:real;

begin

minA:=A[1];

for i:=2 to 20 do begin

if A[i]<minA then

minA:=A[i]; end;

writeln(minA);

end.

. Який з фрагментів програми пошуку мінімального елементу не містить помилок:

a) var a:array[1..15] of real; i:integer; minA:real;

begin

minA:=A[1]; i:=1;

while i<=15 do begin

if A[i]<minA then

minA:=A[i]; i:=i+1; end;

writeln(minA); end.

Який з фрагментів програми пошуку мінімального елементу не містить помилок:

в) var a:array[1..15] of real; i: integer; minA: real;

begin

i:=1; minA:=A[1];

repeat

if A[i]<minA then

minA:=A[i];

i:=i+1;

until i>15;

write(minA); en

Який з фрагментів програми знаходження суми елементів масиву не містить помилок:

в) var a:array[1..10] of real;

I:integer; s:real;

begin

s:=0;

for i:=1 to 10 do begin

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

writeln(s:4:2); end.

Який з фрагментів програми сортування масиву в порядку зростання не містить помилок:

г) var a:array[1..20] of integer; n,i,j,c : integer;

begin

for j:=1 to n-1 do

for i:=1 to n-1 do

if a[i]>a[i+1] then begin

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

for i:=1 to n do

write(a[i]:4); end.

Який з фрагментів програми знаходження добутку елементів масиву не містить помилок

в) var a:array[1..10] of real; i:integer; d:real;

begin

d:=1;

for i:=1 to 10 do begin

d:=d*A[i]; end;

writeln(d:4:2); end.

Який з фрагментів програми знаходження кількості парних елементів масиву не містить помилок:

б) var a:array[1..20] of real;

k,i:integer;

k:=0;

for i:=1 to 20 do

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

writeln(k:2:0); end.

Який з фрагментів програми обчислення суми додатніх і кількості від’ємних елементів масиву, не містить помилок:

г) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var I, q : 0 .. N; sum: LongInt;

Begin

sum:=0; q:=0;

for i:=1 to n do begin

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

if a[i]<0 then q:=q+1; end;

writeln(‘Сума додатніх членів : ’, sum);

writeln(‘Кількість від’ємних членів : ’, q ); readln; End.

Який з фрагментів програми знаходження непарних елементів масиву не містить помилок:

a) var a:array[1..20] of integer; k,i:integer;

begin

for i:=1 to 20 do

if A[i] odd 2=1 then writeln(A[i]:4:2);

end; end.

Який з фрагментів програми обчислення кількості таких і, що а_і не менше всіх попередніх, не містить помилок:

a) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, max, q : Integer;

Begin

q:=1; max:=a[1];

for i:=2 to n do

if a[i]>=max then begin max:=a[i]; Inc(q) end;

write(q); readln; End.

Який з фрагментів програми заміни всіх членів послідовності а₁, . . а_n більше 7 числом 7, не містить помилок:

б) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, q , n : Byte;

Begin

q:=0;

for i:=1 to n do begin

if a[i]>7 then begin a[i]:=7; Inc(q); end;

Який з фрагментів програми обчислення кількості чисел, більших середнього арифметичного членів послідовності а₁, . . а_n, не містить помилок:

г) const n=10;

Var a : array [1..n] of Real = (10.4, -2.7, 12.1, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 9.3);

i, q : Byte; sum : Real;

Begin q:=0; sum:=0;

for i:=1 to n do sum:=sum+a[i];

sum:=sum/n;

for i:=1 to n do if a[i]>sum then Inc(q);

writeln(q); readln; End.

Який з фрагментів програми обчислення кількості максимальних чисел членів послідовності а₁, . . а_n, не містить помилок:

д) const n=10;

Var a : array [1..n] of Real = (10.4, -2.7, 17, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 17);

i, q : Byte; max : Real;

Begin q:=1; max:=a[1];

for i:=2 to n do

if a[i]>max then

begin max:=a[i]; q:=1; end

else if a[i]=max then Inc(q);

writeln(q); readln; End.

Який з фрагментів програми пошуку номера елемента х в послідовності а₁, . . а_n, не містить помилок:

д) const x=13; n=10; a : array [1..n] of Real = (10, 6, 55, -1, 13, 6, 29, -80, 1, -16);

Var i : 1 . . n;

Begin i:=1;

while (a[i]< >x) and (i<n) do Inc(i);

if a[i]< >x then write (‘Заданого елемента немає! ’)

else write (‘Номер елемента : ’, i); end.

Яка з перерахованих функцій обчислює експоненту аргумента?

г) exp(x)

Які значення приймає логічна змінна (змінна типу boolean)?

в) false або trueї

Якщо для визначення елементу масиву потрібно вказати одну координату (порядковий номер), то такий

а) одновимірним

Яке значення отримає X після виконання програми: program modula; var X:integer; begin X:=2; if X-X*X>0 then X:=-X else X:=X-2; writeln(X:5); end.

г) 0

Перераховано типи логічних даних. Вкажіть лишній…

б) byte

Перераховані деякі оператори Паскаля. Виберіть оператор читання, виводу і присвоювання:

в) readln writeln :=

Програма FOR I:=1 TO N DO WRITELN(А[I]:4); означає...

б) виведення елементів масиву в стовпець

Програма FOR I:=1 TO N DO WRITE(А[I]:4); означає...

а) виведення елементів масиву в рядок

Задана програма. Вкажіть, який алгоритм використовується. program alg; var S,I:integer; begin S:=0; for I:=1 to 100 do S:=S+I*I; write(S:5) end.

в) циклічний

Задана програма. Вкажіть, який алгоритм використовується. program alg; var A,B:integer; begin B:=5; A:=B + 19; write(A, B:5) end.

а) лінійний

Задана програма. Вкажіть, який алгоритм використовується. program alg; var S, I:integer; begin write(' S= ');readln(S); if S>0 then I:=S else I:=S*S; write(S, I:5) end

б) розгалужений

Задано фрагмент програми на Паскалі. Визначити типи змінних A,B і C: program alg; var A:real; B:integer; C:boolean;

в) A - дійсного типу, B - цілого типу, C - логічного типу