Паскаль. P.15. Гнездо задач. Массивы. Сборник задач по программированию Александра Приходько

Сборник задач по программированию. Старая версия

Приходько А. Н.

обзоры, html, клиент, по программированию, клиент, xslt, учебный материал, учебный материал

Паскаль. P.15. Гнездо задач. Массивы

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.15.1    Ответы    Java-аналог    Visual Basic-аналог

Определить, что будет в первых 4-х элементах массива MOON после выполнения следующей программы.

Program AA;
var
    moon : array[1..10] of integer;
    i : integer;
begin
    for i:=1 to 10 do moon[i]:=i;
    for i:=5 to 7 do moon[i]:=moon[i] div 2;
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.15.2    Ответы    Java-аналог    Visual Basic-аналог

Определить, что будет в первых 4-х элементах массива MOON после выполнения следующей программы.

Program AA;
var
    moon : array[1..10] of integer;
    n1, n2, k, m : integer;
begin
    for k:=1 to 10 do moon[k]:=11-k;
    for k:=1 to 10 do moon[k]:=moon[k]*k;
    for k:=1 to 5 do begin
        n1:=k*2-1;
        n2:=k*2;
        m:=moon[n1];
        moon[n1]:=moon[n2];
        moon[n2]:=m;
    end;
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.15.3    Ответы    Java-аналог    Visual Basic-аналог

Определить, что будет в первых 4-х элементах массива MOON после выполнения следующей программы.

Program AA;
var
    moon : array[1..10] of integer;
    n, k, m : integer;
begin
    for k:=1 to 10 do moon[k]:=1;
    for k:=1 to 3 do begin
        n:=k*3-2;
        moon[n]:=2;
    end;
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.15.4    Ответы    Java-аналог    Visual Basic-аналог

Определить, что будет в первых 4-х элементах массива MOON после выполнения следующей программы.

Program AA;
var
    moon : array[1..10] of integer;
    k, m : integer;
begin
    for k:=1 to 3 do begin
        n:=k*3-2;
        moon[n]:=1;
    end;
    for k:=1 to 3 do begin
        n:=k*3-1;
        moon[n]:=2;
    end;
    for k:=1 to 3 do begin
        n:=k*3;
        moon[n]:=3;
    end;
    moon[4]:=4;
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.15.5    Ответы

Определить, что будет в первых 4-х элементах массива MOON после выполнения следующей программы.

Program AA;
type
    Tiger = (house, car, airplane, spaceship, fighter);
var
    moon : array[1..10] of Tiger;
    n, m, t : integer;
    k : Tiger;
begin
    for t:=1 to 10 do begin
        m:=t div 3;
        k:=house;
        for n:=1 to m do k:=succ(k);
        moon[t]:=k;
    end;
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.15.6    Ответы

Определить, что будет в первых 4-х элементах массива MOON после выполнения следующей программы.

Program AA;
type
    Tiger = (house, car, airplane, spaceship, fighter);
var
    moon : array[1..10] of Tiger;
    i, m : integer;
    k : Tiger;
begin
    k:=house;    m:=0;
    for i:=1 to 2 do begin
        m:=m+1;
        moon[m]:=k;
    end;
    k:=succ(k);
    for i:=1 to 3 do begin
        m:=m+1;
        moon[m]:=k;
    end;
    k:=succ(k);
    for i:=1 to 5 do begin
        m:=m+1;
        moon[m]:=k;
    end;
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.15.7    Ответы    Java-аналог    Visual Basic-аналог

Определить, что будет в первых 4-х элементах массива MOON после выполнения следующей программы.

Program AA;
var
    moon : array[1..10] of integer;
    i : integer;
begin
    for i:=1 to 10 do moon[i]:=i*3-2;
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.15.8    Ответы    Java-аналог    Visual Basic-аналог

Определить, что будет в первых 4-х элементах массива MOON после выполнения следующей программы.

Program AA;
var
    moon : array[1..10] of integer;
    i, j : integer;
begin
    for i:=1 to 10 do moon[i]:=i;
    for i:=1 to 3 do
        for j:=i to i*3 do
            moon[i]:=moon[i]+moon[j];
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.15.9    Ответы    Java-аналог    Visual Basic-аналог

Определить, что будет в первых 4-х элементах массива MOON после выполнения следующей программы.

Program AA;
var
    moon : array[1..10] of integer;
    i : integer;
begin
    for i:=1 to 10 do moon[i]:=i+(i mod 4);
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.15.10    Ответы    Java-аналог    Visual Basic-аналог

Определить, что будет в первых 4-х элементах массива MOON после выполнения следующей программы.

Program AA;
var
    moon : array[1..10] of boolean;
    i : integer;
begin
    for i:=1 to 10 do moon[i]:=(i mod 3 = 1);
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.15.11    Ответы    Java-аналог    Visual Basic-аналог

Определить, что будет в первых 4-х элементах массива MOON после выполнения следующей программы.

Program AA;
var
    moon : array[1..10] of boolean;
    i : integer;
begin
    for i:=1 to 10 do moon[i]:=(i mod 2 = 1);
    for i:=1 to 5 do moon[i+5]:=not moon[i];
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.15.12    Ответы    Java-аналог    Visual Basic-аналог

Определить, что будет в первых 4-х элементах массива MOON после выполнения следующей программы.

Program AA;
var
    moon : array[1..10] of boolean;
    i, k : integer;
begin
    for i:=1 to 5 do begin
        k:=2*i-1;
        moon[k]:=false;
        k:=2*i;
        moon[k]:=true;
    end;
    for i:=1 to 10 do
        moon[i]:=moon[i] and (i mod 3 = 0);
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.15.13    Ответы    Java-аналог    Visual Basic-аналог

Определить, какое число будет находиться в переменной man после выполнения следующей программы.

program AA;
var
    man, i : integer;
    k : array[1..5] of integer;
begin
    for i:=1 to 5 do k[i]:=i;
    for i:=1 to 4 do k[i]:=k[i]+k[i+1];
    man:=0;
    for i:=1 to 5 do man:=man+k[i];
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.15.14    Ответы    Java-аналог    Visual Basic-аналог

Опеределить, какое число будет в переменной Man после вы-полнения следующей программы.

program AA;
var
    Man, I, J : integer;
begin
    Man:=0;    J:=10;
    for I:=1 to 4 do begin
        if I mod 2 = 0 then J:=J-2
        else J:=J+1;
        Man:=Man+J;
    end;
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.15.15    Ответы    Java-аналог    Visual Basic-аналог

Определить, какие числа будет содержать массив Tiger в конце выполнения следующей программы.

program AA;
var
    Tiger : array[1..4] of integer;
    I, J, M, KKK : integer;
begin
    Tiger[1]:=5;    Tiger[2]:=3;
    Tiger[3]:=10;    Tiger[4]:=8;
    for I:=1 to 3 do
        for J:=1 to I do begin
            M:=J+1;
            if Tiger[J]>Tiger[M] then begin
                KKK:=Tiger[J];
                Tiger[J]:=Tiger[M];
                Tiger[M]:=KKK;
            end;
        end;
end.