Презентация "Программирование разветвляющихся алгоритмов"

Подписи к слайдам:

Программирование разветвляющихся алгоритмов Учитель информатики МБОУ Гимназия №44 г. Иркутска Жаркая Л.И. Полное ветвление

if условие then оператор1

else опрератор2;

Begin

Writeln (ˊкомментарии что ждем от пользователя΄);

Readln ( переменная );

if условие then оператор1

else опрератор2;

Writeln (ˊ комментарии что нашли ΄ , результат );

End.

Задача 1 Запишите на языке Паскаль программу, в которой по возрасту пользователя определяется можно ли ему получить паспорт.

Begin

Writeln(ˊ комментарии что ждем от пользователя΄);

Readln ( переменная );

if условие then оператор1

else опрератор2;

End.

Введите полное количество лет

x>=14

Writeln (ˊ комментарии что нашли ΄ , результат );

Writeln (ˊ комментарии что нашли ΄ , результат )

Writeln (ˊ комментарии что нашли ΄ , результат );

Writeln (ˊПаспорт получать можно΄)

Writeln (ˊПаспорт получать нельзя΄);

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

Begin

Writeln(ˊ комментарии что ждем от пользователя΄);

Readln ( переменная );

if условие then оператор1

else опрератор2;

End.

Введите полное количество лет

x>=14

Writeln (ˊ комментарии что нашли ΄ , результат )

Writeln (ˊ комментарии что нашли ΄ , результат );

Writeln (ˊПаспорт получать можно΄)

Writeln (ˊПаспорт получать нельзя΄);

x>=18

Writeln (ˊСовершеннолетний΄)

Writeln (ˊНе совершеннолетний΄);

Задача 3 Запишите на языке Паскаль программу, в которой определяется является ли число положительным.

Begin

Writeln(ˊ комментарии что ждем от пользователя΄);

Readln ( переменная );

if условие then оператор1

else опрератор2;

End.

Введите число

x>0

Writeln (ˊ комментарии что нашли ΄ , результат )

Writeln (ˊ комментарии что нашли ΄ , результат );

Writeln (ˊПоложительное΄)

Writeln (ˊНе положительное΄);

Задача 4 Запишите на языке Паскаль программу, в которой определяется является ли число чётным.

Begin

Writeln(ˊ комментарии что ждем от пользователя΄);

Readln ( переменная );

if условие then оператор1

else опрератор2;

End.

Введите число

x mod 2=0

Writeln (ˊ комментарии что нашли ΄ , результат )

Writeln (ˊ комментарии что нашли ΄ , результат );

Writeln (ˊЧётное΄)

Writeln (ˊНе чётное΄);

Задача 5 Запишите на языке Паскаль программу, в которой определяется является ли число кратным 3.

Begin

Writeln(ˊ комментарии что ждем от пользователя΄);

Readln ( переменная );

if условие then оператор1

else опрератор2;

End.

Введите число

x mod 3=0

Writeln (ˊ комментарии что нашли ΄ , результат )

Writeln (ˊ комментарии что нашли ΄ , результат );

Writeln (ˊКратно 3΄)

Writeln (ˊНе кратно 3΄);

Задача 6 Запишите на языке Паскаль программу, в которой определяется является ли число кратным некоторому числу b.

Begin

Writeln(ˊ комментарии что ждем от пользователя΄);

Readln ( переменная );

if условие then оператор1

else опрератор2;

End.

Введите число

x mod b=0

Writeln (ˊКратно b΄)

Writeln (ˊНе кратно b΄);

Begin

Writeln(ˊ комментарии что ждем от пользователя΄);

Readln ( переменная );

if условие then оператор1

else опрератор2;

End.

Введите число

x mod b=0

Writeln (ˊКратно b΄)

Writeln (ˊНе кратно b΄);

Writeln(ˊ комментарии что ждем от пользователя΄);

Readln ( переменная );

Вопрос 6 с 133 Дано трехзначное число. Напишите на языке Паскаль программу, которая определяет: а) есть ли среди цифр заданного целого трехзначного числа одинаковые; б) является ли число палиндромом. а) есть ли среди цифр заданного целого трехзначного числа одинаковые;

Как выделить первую цифру числа?

c1:=x div 100

Как выделить последнюю цифру числа?

c3:=x mod 10

Как выделить среднюю цифру числа?

Как сократить число до двух цифр?

c2:=x div 10

c2:=x mod 100

Что нужно сделать теперь, чтобы осталась нужная цифра?

c2:=(x div 10) mod 10

c2:=(x mod 100) div 10

Begin

Writeln(ˊ комментарии что ждем от пользователя΄);

Readln ( переменная );

c1:= x div 100;

c2:= (x div 10) mod 10;

c3:=x mod 10;

if условие

End.

(c1=c2)

then Writeln (ˊЕсть΄)

else Writeln (ˊНет΄);

or (c2=c3)

or (c1=c3)

Begin

Writeln(ˊ комментарии что ждем от пользователя΄);

Readln ( переменная );

c1:= x div 100;

c3:=x mod 10;

if условие

End.

(c1=c3)

then Writeln (ˊПалиндром΄)

else Writeln (ˊНет΄);

б) является ли число палиндромом

c2:= (x div 10) mod 10;

Вопрос 7 с 134 Дано две точки в декартовой системе координат. Напишите на языке Паскаль программу, которая определяет: которая из точек находится ближе к началу координат. Как найти расстояние между двумя точками

d:=SQRT((xb-xa)*(xb-xa)+(yb-ya)*(yb-ya))

Начало координат (0,0)

Для второй точкис координатами (xb,yb)

d1:=SQRT(xa*xa+ya*ya)

d2:=SQRT(xb*xb+yb*yb)

Для первой точки с координатами (xa,ya)

Begin

Writeln(ˊ комментарии что ждем от пользователя΄);

Readln ( переменная );

d1:=SQRT(xa*xa+ya*ya);

d2:=SQRT(xb*xb+yb*yb);

if условие

End.

(d1<d2)

then Writeln (ˊПервая точка ближе΄)

else Writeln (ˊВторая точка ближе΄);

Вопрос 8 с 134 Дано три натуральных числа. Напишите на языке Паскаль программу, которая определяет: существует ли треугольник с такими длинами сторон.

Begin

Writeln(ˊ комментарии что ждем от пользователя΄);

Readln ( переменная );

if условие

End.

(a+b>c)

then Writeln (ˊСуществует΄)

else Writeln (ˊНе существует΄);

б) является ли число палиндромом

and (a+c>b)

and (b+c>a)

Вопрос 8 с 134 Дано три натуральных числа. Напишите на языке Паскаль программу, которая определяет: существует ли треугольник с такими длинами сторон. Если такой треугольник существует, то определите его тип (равносторонний, равнобедренный, разносторонний). If (a+b>c) and (a+c>b) and (b+c>a) then

Writeln (ˊСуществует΄);

If (a+b>c) and (a+c>b) and (b+c>a) then

begin

end;

if (a=b) and (a=c) and (b=c) then Writeln(ˊравностороннийˊ)

elseif (a<>b) and (a<>c) and (b<>c) then Writeln(ˊразностороннийˊ)

else Writeln(ˊравнобедренныйˊ);

Begin

Writeln(ˊ комментарии что ждем от пользователя΄);

Readln ( переменная );

else Writeln (ˊНе существует΄);

End.