Тема "Программирование линейных и условных алгоритмов"

 Некоторые стандартные математические функции

При использовании стандартных функций необходимо контролировать тип аргумента  (возможные типы указаны в скобках).

a:=random(x) – случайное число (если аргумент не указан, то результат real – число в  интервале от 0 до 1, если x целое число от 0 до 65535, то результат случайное целое  число в интервале от 0 до х-1;

a:=abs(x) – модуль (абсолютная величина) x (real или integer);

a:=b div x – целая часть, полученная при делении числа b на число x (число real, результат integer), 

a:=b mod x –остаток от деления числа b на число x,

a:=round(x) – целое число, полученное в результате округления числа x по правилам математики

a:=sqr(x) – квадрат числа x (real, integer);

a:=sqrt(x) – квадратный корень из числа x (real, x>0);

 Наберите следующую программу и разберитесь в ее работе:

Вычислить сумму цифр трехзначного числа a, введенного с клавиатуры.  В  программе  каждая цифра определяется как количество сотен, десятков и единиц с помощью арифметических  операций.

program summa;

uses crt;

   var  a, s, d, e, o : integer;

begin

  writeln('Сумма цифр трехзначного числа');

  write('Введите целое трехзначное число  ');

  readln(a);

  clrscr;

 s:=a div 100;                                          {количество сотен}

  o:=a mod 100;               

  d:=o div 10;                                            {количество десятков}

  e:=a-s*100-d*10;                                    {количество единиц}

  writeln('Сумма цифр трехзначного числа=', s+d+e);

end.

  Структура условного оператора:

      If условие Then группа операторов [Else группа операторов];

Перед Else знак " ; " никогда не ставится. В квадратных скобках указана необязательная часть.

     В качестве условия может быть использовано любое  выражение логического типа.

     Условия можно объединять с помощью Or – Или и с помощью And – И.  Если  условий  несколько, то каждое из них необходимо заключить в скобки:

If  (a>2) and (b<2) Then

Наберите и отладьте программу trеug1

Программа  должна  запросить  три  стороны  треугольника  и  по  ним    определить тип треугольника. Определение типа производится сравнением сторон. После отладки проверьте ее при работе со сторонами

                 а) 2, 2, 2;             ответ должен быть "равносторонний"

                 б) 4, 4, 8;             ответ должен быть "равнобедренный"

                 в) 4, 3, 5              ответ должен быть "разносторонний".

Задачи для самостоятельного решения

1.     Написать  программу  вычисления  расстояния  между    двумя точками с координатами x1, y1, x2, y2. Использовать теорему Пифагора. Результат вывести на экран с поясняющим текстом.

2.    Написать программу вычисления у в зависимости от значения х

              y = 1/x   при х < 0          y = 2*x² при других х

Задание