Программирование ветвящихся алгоритмов. Презентация 3 .pptx. Автор: Корытов Дмитрий

Слайд 1

Слайд 2

Задача 1 Является ли число А нечётным?

Слайд 3

Решение задачи 1 Program DC1; uses CRT; var a:Integer; Begin clrscr ; read (a); if a mod 2=1 then write ('ok') else write ('no'); end .

Слайд 4

Задача 2 Является ли треугольник прямоугольным?

Слайд 5

Решение задачи 2 Program DC 2; uses CRT; var a,b,c : Integer; Begin clrscr ; write (' введите число '); read ( a,b,c ); if sqr ((a)= sqr (b)+ sqr (c)) or ( sqr (b)= sqr (a)+ sqr (c)) or ( sqr (c)= sqr (b)+ sqr (a)) then write ('ok') else write ('no'); end . end .

Слайд 6

Задача 3 Существует ли треугольник со сторонами a b c ?

Слайд 7

Решение задачи 3 Program DC3; uses CRT; Var a,b,c:Integer ; Begin Clrscr ; write ('введите стороны треугольника'); Read ( a,b,c ); if (a< b+c ) and (b< a+c ) and (c< a+b ) then write (' существует ') else write (' несуществует '); end .

Слайд 8

Задача 4 Существует ли треугольник c углами a , b , c ?

Слайд 9

Решение задачи 4 Program DC4; uses CRT; var a,b,c:Integer ; Begin Clrscr ; Write ('a='); read (a); Write ('b='); read (b); Write ('c='); read (c); C:=180-( a+b ); if (180= a+b+c ) then write ('ok') else write ('no'); end .

Слайд 10

Задача 5 Является ли треугольник со сторонами a , b , c равнобедренным?

Слайд 11

Решение задачи 5 Program DC5; uses CRT; var a,b,c:Integer ; Begin clrscr ; write ('введите стороны треугольника'); read ( a,b,c ); if (a=b) or (b=c) or (a=c) then write (' равнобедренный ') else write (' неравнобедренный '); end .

Слайд 12

Задача 6 С клавиатуры вводятся координаты точки . Где располагается относительно графика точка?

Слайд 13

Решение задачи 6 Program DC6; uses CRT; Var x,y:Integer ; begin clrscr ; write (' введите координатры '); read ( x,y ); If (y>2*x+1) then write (' выше ') else write (' ниже '); If (y=2*x+1) then write (‘ принадлежит ’) end

Слайд 14

Задача 7 Является ли число А положительным или отрицательным?

Слайд 15

Решение задачи 7 Program DC7; uses CRT; var a: Integer; Begin clrscr ; read (a); if ( а >0) then write (‘ положительное ’) and (a<0) then write (‘ отрицательное ’) else write (a=0); end .

Слайд 16

Задача 8 C клавиатуры вводится масса объекта. Если объект весит 5 или более грамм, то это тетрадь, если 15 и более грамм, то это учебник.

Слайд 17

Решение задачи 8 Program DC8; uses CRT; var a:Integer; Begin clrscr ; write (a); read (a); if (a >= 5 ) then write (' тетрадь '); if (a >= 15 ) then write (' учебник '); end .