TURBO PASCAL:Учебное пособие. Терёхин В.В. - 46 стр.

UptoLike

Составители: 

46
n: integer;
begin
Writeln (' Введите число’);
Read (n) ;
case n of
1 : write ( ' один' ) ;
2: write (' два ');
3 : write ( ' три' ) ;
4 : write ( 'четыре' ) ;
5 : write ( ' пять ' )
;
else
write ('число не подходит');
end;
end.
Задачи для самостоятельного решения
1. Дано действительное число
х.
Вычислить значение ве-
личины
>
+
+
=
2
74
1
274
2
2
xпри
xx
xприxx
y
.
2. Числа а и b выражают длины катетов одного прямо-
угольного треугольника, а с и d - другого. Выяснить, являются ли
треугольники подобными.
3. Вычислить, если это возможно, значение выражения
)7)(2( +
+
xx
yx
.
4. Написать программу, которая по номеру месяца определяет, к
какому времени года он относится.
5. Написать программу, которая запрашивает название ме-
сяца и выводит на экран количество дней в нем.
   n: integer;
begin
   Writeln (' Введите число’);
   Read (n) ;
   case n of
       1 : write ( ' один' ) ;
       2: write (' два ' ) ;
       3 : write ( ' три' ) ;
       4 : write ( 'четыре' ) ;
       5: write ( ' пять ' ) ;
  else
       write ('число не подходит');
  end;
end.

       Задачи для самостоятельного решения
1. Дано действительное число х. Вычислить значение ве-
личины
           ⎧ x 2 + 4 x − 7 при x ≤ 2
           ⎪
       y=⎨          1                 .
           ⎪⎩ x 2 + 4 x − 7 при x > 2

2. Числа а и b выражают длины катетов одного прямо-
угольного треугольника, а с и d - другого. Выяснить, являются ли
треугольники подобными.
3. Вычислить, если это возможно, значение выражения
                                   x+ y
                                              .
                             ( x − 2)( x + 7)
4. Написать программу, которая по номеру месяца определяет, к
какому времени года он относится.
5. Написать программу, которая запрашивает название ме-
сяца и выводит на экран количество дней в нем.


                                                              46