Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
SOLISOUL
1 / 1 / 0
Регистрация: 21.12.2009
Сообщений: 31
#1

Пройти тест по программированию

02.01.2013, 13:19. Просмотров 1602. Ответов 2
Метки нет (Все метки)

Кликните здесь для просмотра всего текста
31. При выводе элементов одномерного массива используется алгоритм …
1. for i:=1 to n do write(a[i],’ ‘);
2. for i:=1 to n do write(a[n],’ ‘);
3. for i:=1 to n do write(I,’ ‘);
4. i:=1;while i<=n do write(a[i],’ );
5. i:=1; repeat write(a[i],’ ‘); until i>n;

Кликните здесь для просмотра всего текста
32. Вывод элементов одномерного массива можно организовать с помощью алгоритма …
1. i:=1;repeat write(a[i],’ ‘);i:=i+1;until i>n;
2. for i:=1 to n do write(a[n],’ ‘);
3. for i:=1 to n do write(I,’ ‘);
4. i:=1;while i<=n do write(a[i],’ );
5. i:=1; repeat write(a[i],’ ‘); until i>n;

Кликните здесь для просмотра всего текста
33. При проверке элементов массива на выполнение поставленного условия правильным является алгоритм …
1. flag:=0; for i:=1 to n do if <условие> then flag:=1;
2. for i:=1 to n do if <условие> then <действие 1> else <действие 2>;
3. for i:=1 to n do if <условие> then <действие>;
4. for i:=1 to n do a[i]:=<действие>:
5. i:=1; while i<=n do <действие>;

Кликните здесь для просмотра всего текста
34. Результатом выполнения указанного алгоритма является …
K:=1;For i:=2 to n do if a[i]>a[k] then k:=I;
1. максимальный элемент массива
2. номер максимального элемента массива
3. количество максимальных элементов в массиве
4. номер последнего положительного элемента массива
5. минимальный элемент массива

Кликните здесь для просмотра всего текста
35. Если будет выполнена программа, то результат её выполнения имеет вид:
Pascal
1
2
3
4
5
6
7
8
9
10
   Var B:array[1..10]of integer; L,i:Integer;
   Begin
     L:=1;
     For i:=1 to 20 do
      if odd(i) then 
       Begin
        B[L]:=sqr(i); L:=L+1;
      End;
For i:=1 to 10 do  Write(B[L]:4);
End.
1. 1 9 25 49 81 121 169 225 289 361
2. 2 4 6 8 10 12 14 16 18 20
3. 4 16 36 64 100 144 196 256 324
4. 4 9 16 25 49 81 121 169 225 289
5. 1 4 9 16 25 36 49 64 81 100

Кликните здесь для просмотра всего текста
36. При выполнении указанного фрагмента программы тело цикла выполнится … раз
k:=0; for i:=1 to k+4 do s:=s+2;
1. 6
2. 8
3. 4
4. 10
5. 12

Кликните здесь для просмотра всего текста
37. Правильным вариантом сортировки массива В[10] по возрастанию является …
1.
Pascal
1
2
3
for i:=1 to 9 do
           for j:=1 to 9 do
               if a[i]>a[j] then begin c:=a[i];a[i]:=a[j];a[j]:=c end;
2.
Pascal
1
2
3
for i:=1 to 9 do
           for j:=1 to 10 do
   if a[i]>a[j] then begin c:=a[i];a[i]:=a[j];a[j]:=c end;
3.
Pascal
1
2
3
for i:=1 to 9 do    
        for j:=i+1 to 10 do
            if a[i]>a[j] then begin c:=a[i];a[i]:=a[j];a[j]:=c end;
4.
Pascal
1
2
3
for i:=1 to 9 do
         for j:=1 to 9 do
            if a[i]<a[j] then begin c:=a[i];a[i]:=a[j];a[j]:=c end;
5.
Pascal
1
2
3
for i:=1 to 9 do
         for j:=i+1 to 10 do
           if a[i]<a[j] then begin c:=a[i];a[i]:=a[j];a[j]:=c end;

Кликните здесь для просмотра всего текста
38. Алгоритмом нахождения номера максимального элемента массива является:
1
Pascal
1
2
max:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
2
Pascal
1
2
max:=a[1];
           for i:=2 to n do if a[i]>max then max:=a[i]; k:=I;
3
Pascal
1
2
max:=a[1];
         for i:=2 to n do if a[i]>max then begin max:=a[i]; k:=i;end;
4
Pascal
1
2
max:=a[1];k:=1;
         for i:=2 to n do if a[i]>max then begin max:=a[i];k:=i;end;
5
Pascal
1
2
max:=a[k];
           for i:=2 to n do if a[i]>max then k:=i;

Кликните здесь для просмотра всего текста
39. При выполнении фрагмента программы при заданном массиве 3, 8, 7, 9, 4, 10, 2, 12 оператор m:=a[k] будет повторяться … раз
Pascal
1
2
3
4
var a: array[1..8] of integer; m, k: integer;
       begin for k:=1 to 8 do readln(a[k]);
          m:=a[k]; write(m)
       end.
1. 7
2. 8
3. 4
4. 1
5. 5

Кликните здесь для просмотра всего текста
40. Переменная k после исполнения фрагмента программы при x=7 для массива: 2, 3, 5, 7, 9, 12, 0, 7, 6, 7
k:=1; while (a[k]<>x) and (k<=10) do k:=k+1; примет значение:
1. 8
2. 1
3. 10
4. 4
5. 7

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.01.2013, 13:19
Ответы с готовыми решениями:

Пройти тест
Здравствуйте, помогите пройти тест по Pascal. По болезни пропустил очень много...

Тест по программированию
41. Результатом выполнения алгоритма над элементами массива является действие …...

тест по программированию
Нужна помощь на тесте по программированию. Он будет проходить 17.01.2017...

Кто может помочь пройти онлайн тестирование?
Основы алгоритмизации и языки программирования.

Может ли шар радиуса r пройти через ромбовидное отверстие с диагоналями p и q ?
Может ли шар радиуса r пройти через ромбовидное отверстие с диагоналями p и q ?

2
Fakeoke
314 / 314 / 201
Регистрация: 28.07.2011
Сообщений: 1,849
02.01.2013, 13:49 #2
31.1
32.1
33.1
34.2
35.3
36.3
37.3?
38.4
39.2
40.4
1
domovou2.0
Дзæуджыхъæу
231 / 203 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
02.01.2013, 16:48 #3
Ты нас проверяешь? Или тебе помочь решить надо.
Fakeoke, в 37 - 3 правильно)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.01.2013, 16:48

Может ли шар радиуса R пройти сквозь ромбовидное отверстие с диагоналями P и Q?
1. 1.Ромб и шар. Может ли шар радиуса R пройти сквозь ромбовидное отверстие с...

Проверить, может ли шар с радиусом r пройти через ромбовидное отверстие с диагоналями p и q
Проверить, может ли шар с радиусом r пройти через ромбовидное отверстие с...

Каждая из деталей должна последовательно пройти обработку на каждом из трех станков.
Условие: Каждая из деталей должна последовательно пройти обработку на каждом из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru