Программирование ветвящихся алгоритмов. Презентация 2 .pptx. Автор: Пьянкова Валентина и Заводова Алина

Слайд 1

Программирование ветвящихся алгоритмов Задача 1 Ответ Задача 2 Ответ Задача 3 Ответ Задача 4 Ответ Задача 5 Ответ Задача 6 Ответ Задача 7 Ответ Задача 8 Ответ Задача 9 Ответ Задача 10 Ответ Задача 11 Ответ Задача 12 Ответ Задача 13 Ответ Задача 14 Ответ Задача 15 Ответ Задача 16 Ответ

Слайд 2

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

Слайд 3

Ответ Program PR1; uses crt ; var a: Integer; Begin clrscr ; read (a); If a mod 2 = 0 then write ('ok') else write ('no'); end .

Слайд 4

Задача 2 С клавиатуры вводятся два числа. Напишите наибольшее

Слайд 5

Ответ Program PR2; uses crt ; var a,b : Integer; Begin clrscr ; read ( a,b ); If a>b then write (a) else write (b); end.

Слайд 6

Задача 3 Является ли число двузначным?

Слайд 7

Ответ Program PR 3; uses crt ; var a: Integer; Begin clrscr ; write ('a='); read (a); If (a>9) and (a<100) then write (' является ') else write (' не является '); end .

Слайд 8

Задача 4 С клавиатуры вводятся два числа: а и b . Если а больше b , то найти сумму, иначе – разность

Слайд 9

Ответ Program PR4; uses crt ; var a,b : Integer; Begin clrscr ; read ( a,b ); If a>b then write ( a+b ) else write (a-b); end .

Слайд 10

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

Слайд 11

Ответ Program PR 5; uses crt ; var a,b,c : Integer; Begin clrscr ; writeln ('введите стороны треугольника'); read ( a,b,c ); If (a=b) or (a=c) or (b=c) then write (' является ') else write (' не является '); end .

Слайд 12

Задача 6 С клавиатуры вводится возраст человека. Имеет ли он право ездить на велосипеде по проезжей части?

Слайд 13

Ответ Program PR6; uses crt ; var a: Integer; Begin clrscr ; write ('a='); read (a ); If a>14 then write (' имеет ') else write (' не имеет ' ) ; end .

Слайд 14

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

Слайд 15

Ответ Program PR7; uses crt ; var a,b,c : Integer; Begin clrscr ; writeln ('введите стороны треугольника'); read ( a,b,c ); If ( sqr (a)= sqr (b)+ sqr (c)) or ( sqr (b)= sqr (a)+ sqr (c)) or ( sqr (c)= sqr (a)+ sqr (b)) then write (' является ') else write (' не является '); end.

Слайд 16

Задача 8 С клавиатуры вводятся углы четырёхугольника. Является ли он прямоугольником?

Слайд 17

Ответ Program PR 8; uses crt ; var a,b,c,d : Integer; Begin clrscr ; writeln ('введите углы четырёхугольника'); read ( a,b,c,d ); If (a=90) and (b=90) then write (' является ') else write (' не является '); end .

Слайд 18

Задача 9 С клавиатуры вводятся x и y . Как, по отношению к прямой у=2х+1, располагается эта точка?

Слайд 19

Ответ Program PR9; uses crt ; var x, y: Integer; Begin clrscr ; read (x, y); If y>2*x+1 then write (' выше '); If y=2*x+1 then write (' принадлежит графику '); If y<2*x+1 then write (' ниже '); end .

Слайд 20

Задача 10 С клавиатуры вводятся два числа. Если их сумма чётная, то найти их произведение, иначе найти частное.

Слайд 21

Ответ Program PR10; uses crt ; var a,b,S : Integer; Begin clrscr ; read ( a,b ); S:= a+b ; If S mod 2=0 then write (a*b) else write (a/b); end .

Слайд 22

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

Слайд 23

Ответ Program PR11; uses CRT; var a,b,c:Integer ; Begin clrscr ; read ( a,b,c ); If ( a+b

Слайд 24

Задача 12 Если посылка весит 100 г, то его отправляют как письмо, а если больше то бандеролью. Определить письмо это или бандероль

Слайд 25

Ответ Program PR12; uses crt ; var a: Integer; Begin clrscr ; read (a); If (a<100) then write (' письмо ') else write (' бандероль '); end .

Слайд 26

Задача 13 С клавиатуры вводятся стороны прямоугольника а и b . Если a < =b найдите периметр, а иначе найдите площадь

Слайд 27

Ответ Program PR13; uses crt ; var a,b,P,S : Integer; Begin clrscr ; read( a,b ); P:= 2*( a+b ); S:= a*b; If a<=b then write (P) else write (S); end .

Слайд 28

Задача 14 С клавиатуры вводятся стороны 2 треугольников ABC и MNK являются ли эти треугольники подобными.

Слайд 29

Ответ Program PR14; uses CRT; var a,b,c,m,n,k : Integer; Begin clrscr ; read ( a,b,c,m,n,k ); If (a/m=b/n) and (c/k=a/m) and (b/n=c/k) then write (' являются ') else write (' не являются '); end.

Слайд 30

Задача 15 С клавиатуры водится рост и вес человека. Определить есть ли у него избыточный вес или нет, если нормальный вес человека на 110 больше роста.

Слайд 31

Ответ Program PR15; uses CRT; var a,b,c : Integer; Begin clrscr ; read ( a,b ); c:=a-110; If (bc) then write (' избыток веса '); end.

Слайд 32

Задача 16 С клавиатуры водится 4 числа a , b , c , d . Если сумма 1-ых двух чисел равна сумме последующих, то напечатать их сумму иначе напечатать разность сумм

Слайд 33

Ответ Program PR16; uses CRT; var a,b,c,d,e,f : Integer; Begin clrscr ; read ( a,b,c,d ,); e:= a+b ; f:= c+d ; If (e=f) then write (e) else write (e-f); end .