Задания с массивами

[Zaraaa]

Как будет выполняться цикл, если выражение, записанное в операторе WHILE, окажется ложным с самого начала?
2. Почему необходимо изменение в теле цикла значения хотя бы одного операнда, входящего в выражение в операторе WHILE?
3. Сколько раз будет выполняться цикл в следующем примере?
B:=2; while B<5 do begin … B:=B+1; … end;
3.Имеются описания массивов:
3. Type Wektor=array[1..30] of real;
Var A: array[1..25] of char; B:Wektor;
C:array[-100..100] of integer;
Для каждого из массивов A, B, C указать:
• сколько в нем элементов;
• какие значения могут принимать его элементы;
• как указать его первый и последний элементы.
4. Для решения каких, из следующих, задач нужны массивы, а в каких можно обойтись и без них?
• В память ПК последовательно вводятся 50 чисел. Найти их среднее арифметическое.
• В память ПК последовательно вводятся 50 чисел. Определить, сколько среди них отличных от последнего.
• В память ПК последовательно вводятся 50 чисел. Напечатать сначала все отрицательные из них, а затем все остальные.
5. Каким образом располагаются в памяти ПК элементы двумерного массива (матрицы) - по строкам или по столбцам?
6. Можно ли во вложенных циклах FOR использовать одну и ту же переменную в качестве параметра нескольких циклов?
7. Может ли тело одного цикла частично содержаться в теле другого?
8. Допускается ли передача управления из тела внутреннего цикла в тело внешнего по отношению к нему цикла и наоборот?

помогите решить и объясните пжл((

[Delphi_ProGer]

помогите пжл решить и объясните, не понимаю(((

ленивое поколение....

[Человек_Борща]

Да поздно уже вам что-то объяснять)) На пары ходить надо.

[Вадим Мошев]

Как будет выполняться цикл, если выражение, записанное в операторе WHILE, окажется ложным с самого начала?

Он не будет выполняться вообще.

2. Почему необходимо изменение в теле цикла значения хотя бы одного операнда, входящего в выражение в операторе WHILE?

Иначе цикл зациклится

4. Для решения каких, из следующих, задач нужны массивы, а в каких можно обойтись и без них?

В память ПК последовательно вводятся 50 чисел. Найти их среднее арифметическое.

Можно обойтись без массива

• В память ПК последовательно вводятся 50 чисел. Определить, сколько среди них отличных от последнего.
• В память ПК последовательно вводятся 50 чисел. Напечатать сначала все отрицательные из них, а затем все остальные.

Нужны массивы

5. Каким образом располагаются в памяти ПК элементы двумерного массива (матрицы) - по строкам или по столбцам?

Хм... думаю, что ни так и не так. ИМХО, в программировании нет такого понятия, как матрица. Есть двумерные массивы, которые люди называют матрицами

6. Можно ли во вложенных циклах FOR использовать одну и ту же переменную в качестве параметра нескольких циклов?

Нет. Параметр цикла for должен изменяться только тем циклом, которому он (параметр) принадлежит, а изменять параметры цикла FOR внутри них нехорошо.

7. Может ли тело одного цикла частично содержаться в теле другого?

Что значит "частично"?

8. Допускается ли передача управления из тела внутреннего цикла в тело внешнего по отношению к нему цикла и наоборот?

Я считаю, что допускается только из внутреннего во внешний (оператор break и иногда continue, если эта итерация - последняя, но в этом случае работать будет как break)

3. Сколько раз будет выполняться цикл в следующем примере?
B:=2; while B<5 do begin … B:=B+1; … end;

Три раза, если с переменной B больше ничего не происходит

[Poma][a]

Для решения каких, из следующих, задач нужны массивы, а в каких можно обойтись и без них?
• В память ПК последовательно вводятся 50 чисел. Найти их среднее арифметическое.
• В память ПК последовательно вводятся 50 чисел. Определить, сколько среди них отличных от последнего.
• В память ПК последовательно вводятся 50 чисел. Напечатать сначала все отрицательные из них, а затем все остальные.

Вопрос не очень корректен.. Я могу использовать не массив, а переменные а1, а2, a3, .., a49, a50.

5. Каким образом располагаются в памяти ПК элементы двумерного массива (матрицы) - по строкам или по столбцам?

По строкам..

Допускается ли передача управления из тела внутреннего цикла в тело внешнего по отношению к нему цикла и наоборот?

Да..(наверное)..

for i := 1 to 10 do
   for j := 1 to i do

+ Прув Вадима

В остальном полностью согласен с Вадимом

[Stilet]

Попыток решить, я так понимаю, нет?

[BDA]

4. Для решения каких, из следующих, задач нужны массивы, а в каких можно обойтись и без них?

Сообщение от Poma][a

Я могу использовать не массив, а переменные а1, а2, a3, .., a49, a50.

А еще можно поизвращаться и рекурсию использовать:
В память ПК последовательно вводятся 50 чисел. Напечатать сначала все отрицательные из них, а затем все остальные.

procedure recur(i: integer);
var
  a: integer;
begin
  if i = 0 then
    exit;
  read(a);
  if a < 0 then
  begin
    write(a, ' ');
    recur(i - 1);
  end
  else
  begin
    recur(i - 1);
    write(a, ' ');
  end;
end;

begin
  recur(50);
end.

В память ПК последовательно вводятся 50 чисел. Определить, сколько среди них отличных от последнего.

function recur(i: integer; var count: integer): integer;
var
  a, b: integer;
begin
  if i = 1 then
  begin
    read(a);
    recur := a;
    exit;
  end;
  read(a);
  b := recur(i - 1, count);
  if a <> b then
    inc(count);
  recur := b;
end;

var
  count: integer;

begin
  count := 0;
  recur(5, count);
  write(count);
end.

Ну и что, что памяти больше, зато без массивов

[Poma][a]

BDA, тыц 10 букв

[Вадим Мошев]

Я могу использовать не массив, а переменные а1, а2, a3, .., a49, a50.

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

• В память ПК последовательно вводятся 50 чисел. Напечатать сначала все отрицательные из них, а затем все остальные.

то получится жуткое извращение строк на 100...

[BDA]

Poma][a, ну да, перевернуло всю последовательность, так и должно быть. Нигде же нет явного требования сохранить порядок элементов.
Вадим Мошев, раз так много строк, то сгенерируем их автоматически.

const
  L: integer = 50;
  st: array[1..2] of string = ('<', '>=');
var
  i, j: integer;
begin
  writeln('var');
  write('  ');
  for i := 1 to L - 1 do
    write('a', i, ', ');
  writeln('a', L, ': integer');
  writeln('begin');
  for i := 1 to L do
    writeln('  read(a', i, ');');
  for j := 1 to 2 do
    for i := 1 to L do
    begin
      writeln('  if a', i, ' ', st[j], ' 0 then');
      writeln('    write(a', i, ', ', chr(39), ' ', chr(39), ');');
    end;
  writeln('end.');
end.