RFpro.ru - Статья в рассылке Информатика

/ НАУКА И ОБРАЗОВАНИЕ / Точные и естественные науки / Информатика
Автор статьи: lamed (Академик)
Дата публикации: 02.04.2011, 12:07

ЕГЭ-2011. C2. Задачи 1-5. Basic

Добрый день, уважаемые читатели. Начинаем выкладывать решения заданиий для подготовки к ЕГЭ по информатике, C2. Basic. Продолжение в статье C2:6-10

Источники заданий:
1. Демонстрационные варианты ЕГЭ 2004-2011 гг.
2. Гусева И.Ю. ЕГЭ. Информатика: раздаточный материал тренировочных тестов. — СПб: Тригон, 2009.
3. Самылкина Н.Н., Островская Е.М. Информатика: тренировочные задания. – М.: Эксмо, 2009.
4. Якушкин П.А., Ушаков Д.М. Самое полное издание типовых вариантов реальных заданий ЕГЭ 2010. Информатика. — М.: Астрель, 2009.
Для разработки программ использованы решения на языке Pascal, представленные К.Ю.Поляковым в файле answC2.doc
Нумерация заданий соответствует приведенной в файле C2.doc
Всю ответственность за допущенные в решениях на Basic несет автор решений: lamed.
С вопросами и пожеланиями обращайтесь в личную почту lamed@rfpro.ru.
Удачи!

Код :

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

N = 30
DIM A(1 TO N) AS INTEGER
DIM i AS INTEGER, i1 AS INTEGER, Sum AS INTEGER

  FOR i = 1 TO N
    INPUT A(i)
  NEXT i
  i1 = 1
  Sum = A(1) + A(2)
  FOR i = 2 TO N - 1
    IF A(i) + A(i + 1) > Sum THEN
      i1 = i
      Sum = A(i) + A(i + 1)
    END IF
  NEXT i
  PRINT i1
END

Код :

REM Задание 2. Опишите на русском языке или одном из языков программирования алгоритм 
REM подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов.

N = 30
DIM a(1 TO N) AS INTEGER
DIM max AS INTEGER, k AS INTEGER, i AS INTEGER
  FOR i = 1 TO N
    INPUT a(i)
  NEXT i
 
  k = 1
  max = a(1)
  FOR i = 2 TO N
    IF a(i) > max THEN
      max = a(i)
      k = 1
    ELSEIF a(i) = max THEN
      k = k + 1
    END IF
  NEXT i
 
  PRINT k
END

Код :

REM Задание 3. Опишите на русском языке или одном из языков программирования алгоритм поиска
REM трех последовательных элементов, сумма которых максимальна, в числовом массиве
REM из 30 элементов.

N = 30
DIM a(1 TO N) AS INTEGER
DIM Max AS INTEGER, Sum AS INTEGER, i AS INTEGER, k AS INTEGER
  FOR i = 1 TO N
    INPUT a(i)
  NEXT i
  Sum = a(1) + a(2) + a(3)
  Max = Sum
  k = 1
  FOR i = 2 TO N - 2
    Sum = Sum - a(i - 1) + a(i + 2)' или Sum=a(i)+a(i+1)+a(i+2)
    IF Sum > Max THEN
      Max = Sum
      k = i
    END IF
  NEXT i
  FOR i = k TO k + 2
    PRINT "A["; i; "]="; a(i)
  NEXT i
END

Код :

REM Задание 4. Дан прямоугольный массив целых положительных чисел 10 х 20.
REM Опишите на русском языке или на одном из языков программирования алгоритм поиска строки
REM с наименьшей суммой элементов. Вывести на печать номер строки и сумму ее элементов.
REM Предполагается, что такая строка единственная.

N = 10
M = 20
DIM a(1 TO N, 1 TO M) AS INTEGER
DIM min AS INTEGER, Sum AS INTEGER, iMin AS INTEGER, i AS INTEGER, k AS INTEGER
  REM  ввод матрицы N на N
  FOR i = 1 TO N
    FOR k = 1 TO M
      INPUT a(i, k)
    NEXT k
  NEXT i
  
  Sum = 0
  FOR k = 1 TO M
    Sum = Sum + a(1, k)
  NEXT k
  
  min = Sum
  iMin = 1
  FOR i = 2 TO N
    Sum = 0
    FOR k = 1 TO M
      Sum = Sum + a(i, k)
    NEXT k
    IF Sum < min THEN
      min = Sum
      iMin = i
    END IF
  NEXT i
  
  PRINT "Строка "; iMin; " сумма "; min
END

Код :

REM Задание 5. Дан квадратный массив целых положительных чисел 10 х 10.
REM Опишите на русском языке или на одном из языков программирования алгоритм вычисления суммы
REM элементов строки, в которой расположен элемент с максимальным значением.
REM Вывести значение суммы на печать. Предполагается, что такой элемент единственный.

N = 10
DIM A(1 TO N, 1 TO N) AS INTEGER
DIM Max AS INTEGER, Sum AS INTEGER, iMax AS INTEGER, i AS INTEGER, k AS INTEGER

  REM ввод матрицы N на N
  FOR i = 1 TO N
    FOR k = 1 TO N
      INPUT A(i, k)
    NEXT k
  NEXT i
  
  iMax = 1
  Max = A(1, 1)
  FOR i = 1 TO N
    FOR k = 1 TO N
      IF A(i, k) > Max THEN
        Max = A(i, k)
        iMax = i
      END IF
    NEXT k
  NEXT i
    
  Sum = 0
  FOR k = 1 TO N
    Sum = Sum + A(iMax, k)
  NEXT k
  PRINT Sum
END