Решение задач на ветвление на языке Паскаль

Повторение пройденного материала

• что называется алгоритмом?
• какие базовые типы алгоритмов?
• в чем отличие условных алгоритмов с полным и неполным ветвлением?
• какова структура программы на Паскале?
• какие типы переменных используются в языке Паскаль?
• какова структура ветвления на Паскале?

Разветвляющийся алгоритм

ЦИКЛ

Линейный алгоритм

Алгоритм, где каждая команда выполняется последовательно в том порядке в каком  она записана и только один раз называется линейным.

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

это алгоритм, в котором предусмотрено неоднократное выполнение одной и той же последовательности действий.

Задача 1. Вывести на экран три введенных с клавиатуры числа в порядке, обратном их вводу.

• Задача 2. Дано натуральное число меньше 256. Сформировать число, представляющее собой его квадрат.

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

начало

Ввод х

х

у

5

-2

0

6

30

нет

да

10

Х

Program zadacha1;

Var x,y: integer;

begin

writeln(‘Введите x:’);

readln (x);

if x

else y:= 4*x+10;

writeln (‘y= ’,y );

end.

У= 4Х+10

У=8+Х

Вывод у

конец

0, y = 0, если x = 0, y = |x|, если x " width="640"

Даны два числа. Вывести на экран то из них, которое больше.

• Требуется написать программу, вычисляющую значение какой-нибудь функции ( у = f(x) ). Допустим, такой:

у = x – 2, если x 0, y = 0, если x = 0, y = |x|, если x

Задача №1: Вывести существует ли треугольник по трем сторонам.

• Треугольник существует только тогда, когда сумма любых двух его сторон больше третьей. Дано: a, b, c – стороны предполагаемого треугольника. Требуется сравнить длину каждого отрезка с суммой двух других. Если хотя бы в одном случае отрезок окажется больше суммы двух других, то треугольника с такими сторонами не существует.

Цикл с предусловием

Структура цикла

While do

begin

end;

нет

Условие

да

Тело цикла

Цикл с постусловием

Структура цикла

Repeat

Until

Тело цикла

нет

Условие

да

Repeat ( повторять тело цикла)

Until ( до условия)

Цикл «c параметром»

Параметр ( i )– это простая переменная задающая количество повторов от начального(a) до конечного(b) ,

Структура цикла

For i:= a to b do

begin

end;

нет

i:= а to b

да

Тело цикла

i:=1 to N

Дано натуральное число. Вывести на экран все натуральные числа до заданного включительно.

Решение:

• Var i, y: integer;
• Begin
• Write (‘Enter n:’); readln(n);
• for i:=1 to n do begin y:=i*i; write (y, ‘’) end;
• end.

Задание 3.

• Выведите квадраты натуральных чисел, не превосходящих 50.

Домашнее задание

• Составьте программу вычисления степени а с натуральным показателем n