Бейсик. Паскаль. Алгоритмический язык

⇐ ПредыдущаяСтр 2 из 2

Бейсик

DIM N, DIGIT, SUM AS LONG

INPUT N

SUM = 0

WHILE N > 0

DIGIT = N MOD 10

IF DIGIT < 7 THEN

SUM = SUM + 1

END IF

N = N \ 10

WEND

PRINT DIGIT

Си

#include <stdio.h>

int main()

{

int N, digit, sum;

scanf("%d", &N);

sum = 0;

while (N > 0)

{

digit = N % 10;

if (digit < 7) sum = sum + 1;

N = N / 10;

}

printf("%d",digit);

return 0;

}

Паскаль

var N, digit, sum: longint;

begin

readln(N);

sum := 0;

while N > 0 do

begin

digit := N mod 10;

if digit < 7 then sum := sum + 1;

N := N div 10;

end;

writeln(digit)

end.

Алгоритмический язык

алг

нач

цел N, digit, sum

ввод N

sum := 0

нцпока N > 0

digit := mod(N,10)

если digit < 7 то

sum := sum + 1

все

N := div(N,10)

кц

вывод digit

кон

Последовательно выполните следующее.

1. Напишите, что выведет эта программа при вводе числа 456.

2. Приведите пример такого трёхзначного числа, при вводе которого программа выдаёт верный ответ.

3. Найдите все ошибки в этой программе (их может быть одна или несколько). Известно, что каждая ошибка затрагивает только одну строку и может быть исправлена без изменения других строк. Для каждой ошибки:

1) выпишите строку, в которой сделана ошибка;

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

3. На обработку поступает натуральное число, не превышающее 10⁹. Нужно написать программу, которая выводит на экран минимальную чётную цифру этого числа. Если в числе нет чётных цифр, требуется на экран вывести «NO». Программист написал программу неправильно. Ниже эта программа для Вашего удобства приведена на четырех языках программирования.

Бейсик

DIM N, DIGIT, MINDIGIT AS LONG

INPUT N

MINDIGIT = N MOD 10

WHILE N > 0

DIGIT = N MOD 10

IF DIGIT MOD 2 = 0 THEN

IF DIGIT < MINDIGIT THEN

MINDIGIT = DIGIT

END IF

N = N \ 10

WEND

IF MINDIGIT = 0 THEN

PRINT "NO"

ELSE

N = int(input())

minDigit = N % 10

while N > 0:

digit = N % 10

if digit % 2 == 0:

if digit < minDigit:

minDigit = digit

N = N // 10

if minDigit == 0:

print("NO")

else:

print(minDigit)

кон

PRINT MINDIGIT

END IF

Алгоритмический язык

алг

нач

цел N, digit, minDigit

ввод N

minDigit := mod(N,10)

нц пока N > 0

digit := mod(N,10)

если mod(digit, 2) = 0 то

если digit < minDigit то

minDigit := digit

все

N := div(N,10)

кц

если minDigit = 0 то

вывод "NO"

иначе

вывод minDigit

все

Паскаль

var N,digit,minDigit: longint;

begin

readln(N);

minDigit := N mod 10;

while N > 0 do

begin

digit := N mod 10;

if digit mod 2 = 0 then

if digit < minDigit then

minDigit := digit;

N := N div 10;

end;

if minDigit = 0 then

writeln('NO')

else

writeln(minDigit)

end.

Последовательно выполните следующее.

1. Напишите, что выведет эта программа при вводе числа 231.

2. Приведите пример такого трёхзначного числа, при вводе которого приведённая программа, несмотря на ошибки, выдаёт верный ответ.

3. Найдите допущенные программистом ошибки и исправьте их. Исправление ошибки должно затрагивать только строку, в которой находится ошибка. Для каждой ошибки:

1) выпишите строку, в которой сделана ошибка;

2) укажите, как исправить ошибку, т.е. приведите правильный вариант строки.

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

⇐ Предыдущая 12