ТЕМА 16 

"Разработка программы на универсальном языке программирования"

Пример 1 

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 7 и оканчивающихся на 1. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 7 и оканчивающееся на 1. Количество чисел не превышает 100. Значения введённых чисел не превышают 1000. Программа должна вывести одно число — сумму чисел, кратных 7 и оканчивающихся на 1.

 Пример работы программы:

Решение задания 

(примерное решение на языке Паскаль)

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

    writeln('Ведите количество чисел последовательности');

    readln(n);

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

Условие кратности 7: (x mod 7 = 0)

Условие окончания числа на 1: (x mod 10 = 1)

Организуем цикл с параметром, в который поместим условие и счетчик по сумме чисел, предварительно обнулив его перед циклом (s:=0):

 for i:=1 to n do

      begin

         readln(x);

         if (x mod 7 = 0) and (x mod 10 = 1) then s:=s+x;

      end;

После цикла выводим результат:  writeln(s).

Получаем рабочую программу:

Program SUMMA;

var s,x,i,n: integer;

begin

   s:=0;

   writeln('Ведите количество чисел последовательности');

   readln(n);

   for i:=1 to n do

      begin

         readln(x);

         if (x mod 7 = 0) and (x mod 10 = 1) then s:=s+x;

      end;

  writeln(s);

end.

Пример 2

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 8 и не кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, не кратное 4 и оканчивающееся на 8. Количество чисел не превышает 100. Значения введённых чисел не превышают 1000. Программа должна вывести одно число — количество чисел, оканчивающихся на 8 и не кратных 4.

 Пример работы программы:

Решение задания

(примерное решение на языке Паскаль)

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

   writeln('Ведите количество чисел последовательности');

   readln(n);

Параметр n будет определять количество повторений в цикле. Внутри цикла организуем ввод числа, проверку его заданному условию задачи и подсчет их количества. 

Условие не кратности 4: (x mod 4 <> 0)

Условие окончания числа на 8: (x mod 10 = 8)

Организуем цикл с параметром, в который поместим условие и счетчик количества чисел, предварительно обнулив его перед циклом (k:=0):

 for i:=1 to n do

      begin

         readln(x);

         if (x mod 4 <> 0) and (x mod 10 = 8) then k:=k+1;

      end;

 После цикла выводим результат:  writeln(k).

Получаем рабочую программу:

Program KOL_VO;

var k,x,i,n: integer;

begin

   k:=0;

   writeln('Ведите количество чисел последовательности');

   readln(n);

   for i:=1 to n do

      begin

         readln(x);

         if (x mod 4 <> 0) and (x mod 10 = 8) then k:=k+1;

      end;

  writeln(k);

end.

Пример 3

Напишите программу, которая в последовательности натуральных чисел определяет максимальное нечетное трехзначное число. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется нечетное трехзначное число. Количество чисел не превышает 1000. Значения введённых чисел не превышают 30000. Программа должна вывести одно число — максимальное нечетное трехзначное число последовательности.

 Пример работы программы:

Решение задания 

(примерное решение на языке Паскаль)

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

    writeln('Ведите количество чисел последовательности');

    readln(n);

Параметр n будет определять количество повторений в цикле. Внутри цикла организуем ввод числа, проверку его заданному условию задачи и присвоение значения трехзначного числа переменной max, если оно больше max.

Условие нечетности: (x mod 2 <> 0)

Условие проверки принадлежности к трехзначным числам: (x>=100) and (x<=999)

Минимальное трехзначное число используем для начала сравнения: (x>max).

Все эти условия должны выполняться одновременно.

Организуем цикл с параметром, в который поместим условие поиска максимального нечетного трехзначного числа:

for i:= 1 to n do

   begin

           readln (x);

           if (x mod 2 <>0) and (x>=100) and (x<=999) and (x>max) then

      max:=x

   end;

После цикла выводим результат:  writeln(max).

Получаем рабочую программу:

Program MAXIMUM;

Var x, i, max, n: integer;

Begin

writeln('Ведите количество чисел последовательности');

readln(n);

max:=100;

for i:= 1 to n do

    begin

              readln (x);

              if (x mod 2 <>0) and (x>=100) and (x<=999) and (x>max) then

         max:=x

    end;

writeln (max)

end.

• Примеры, рассмотренные на этой странице в формате pdf: скачать

• Задания для тренировки в формате pdf: скачать

Задания для тренировки

Задача 1 

Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, которое оканчивается на 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 7. Количество чисел не превышает 1000. Значения введённых чисел не превышают 30000. Программа должна вывести одно число – минимальное число, оканчивающееся на 7.

Задача 2

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6 и оканчивающихся на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6 и оканчивающееся на 2. Количество чисел не превышает 1000. Значения введённых чисел не превышают 30000. Программа должна вывести одно число — сумму чисел, кратных 6 и оканчивающихся на 2.

Задача 3

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 9 и не кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, не кратное 3 и оканчивающееся на 9. Количество чисел не превышает 1000. Значения введённых чисел не превышают 30000. Программа должна вывести одно число — количество чисел, оканчивающихся на 9 и не кратных 3.

Задача 4

Напишите программу, которая в последовательности натуральных чисел определяет максимальное четное трехзначное число. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное трехзначное число. Количество чисел не превышает 1000. Значения введённых чисел не превышают 30000. Программа должна вывести одно число — максимальное четное трехзначное число последовательности.

Задача 5

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 2 или 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число кратное 2 или 8. Количество чисел не превышает 1000. Значения введённых чисел не превышают 30000. Программа должна вывести одно число — количество чисел последовательности, кратных 2 или 8.

Задача 6

Напишите программу, которая в последовательности натуральных чисел определяет максимальное четырехзначное  число, которое оканчивается на 1. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется четырехзначное  число, которое оканчивается на 1. Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число последовательности – максимальное четырехзначное  число, оканчивающееся на 1.

Задача 7

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, не кратных 4 и оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, не кратное 4 и оканчивающееся на 4. Количество чисел не превышает 1000. Значения введённых чисел не превышают 30000. Программа должна вывести одно число — сумму чисел, не кратных 4 и оканчивающихся на 4.

Задача 8

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 2, 4 и 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 2, 4 и 8. Количество чисел не превышает 1000. Значения введённых чисел не превышают 30000. Программа должна вывести одно число — количество чисел, кратных 2, 4 и 8.

Задача 9

Напишите программу, которая в последовательности натуральных чисел определяет сумму четных трехзначных чисел, не кратных 8 и не оканчивающихся на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное трехзначное число, не кратное 8 и не оканчивающееся на 2. Количество чисел не превышает 1000. Значения введённых чисел не превышают 30000. Программа должна вывести одно число — сумму четных трехзначных чисел, не кратных 8 и не оканчивающихся на 2.

Задача 10

Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 9. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 9. Количество чисел не превышает 1000. Значения введённых чисел не превышают 30000. Программа должна вывести одно число из последовательности – минимальное число, кратное 9.

Комментарии, отзывы и предложения Вы можете направить на e-mail, указанный в контактах или оставить в гостевой книге, указав тему вопроса: перейти в гостевую книгу