ОПЕРАТОР СРАВНЕНИЯ (УСЛОВНЫЙ ОПЕРАТОР)

if  <условие>  then  <если ДА>  else  <если НЕТ>;

if – если

then – потом, тогда

else – иначе, в противном случае (может не быть)

If1  Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.

Вход: 17;  Выход: 18     Вход: -5;  Выход: -5

var a : integer ;

Begin

read (a);

if  a>0  then  a:=a+1;

writeln (a);

End .

If2  Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.

Вход: 17; Выход: 18     Вход: -5; Выход: -7

if a>0 then a:=a+1 else a:=a-2;

If3  Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.

Вход: 17; Выход: 18     Вход: -5; Выход: -7     Вход: 0; Выход: 10

If a>0 then a:=a+1

else  if  a<0  then  a:=a-2

         else a :=10;

If4  Даны три целых числа. Найти количество положительных чисел в исходном наборе.

Вход:  2  3  -5; Выход: 2

var  a,b,c,kol:  integer;

Begin

kol:=0;

read  (a,b,c);

if  a>0  then  kol:=kol+1;  {kol - счётчик}

if  b>0  then  kol:=kol+1;

if  c>0  then  inc(kol);

writeln ('кол-во положительных= ', kol );

End .

If5  Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.

Вход:  2  3  -5; Выход:   "+": 2 "-": 1

If6  Даны два числа. Вывести большее из них.

Вход: 22 32; Выход: max=32

if  a>b  then  writeln  ('max=',a)  else  writeln  ('max=',b);

If7  Даны два числа. Вывести порядковый номер меньшего из них.

Вход: 22 32; Выход: nom_min=1

If8  Даны два числа. Вывести вначале большее, а затем меньшее из них.

Вход: 22 32; Выход: max=32 min=22

If10  Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.

Вход: ;   Выход:

Вход: ; Выход:

If11  Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.

Вход: ;   Выход:

Вход: ; Выход:

 

ЛОГИЧЕСКИЕ ОПЕРАЦИИ AND, OR

Логическое "И", AND. if (x>3) and (x<8) then - тогда

В операторе IF должно выполниться И первое условие, И второе. (ПЕРЕСЕЧЕНИЕ МНОЖЕСТВ).

Логическое "ИЛИ", OR. if x={1,2,3} OR x={7,8} then - тогда x={1,2,3,7,8}

В операторе IF должно выполниться ИЛИ первое условие, ИЛИ второе.

(ОБЪЕДИНЕНИЕ МНОЖЕСТВ).

If12  Даны три числа. Найти наименьшее из них.

Вход: 22 32 12; Выход: min=12

var a,b,c,min: integer;

Begin

read (a,b,c);

if (a<b) and (a<c) then min:=a

Else

if (b<a) and (b<c) then min:=b

else  min:=c;

writeln ('min=',min);

End .

If13. Даны три разных числа. Найти среднее из них.

Вход: 22 32 12; Выход: среднее =22

var a , b , c , sred : integer ;

Begin

read  (a,b,c);

if ((a<b) and (a>c))  or  ((a>b) and (a<c))  then sred:=a;

if  ((b<a) and (b>c))  or  ((b>a) and (b<c))  then sred:=b;

if  ((c<a) and (c>b))  or  ((c>a) and (c<b))  then sred:=c;

writeln  ('среднее=',sred);

End.

If14  Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

Вход: 22 44 32; Выход: min=22 max=44

If15  Даны три числа. Найти сумму двух наибольших из них.

Вход: 22 44 32; Выход: s=76

If17  Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию или убыванию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных A, B, C.

Вход: 4 2 1; Выход: 8 4 2     Вход: 2 -1 4; Выход: -2 1 -4

If19  Даны четыре целых числа, одно из которых отлично от трех других, равных между собой. Определить порядковый номер числа, отличного от остальных.

Вход: 4 4 6 4; Выход: 3

