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

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

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

открыть, математика, по программированию, file, until, file, задачи, динамический, калькулятор, апплет, текст, Oracle, object, бит, справка, семинар, запись

Паскаль. P.5. Гнездо задач. Метки и оператор перехода

Калькулятор

/ - деление

\ - остаток

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

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

P.5.1    Ответы

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

Program Pr;
label xxx;
begin
    writeln(1);
    writeln(2);
    goto xxx;
    writeln(3);
    writeln(4);
xxx:
    writeln(5);
    writeln(6);
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.5.2    Ответы

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

Program Pr;
label xxx;
begin
    writeln(1);
    goto xxx;
    writeln(2);
    writeln(3);
    writeln(4);
xxx:
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.5.3    Ответы

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

Program Pr;
label xxx;
begin
    goto xxx;
    writeln(1);
    writeln(2);
    writeln(3);
    writeln(4);
xxx:
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.5.4    Ответы

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

Program Pr;
label xxx;
var
    t : integer;
begin
    t:=0;
xxx:
    t:=t+1;
    writeln(t);
    if t<4 then goto xxx;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.5.5    Ответы

Определить, какие значения будет выдавать следующая программа. (Содержательная постановка задачи: нахождение суммы чисел)

Program Pr;
label xxx;
var
    s, t : integer;
begin
    s:=0; t:=0;
xxx:
    t:=t+1; s:=s+t;
    if t<4 then goto xxx;
    writeln(s);
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.5.6    Ответы

Определить, какие значения будет выдавать следующая программа. (Содержательная постановка задачи: нахождение произведения чисел)

Program Pr;
label xxx;
var
    s, t : integer;
begin
    s:=1; t:=0;
xxx:
    t:=t+1; s:=s*t;
    if t<5 then goto xxx;
    writeln(s);
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.5.7    Ответы

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

Program Pr;
label xxx;
var
    s, t : integer;
begin
    s:=1; t:=0;
xxx:
    t:=t+1; s:=s*t;
    if s<10 then goto xxx;
    writeln(t);
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.5.8    Ответы

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

Program Pr;
label xxx;
var
    s, t : integer;
begin
    s:=1; t:=0;
xxx:
    t:=t+1; s:=s*t;
    if s<30 then goto xxx;
    writeln(t);
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.5.9    Ответы

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

Program Pr;
label xxx;
var
    s, t : integer;
begin
    s:=0; t:=0;
xxx:
    t:=t+1; s:=s+t;
    if s<10 then goto xxx;
    writeln(t);
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.5.10    Ответы

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

Program Pr;
label xxx;
var
    s, t : integer;
begin
    s:=0; t:=0;
xxx:
    t:=t+1; s:=s+t;
    if s<30 then goto xxx;
    writeln(t);
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.5.11    Ответы

Определить, какие значения будет выдавать следующая программа. (Содержательная постановка задачи: нахождение первого числа кратного 2 и 3 методом перебора)

Program Pr;
label aaa;
var
    t : integer;
begin
for t:=1 to 10 do
        if (t mod 2=0) and (t mod 3=0) then begin
            writeln(t);
            goto aaa;
        end;
aaa:
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.5.12    Ответы

Определить, какие значения будет выдавать следующая программа. (Содержательная постановка задачи: нахождение первого числа кратного 7 и 3 методом перебора)

Program Pr;
label aaa;
var
    t : integer;
begin
    for t:=1 to 100 do
        if (t mod 7=0) and (t mod 3=0) then begin
            writeln(t);
            goto aaa;
        end;
aaa:
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.5.13    Ответы

Определить, какие значения будет выдавать следующая программа. (Содержательная постановка задачи. Имеется 2 пакета с мукой. Определить вес каждого пакета, если в сумме оба пакета весят 10 кг, а вес второго пакета на 2 кг меньше веса 1-го пакета. Задача решается методом перебора.)

Program Pr;
label aaa;
var
    x, y : integer;
begin
    for x:=1 to 100 do
        for y:=1 to 100 do
            if (x+y=10) and (x=y-2) then begin
                writeln(x);
                writeln(y);
                goto aaa;
            end;
aaa:
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.5.14    Ответы

Определить, какие значения будет выдавать следующая программа. (Содержательная постановка задачи. Имеется 2 пакета с мукой. Определить вес каждого пакета, если в сумме оба пакета весят 15 кг, а вес второго пакета в 2 раза меньше веса 1-го пакета. Задача решается методом перебора.)

Program Pr;
label aaa;
var
    x, y : integer;
begin
    for x:=1 to 100 do
    for y:=1 to 100 do
        if (x+y=15) and (x=y*2) then begin
            writeln(x);
            writeln(y);
            goto aaa;
        end;
aaa:
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.5.15    Ответы

Определить, какие значения будет выдавать следующая программа. (Содержательная постановка задачи. По лугу текут 3 ручья. Определить длину каждого ручья, если суммарная длина всех ручьев есть 20 км, длина 1-го ручья равняется сумме длин 2-го и 3-го ручьев, а длина 2-го ручья на 4 км больше длины 3-го ручья. Задача решается методом перебора.)

Program Pr;
label aaa;
var
    x, y, z : integer;
begin
    for x:=1 to 100 do
        for y:=1 to 100 do
            for z:=1 to 100 do
                if (x+y+z=20) and (x=y+z) and (y=z+4) then begin
                    writeln(x);
                    writeln(y);
                    writeln(z);
                    goto aaa;
                end;
aaa:
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.5.16    Ответы

Определить, какие значения будет выдавать следующая программа. (Содержательная постановка задачи. По лугу текут 3 ручья. Определить длину каждого ручья, если суммарная длина всех ручьев есть 35 км, первый ручей ровно в 2 раза длиннее второго ручья, второй ручей на 5 км длиннее третьего ручья Задача решается методом перебора.)

Program Pr;
label aaa;
var
    x, y, z : integer;
begin
    for x:=1 to 100 do
        for y:=1 to 100 do
            for z:=1 to 100 do
                if (x+y+z=35) and (x=2*y) and (y=z+5) then begin
                    writeln(x);
                    writeln(y);
                    writeln(z);
                    goto aaa;
                end;
aaa:
end.