Решение задач по программированию огэ по информатике на паскале

Решение задач по программированию из огэ по информатике на паскале.

В этой статье мы разберем  основные примеры  и алгоритмы задач из огэ по информатике на pascal, это задачи с2. Для решения задач 20 на программирование огэ по информатике нужно уметь в программе на pascal:
задавать переменные в Паскаль, 
вводить данные с клавиатуры в Паскаль,  
использовать цикл for в Паскаль, 
проверять введенные данные на соответствие данному условию в Паскаль, 
выводить данные на экран в Паскаль.
Разберем основные примеры задач с номером 20 на программирование на паскале из огэ по информатике
Программа на паскале для подсчета четных чисел в заданном интервале.
 В программе на pascal должно вводиться границы интервала a и b,  программа должна подсчитывать число четных чисел в заданном интервале.
Для ввода границ  интервала, переменной цикла и переменной счетчика определяются целочисленные переменные
var 
    a, b, k, i: integer;
Организуем ввод границ интервала. 
    writeln('Введите левую границу');
    readln(a);
    writeln('Введите правую границу');
    readln(b);
Чтобы проверить все числа, лежащие в интервале от a до b необходимо в цикле for присвоить начальному значению переменой цикла а, конечному значению интервала цикла b. В цикле необходимо с помощью оператора условия if проверить четное ли значение переменной счетчика цикла с помощью условия (i mod 2 =0)   if i mod 2 = 0 
Оператор переменная mod число выдает остаток от деления значения переменной на число. Если значение переменной делится нацело на число, то переменная mod число=0
Если это условие выполняется, то счётчик четных чисел увеличивается на 1. Перед выполнением цикла необходимо обнулить счетчик четных чисел.
Полная программа на паскаль для подсчета четных чисел в заданном интервале
var 
    a, b, k, i: integer;
begin 
    writeln('Введите левую границу');
    readln(a);
    writeln('Введите правую границу');
    readln(b);
    k:=0;
    for i := a to b do
    begin
        if i mod 2 = 0 then k := k + 1; 
    end;
    writeln('число четных чисел ',k);
end.
Разберем пример программы на паскаль на поиск максимального значения в введённой последовательности числе с клавиатуры. Сначала в программе определим переменные:
 n количество чисел в последовательности, 
 i для счетчика цикла 
 a переменная, в которую мы будем записывать введённые значения
max – переменная в которую будет записываться текущее максимальное значение в последовательности
Все элементы последовательности числе вводятся в цикле for. Внутри цикла for с помощью оператора условия в паскаль if проверяется больше ли новый введенный элемент текущего max,  если больше if a > max, то текущему максимуму присваивается это значение элемента последовательности max:=a
Полная программа на паскаль для поиска максимального элемента в веденной последовательности 
var 
    n, max, i, a : integer;
begin 
    writeln('число элементов');
    readln(n);
    max:=0;
    for i := 1 to n do
    begin
    readln(a);
    if a > max then max:=a; 
    end;
    writeln('максимальное число ',max);
end.
В задачах на программирование с номером 20 огэ по информатике как правило требуется совместить два условия. Например, найти максимальный элемент в последовательности кратный 3. Когда требуется одновременное выполнение двух условий в операторе условия If необходимо использовать логическую операцию and, каждое условие нужно записать в скобках
if (первое условие) and (второе условие) then
Полная программа на паскаль для поиска максимального элемента в последовательности кратного 3
var 
    n, max, i, a : integer;
begin 
    writeln('число элементов');
    readln(n);
    max:=0;
    for i := 1 to n do
    begin
    readln(a);
    if (a > max) and (a mod 3 = 0) then max:=a; 
    end;
    writeln('максимальное число ',max);
end.

Перейти к содержанию курса по паскалю

Полезно почитать по теме решение на паскале задач огэ по информатике:

Решение на паскале задач огэ по информатике на подсчет суммы и среднего арифметического

Решение задач на паскале из демо вариантов огэ по информатике

Поделиться