Арифметические вычисления.

 

    

Описание: Эта программа запрашивает у пользователя числа и выводит результаты различных математических операций с ними. В комментариях к тексту программы приведены дополнительные сведения о конкретных процедурах и функциях.

 

Текст программы:

{Проект Begin … end! -> www.tolks.narod.ru}

program Program3;  {Название данной программы}

uses crt; {Описание используемых модулей в зависимости от задач, решаемых в программе}

var

x, y: real; {Переменные дробного типа}

i: integer; {Целочисленные переменные}

begin {Начало исполнительной части программы}

     clrscr; {Очистка экрана}

     writeln ('Введите дробное число x и целое число i: '); {Вывод приглашения пользователю}

     readln(x, i); {Ввод}

 

{Простые арифметические операции}

      y := x*i – (i/2+1);

writeln (‘y := x*i – i/2+1 = ’, y:8:3);

 

{Некоторые функции – см. Справку к программе TurboPascal 7.0}

      {квадрат x}

y := sqr(x);

writeln (‘y := sqr(x) = ’, y:8:3);

{tg x - x должен быть в радианах!}

y := sin(x)/cos(x);

writeln (‘y := tg(x) = ’, y:8:3);

{arcsin x - x должен быть в радианах!}

y := arctan( sqrt(x*x/(1-x*x)));

writeln (‘y := arcsin(x) = ’, y:8:3);

{возведение i в степень x}

y := exp(x*ln(i));

writeln (‘y := i^x = ’, y:8:3);

 

      writeln (‘Нажмите любую клавишу для завершения…');

     readkey; {Без аргументов (как здесь) ждёт нажатия любой клавиши}

end. {Окончание программы – перед End точку с запятой ; можно не ставить}

 

 

'Загрузить текст программы'

 

Примечания:

• Чтобы вывести сообщение в конце текущей строки вместо Writeln используйте процедуру Write (это справедливо и для Readln - Read).
• Для целочисленных типов формат вывода не указывается.

 

Попробуйте поэкспериментировать с текстом программы для лучшего понимания:

• Уберите очистку экрана – Clrscr.
• Измените формат вывода числа, например, на (x+y):8:1 или  на просто (x+y).
• Поменяйте Readln на Read или Writeln на  Write.
• Уберите ReadKey.

 

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

'К списку тем'     'Версия для печати'

 

 {Примечания:

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

                                                                              

2. Размещать приведённые материалы с сайта проекта "Begin ... end!" (www.tolks.narod.ru) на других сайтах (как полностью, так и частично) можно только с согласия авторов проекта и только с обязательным указанием адреса проекта "Begin ... end!" (www.tolks.narod.ru).}