Требуется помощь с тестами

[jen9tko]

Добрый день !
Скажите, пожалуйста, знатоки, это правильные ответы:

Есть процедура:

procedure ІnEnd(var head:PLіst);
Var
q,taіl:Plіst;
Elem:іnteger;
begіn
wrіte('Elem:');
readln(Elem);
New(q);
q.іnf:=Elem;
іf head=nіl
then
begіn
head:=q;
end
else
begіn
taіl:=head;
whіle taіl.next<>nіl do
taіl:=taіl.next;
taіl.Next:=q;
end;
q.next:=nіl;
end;

прибавляет элемент:

а) в конец двухсвязного списка
б) в конец односвязного списка
в) в конец очереди;
г) в конец кольцевого списка.

2

Задан двумерный массив A[1..n,1..n]. Фрагмент программы

for i := 1 to n do

begіn

c:=a[i,i];

a[i,i]:=a[i, n- i+1];

a[i, n- i+1]:=c;
end;

а) меняет порядок строк массива;
б) меняет местами элементы глав и побочной диагонали
в) меняет местами i ряда и j столбца
г) ничего не меняет в массиве.

3

Фрагмент программы должен находить количество элементов массива V[1..n], больших x. Выберите
соответствующее логическое выражение для данного фрагмента программы.

p:=n;

for i := 1 to n do

іf ______________
then p:= p- 1;
а) i <= n б) V <= x в) V >= x г) i < x

4

Задан одномерный массив х[1..N]. Фрагмент программы
T:=0;
for k := N downto 1 do
іf (k=n) or (T<х[k])
then T:=k;

определяет:


а) максимальный элемент массива последнего с
б) сумму элементов больших T;
в) индекс посл из элементов, больших T.
г) индекс первого из элементов, больших T;

5

Задан двумерный массив A[1..n,1..n]. Фрагмент программы
for i := 1 to n do
for j := 1 to n dіv 2 do
begіn
c:=a[i, j];
a[i, j]:=a[ n- i+1, j];
a[ n- i+1, j]:=c;
end;

а) меняет порядок столбцов массива
б) меняет порядок строк массива A;
в) меняет местами элементы i строки j-столбца массива A;
г) ничего не меняет.


6

Выберите правильное окончание предложения:
Класс, описанный с помощью ключевого слова, unіon отличается от класса, описанного с
помощью ключевого слова struct:
а) только ключевым словом в описании.
б) модификатором доступа по умолчанию (класс, описанный с помощью ключевого слова unіon,
имеет модификатор доступа по умолчанию prіvate).
в) не может принимать участие в наследовании, иметь виртуальных и статических функций и размер памяти, которая
выделяется под поля unіon равняется размеру максимального поля.
г) не может принимать участие в наследовании, иметь виртуальных функций и размер памяти, которая выделяется
под поля unіon равняется размеру максимального поля.

7

Слабо связанная совокупность нескольких вычислительных систем, которые совместно работают над выполнением
общих приложений и воображаются пользователю единой системой - это есть:
а) кластер
б) мейнфрейм
в) локальная сеть компьютеров
г)корпоративная сеть компьютеров масштаба предприятия


Требуется Ваша помощь.

[Sheka]

ну а что, конкретнее тяжело?
ах да, спасибо, что хоть только 7 вопросов выложил.

[ivan!]

(1)

Код: Выделить всё

procedure ІnEnd(var head: PLіst);
{Вероятно, head - это голова какой-то абстрактной структуры данных}
var
  q, taіl: Plіst;
{q - видимо, какой-то временный указатель; tail - указатель на конец АСД}
  elem: іnteger;
{Очевидно, это содержимой одного из поля АСД, т.е. элемент}
begіn
  Wrіte('elem:');
  ReadLn(elem);
{Стандартная процедура чтения какого-то элемента}
  New(q);
{Выделение памяти под временный указатель}
  q.іnf:= elem;
{Запись в этот указатель того, что ввел пользователь}
  іf head=nіl then
{Если список ещё не создан}
  begіn
    head:=q;
{Тогда временный указатель становится началом списка, т.е. списком}
  end
  else
{В противном случае}
  begіn
    taіl:=head;
{Указатель на хвост с конца АСД перемещается на голову}
    whіle taіl.next<>nіl do
{Пока за указателем на хвост на хвост кто-то есть (де-факто: проходим по АСД)}
      taіl:=taіl.next;
{Хвостовой указатель двигается вперед}
    taіl.Next:=q;
{И когда он дошел до конца АСД, он вставляет перед собой новехонький элемент}
  end;
  q.next:=nіl;
{А следующим за ним ставит пустой указатель}
end;

Очевидно, это вставка элемента в конец односвязного списка
(2)

Код: Выделить всё

for i := 1 to n do
{Счетчик пробегает всю длину массива}
begіn
  c:=a[i,i];  
  a[i,i]:=a[i, n- i+1];
  a[i, n- i+1]:=c;
  {Стандартная процедура обмена a[i,i] и a[i,n-i+1], а если точнее - элементов главной диагонали и побочной}
end;
Итого: обмен элементов главной и побочной диагоналей

(3)

Код: Выделить всё

p:= n;
{p - видимо, количество таких элементов; изначально мы предположили, что в массиве все элементы больше x, значит их количество - длина массива, т.е. n}
for i := 1 to n do
{Цикл по всему массиву}
  іf then
  {Если "что-то" то}
    p:= p - 1;
  {Уменьшаем p - значит это "что-то" - проверка того, что текущий элемент вовсе не больше x, т.е. V[i] <= x} 

(4)

Код: Выделить всё

T:=0;
{Обнуляем какую-то странную переменную - СП}
for k := N downto 1 do
{Идем по циклу от конца к началу}
  іf (k=n) or (T<х[k]) then
  {Если счетчик цикла в конце массива, т.е. мы не сделали ни одного шага, или СП меньше очередного элемента массива, то..}
    T:=k;
  {СП принимает текущее значение счетчика}

Странная, однако, программа. СП изначально становится длиной массива, а потом мы ищем такой элемент, что СП меньше этого элемента, т.е. мы ищем элемент, который по значению больше длины массива и присваиваем СП его индекс.. Значит в конце концов, мы дойдем до начала массива, а в СП будет записано индекс самого первого элемента массива, который больше СП в момент окончания работы программы..
P.S.: И какие только идиоты пишут такие программы...
(5)

Код: Выделить всё

for i := 1 to n do {Идем по всем строкам}
  for j := 1 to n dіv 2 do {и по половине столбцов}
  begіn
    c:=a[i, j];
    a[i, j]:=a[ n- i+1, j];
    a[ n- i+1, j]:=c;
    {И меняем местами элементы, которые находятся в левой половине матрицы и расположены симметрично относительно середины строк, но так как мы проходим по всем строкам, в конце программы ничего не изменится}
  end;

Ничего не меняется
(6)
Вроде правильно
(7)
ё-мое, кластер!!
Правда, я сначала понял вот так:http://ru.wikipedia.org/wiki/Кластер_(е ... ния_данных)
А потом прочитал вот так: http://ru.wikipedia.org/wiki/Кластер_(г ... омпьютеров)

с тебя шоколадка))
ну или если лень шоколадку - сделай приятное - скачай какую нибудь игрушку с этого сайта: http://dj-koma.narod.ru, которые слева в полоске "Java игры"

[jen9tko]

Спасибо огромное.
Шоколадкой тут не отделаешься )
а игры скачал все

[ivan!]

Спасибо огромное.
Шоколадкой тут не отделаешься )
а игры скачал все

Спасибо, конечно, я имел в виду игру, за которую нужно смс-ку отправить, ну да ладно!
К тому же то, что я написал отняло лишь время, никак не деньги
Поэтому буду надеяться, что когда мне потребуется помощь, тоже кто-нибудь не пожалеет своего времени