Программирование ветвящихся алгоритмов
план-конспект урока по информатике и икт (10 класс) на тему

1. Даны два угла треугольника (в градусах). Определить, существует ли такой треугольник. Если да, то прямоугольный ли он.

var a,b,c:real;

begin

writeln('введите два угла треугольника');

readln(a,b);

if (a+b)>180 then write('треугольник не существует')

else  

begin writeln('треугольник существует');

      c:=180-(a+b);

      if (a=90) or (b=90) or (c=90) then

      writeln('треугольник прямоугольный')

      else writeln('треугольник не прямоугольный');

end;

end.

2. На плоскости XOY задана своими координатами точка А. Указать, где она расположена: на какой оси или в какой координатной четверти.

var x,y:real;

begin

writeln('введите координаты точки А');

readln(x,y);

if (x=0)and (y=0) then write('в центре координат')

else if (y=0) then  write('на оси x')

else if (x=0) then  write('на оси y')

else if (x>0) then 

         if y>0 then write('в первой четверти') 

        else write('в четвертой четверти')

else begin if y>0 then write ('во второй четверти')

      else write ('в третьей четверти');

      end;

end.

3. Грузовой автомобиль выехал из одного города в другой со скоростью V1 км/ч. Через t ч в этом же направлении выехал легковой автомобиль со скоростью  v2 км/ч. Составить программу, определяющую, догонит ли легковой автомобиль грузовой через t ч после своего выезда.

var v1,v2,t,t1:real;

begin

writeln('v1=');

read(v1);

writeln('t=');

read(t);

writeln('v2=');

read(v2);

writeln('t1=');

read(t1);

if (v2*t1>=v1*(t+t1)) then write('догонит') else write ('не догонит');

end.

4. Написать программу нахождения суммы большего и меньшего из 3 чисел.

var a,b,c,max,min:integer;

begin

write ('введите три числа');

readln(a,b,c);

  if (a>b) and (a>c)

  then max:=a 

  else if (b>a) and (b>c) then max:=b

      else max:=c;

      if (a

  then min:=a 

  else if (b

      else min:=c;

writeln(max+min);

end.

5. Написать программу, распознающую по длинам сторон среди всех треугольников прямоугольные. Если таковых нет, то вычислить величину угла С.

var a,b,c,n,uc:real;

f:boolean;

begin

writeln('введите стороны треугольника');

readln(a,b,c);

if (a>b) and(a>c) then f:=(a*a=c*c+b*b)

else if (b>c) and (b>a) then f:=(b*b=a*a+c*c)

else f:=(c*c=a*a+b*b);

if f=true then writeln ('Треугольник  прямоугольный')

else begin

writeln ('треугольник не прямоугольный');

n:=(a*a+b*b-c*c)/(2*a*b);

uc:=arctan(sqrt(1+1/n))*180/pi;

writeln('Угол С равен: ',uc:8:2);

end;

end.

6. Составить программу, осуществляющую перевод величин из радианной меры в градусную или наоборот. Программа должна запрашивать, какой перевод нужно осуществить, и выполнять указанное действие.

var gr,rad:real;

s:char;

begin

writeln('Перевести в радианы или градусы р/г:');

read(s); 

if (s='р')or (s='r')or (s='R')or (s='Р') then

  begin 

  writeln ('введите количество градусов');

  read (gr);

  rad:=gr*pi/180;

  Write(gr:3:6,'градусов=',rad:3:6,'радиан');

  end

  else

    begin

    write('введите количество радиан:');

    read (rad);

    gr:=rad*180/pi;

    Write(rad:3:6,'радиан=',gr:3:6,'градусов');

    end;        

end.