Презентация на тему Решение задач по информатике Программирование разветвляющихся алгоритмов

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

then оператор1

else оператор2;

иначе

то

если

then оператор1;







если
то

двух чисел увеличить в 2 раза

3. Является число N четным или нечетным

if N mod 2=0 then write(‘четное’)
else write(‘нечетное’);

2. Найти квадратный корень выражения X-2

if x-2>=0 then y:=sqrt(x-2);

Герона.
Задача №1.

a,b,c,p,S:real;
BEGIN
write(‘Введите стороны: ’); readln(a,b,c);
p:=(a+b+c)/2;

числами определит, могут ли эти числа быть длинами сторон

if b>=a+с then Writeln (‘Нет’)
Else if c>=a+b then Writeln

a, b, c – длины сторон треугольника

него 10, в противном случае прибавить к нему 10.

a:=a+10;
Writeln (a);
End.

умножить его на -2 и вывести на экран, в

d:=d*3;
Writeln (d);
End.











a - первое число
b - второе число
d

четная, найти произведение, в противном случае, найти частное этих

then d:=a*b else d:=a/b;
Writeln (d);
End.




a - первое число
b

d:=b-a;
Writeln (d);
End.





a - первое число
b - второе число
d

его на 2, если меньше или равно 10, то

a:=a/2;
Writeln (a);
End.

100, то сумму уменьшить
в 2 раза, в противном

else S:=S*2;
Writeln (S);
End.



a - первое число
b - второе

четная, то увеличить число на 2 ,в противном случае

a mod 10; S:= b+d;
If s mod 2=0 then

a - двузначное число
b -первая цифра числа
d - вторая цифра числа
S - сумма цифр числа

программы:

Program 1;
Var a,b,x:integer;
Begin
a:=3; b:=-5;
If a

программы:

Program 2;
Var a,b,x:integer;
Begin
a:=3; b:=-5;
If a

программы:

Program 3;
Var a,b,x:integer;
Begin
a:=3; b:=-5;
If a>=b then a:=a*7 else b:=b*4;
x:=a-b;
Writeln

программы:

Program 4;
Var a,b,x:integer;
Begin
a:=3; b:=-5;
If a

программы:

Program 5;
Var a,b,x:integer;
Begin
a:=3; b:=-5;
If a>=b then a:=a+b else b:=b-a;
x:=a*b;
Writeln