If22  Даны координаты точки, не лежащей на координатных осях OX и OY. Определить номер координатной четверти, в которой находится данная точка.

Вход: -4.6 -5.33; Выход: 3

If23  Даны целочисленные координаты трех вершин прямоугольника, стороны которого параллельны координатным осям. Найти координаты его четвертой вершины.

Вход: -2 3 5 3 5 -1; Выход: -2 -1

If25  Для данного целого X найти значение следующей функции F, принимающей значения целого типа:

Вход: - 3; Выход: -6

 

If26  Для данного вещественного X найти значение следующей функции F, принимающей вещественные значения:

Вход: -1.5;   Выход: 1. 5 Вход: 1.5;   Выход: 2.25 Вход: 3;   Выход: 4

If28  Дан номер года (положительное целое число). Определить количество дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный - 366 дней. Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400 (например, годы 300, 1300 и 1900 не являются високосными, а 1200 и 2000 − являются).

If29  Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число», «положительное нечетное число» и т. д.

If30  Дано целое число, лежащее в диапазоне 1–999. Вывести его строку-описание вида «четное двузначное число», «нечетное трехзначное число и т. д.

10. РЕШЕНИЕ ЛИНЕЙНОГО УРАВНЕНИЯ

1)    2)        3)      4)

           если        если ,

                                                                                     x – любые числа

var a,b,x: real;

Begin

writeln ('Для линейного уравнения');

writeln ('введите коэффициенты A и B ');

read (a,b);

if (a=0) and (b=0) then writeln ('x - любые числа')

else if a=0 then writeln ('нет решений')

Else

Begin

x:=-b/a;

writeln ('x=',x:6:2);

end ;

End .

11. РЕШЕНИЕ ЛИНЕЙНОГО НЕРАВЕНСТВА

1)     2)     3)           4)

        Если ,                Если ,

                            Если , тогда       тогда нет

                x – любые числа          решений

                             Если , тогда

            нет решений

    

 

12. РЕШЕНИЕ УРАВНЕНИЯ С МОДУЛЕМ

1)                                           2)

      или                     

                                                    

                                      

 

13. РЕШЕНИЕ КВАДРАТНОГО УРАВНЕНИЯ

1) Вводим коэффициенты a , b , c ;                Проверка:

2)                                             - 'НЕТ КОРНЕЙ'

3) Если , тогда 'НЕТ КОРНЕЙ'          2)

Если , тогда                              

Если , тогда                     

 . 3)

 

14. РЕШЕНИЕ КВАДРАТИЧНОГО НЕРАВЕНСТВА

1) Вводим коэффициенты

2)

3) Если  тогда 'x-любые числа'

Если  тогда 'нет решений'

Если  тогда 'нет решений'

Если  тогда

4) Если тогда , ,

Если  (если нет, поменять местами):

Если

Если

 

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

Begin

writeln ('Для квадратичного неравенства Ax ^2+ Bx + C >0');

writeln ('введи коэффициенты A , B , C . A ≠0');

read  (a,b,c);

d:=sqr(b)-4*a*c;

if  (d<0)  and  (a>0)  then  writeln ('x-любые числа');

if  ((d<0)  or  (d=0))  and  (a<0)  then  writeln ('нет решений');

if  (d=0) and  (a>0)  then

Begin

  x:=-b/(2*a);

  writeln ('(-∞;',x:4:2,') ∪ (',x:4:2,';+∞)');

 end;

if  d>0  then

Begin

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

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

if  x1>x2  then

Begin

    x:=x1;  x1:=x2;  x2:=x;

End;

if  a>0  then writeln ('(-∞;',x1:4:2,') ∪ (',x2:4:2,';+∞)')

           else writeln ('(',x1:4:2,';',x2:4:2,')');

   end ;

End .

 

---

Дата добавления: 2019-09-13; просмотров: 179; Мы поможем в написании вашей работы!

Поделиться с друзьями:

---

---

Мы поможем в написании ваших работ!