Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 12, средняя оценка - 4.75
SOLISOUL
1 / 1 / 0
Регистрация: 21.12.2009
Сообщений: 31
#1

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

02.01.2013, 13:19. Просмотров 1560. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Пройти тест по программированию (Turbo Pascal):

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

Тест по программированию - Turbo Pascal
41. Результатом выполнения алгоритма над элементами массива является действие … For i:=1 to n div 2 do Begin C:=a;a:=a;a:=c End; ...

тест по программированию - Pascal
Нужна помощь на тесте по программированию. Он будет проходить 17.01.2017 8:00-9:00 по Московскому времени. Всего будет 30 вопросов. Время...

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

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

Может ли шар радиуса R пройти сквозь ромбовидное отверстие с диагоналями P и Q? - Pascal
1. 1.Ромб и шар. Может ли шар радиуса R пройти сквозь ромбовидное отверстие с диагоналями P и Q? Var R, Q, P, B:integer; ...

2
Fakeoke
312 / 312 / 95
Регистрация: 28.07.2011
Сообщений: 1,842
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 / 202 / 38
Регистрация: 20.09.2012
Сообщений: 423
Записей в блоге: 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
Привет! Вот еще темы с ответами:

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

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

Найти кратчайшее расстояние, которое необходимо пройти сторожу, чтобы накормить обеих собак - Turbo Pascal
Задали сделать вот такую логическую задачу, я уже 2 часа над ней мучаюсь в голову ничего не лезет, мот вы сможете помочь ? В...

пройти тест - C++
1) Результат фрагмента программы for (int i=1; i&lt;=3; i++) { cout &lt;&lt;”i”; } Выберите один ответ. фрагмент кода содержит...


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

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

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