Практическая работа по информатике "Разветвление в Turbo Pascal"
методическая разработка по информатике и икт (9 класс) по теме

Практическая работа по информатике «Разветвление в Turbo Pascal»

Задача №1.        

Дано число n – натуральное. Определить , является ли число четным.

Задача №2.

 Дано число Р (Р<=7) - радуга. Распечатать соответствующие этому числу цвета

Задачa №3

Составить  программу, запрашивающая  ваш возраст и определяющая, можете ли вы голосовать.

Задача №4.

Составить программу, запрашивающая решение квадратного уравнения

Задача №1.

Program chetnoe;

var n:integer;

begin

  write('Введите n= ');

  readln(n);

  if (n mod 2=0) then

  writeln('n - четное')

  else

  write('n- нечетное');

  readln;

end.

Задача №2

program raduga;

    uses crt;

     var p:integer;

begin

     clrscr;

     Write ('введите число р='); readln(p);

      writeln ('цвет радуги');

      if (p<=7) then

begin

      if (p=1) then write('красный');

      if (p=2) then write('оранжевый');

      if (p=3) then write('желтый');

      if (p=4) then write('зеленый');

      if (p=5) then write('голубой');

      if (p=6) then write('синий');

      if (p=7) then write('фазан');

end

else write('нет такого цвета');

end.

Задача №3.

program golos;

uses crt;

   var a:real;

begin

   write('Введите ваш возраст a= '); read(a);

   if (a>=18) then

   write('Вы можете голосовать')

   else

   write('Вы не можете голосовать'); readln;

end.

Задача №4.

program kvadUr;

uses crt;

   var a,b,c,x1,x2,d:real;

begin

   write('решить квадратное уравнение');

   write('Введите a= '); read(a);

   write('Введите b= '); readln(b);

   write('Введите c= '); readln(c);

   d:=b*b-4*a*c;

   if (d<0) then write('нет действительных корней')

   else

   x1:=(-b-SQRT(d))/(2*a);

   x2:=(-b+SQRT(d))/(2*a);

   writeln('x1= ',x1:12:7,    'x2= ',x2:12:7);

   readln;

end.