Цели:

  1. Получить навыки использования основных функций;
  2. Научиться использовать различные типы данных;
  3. Закрепить умения по работе в среде Pascal.

Рассмотрим несколько примеров:

|| Заданы a, x, y. Вычислите S=|a|+√(x+y2)


                рrogram zadacha2_8;                        //название программы
                var
                    a, x, y, s: real;                      //описание переменных
                Begin                                      //начало
                    writeln('введите число x: ');          //вывод сообщения
                    read(x);                               //ввод x
                    write('введите число y: ');            //вывод сообщения
                    read(y);                               //ввод y
                    writeln('введите число a: ');          //вывод сообщения
                    read(a);                               //ввод a
                    s := abs(a)+sqrt(x+sqr(y));            //вычисление
                    writeln('s = ', s);                    //вывод результата
                End.                                       //конец
            

|| Задан радиус (целое число). Вычислить площадь круга и длину окружности


                рrogram zadacha2_9;                                          //название программы
                var
                    r: integer;                                              //описание переменных
                    l, s: ?????;   {подумайте, какой тип данных необходимо записать}
                Begin                                                        //начало
                    writeln('введите радиус окружности r: ');                //вывод сообщения
                    read(r);                                                 //ввод x
                    l:=2*pi*r;                                               //вычисление
                    s:=pi*sqr(r);
                    writeln('площадь круга = ',s,' длина окружности = ',l);  //вывод результата
                End.                                                         //конец
            

|| Заменяя в программе функцию int() на функции trunc(), round(), frac() и правильно используя типы данных, заполните таблицу:

-3.7 -3.2 -3 3.2 3.7 3
Int(x)
Trunc(x)
Round(x)
Frac(x)


                program zadacha2_10;                    //начало
                var
                    a, d: real;                         //описание переменных
                Begin
                    writeln('введите число: ');         //вывод сообщения
                    readln(a);                          //ввод a
                    d := int(a);                        //вычисление целой части числа
                    writeln('результат - ',d);          //вывод результата
                Еnd.                                    //конец
            

|| Заданы x, y. Вычислите S = xy. Воспользуемся соотношением записанном в §1.3: xy=exр(y*ln(x))


                program zadacha2_11;                            //начало
                var
                    x,y : integer;                              //описание переменных
                    s: real;
                Begin
                    writeln('введите число: ');                 //вывод сообщения
                    readln(x);                                  //ввод x
                    writeln('введите степень: ');               //вывод сообщения
                    readln(y);                                  //ввод y
                    s:=exp(y*(ln(x)));                          //вычисление степени
                    writeln(x,' в степени ', y,' = ', s:9:3);   //вывод результата
                Еnd.                                            //конец
            

Вопросы для повторения:

  1. В чём отличие функции int(x) от функции trunc(x)?
  2. Чему равно: int(-7.7)
  3. Чему равно: round(-7.7)
  4. Придумайте три способа возведения числа b в четвёртую степень
  5. Вычислите: sqr(sqrt(7))
  6. С использованием каких функций можно вычислить tg(x)?

Задания для самостоятельной работы:

  1. Задано число x. Вычислите s: s = cos x - sin x + |x-7| + x2 - 1
  2. Задано число x. Вычислите s:
  3. Задано число x. Вычислите s:
  4. Задано вещественное число f. Вычислите разность целой и дробной части числа f.
  5. Задано трёхзначное (четырёхзначное) число. Найдите цифры заданного числа, используя только функцию: int().
  6. Задано трёхзначное (четырёхзначное) число. Найдите цифры заданного числа, используя только функцию: trunc().
  7. Задано трёхзначное (четырёхзначное) число. Найдите цифры заданного числа, используя только функцию: frac().
  8. Задана сторона a равностороннего треугольника. Вычислите высоту треугольника и его площадь.
  9. Даны числа n, k, m. Вычислите x и у, если:
  10. Даны числа n, k, m. Вычислите x и у, если:
  11. Даны числа n, k, m. Вычислите x и у, если: