Пример 3.2.
Повторить задание 1, используя функции из модуля math. В листинг добавляем ссылку на модуль math, что позволяет использовать прямо функцию тангенса tan(аргумент) и возведения в степень power(основание, степень). Окно работающего приложения имеет такой же вид, как в задании 1.
Листинг программы
program prg_3_2;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, RusTrans, math;
Label
10;
var
a,b,c,x,y,z: real;
proba:integer;
begin
10: writeln(Rus(‘Введите x,y,z’));
readln(x,y,z);
writeln;
writeln(Rus(‘Вы ввели’));
writeln(‘x=’,x:8:3,’ y=’,y:8:3,’ z=’,z:8:3);
writeln;
writeln(Rus(‘Введите 1, если правильно’));
readln(proba);
if proba<>1 then
begin
writeln;
goto 10;
end;
writeln;
c:=tan(x*x);
a:=y*power(c,3)+sqrt(z*z/(y*y+x*x));
b:=ln(y+x*x)+sqr(sin(z/y));
writeln(Rus(‘Результат’));
writeln(‘a=’,a:8:3,’ b=’,b:8:3);
readln;
end.
Выводы
- Консольное приложение – программа под DOS. Проект – программа. Используется единственное окно. Ввод/вывод осуществляется процедурами read, readln, write и writeln.
- Программа с линейной структурой содержит инструкции, завершаемые символом «точка с запятой». Рекомендуется одна инструкция в строке.
- Выражения используются для нахождения новых значений переменных. В выражениях можно использовать стандартные математические функции. Основные функции определены в модулях, подключаемых автоматически.
- Дополнительные математические функции определены в модуле math. Чтобы они были доступны, нужно включить модуль math в строку uses кода программы.
- Для безусловного перехода можно использовать инструкцию goto metka, которая передает управление помеченной инструкции. Метка должна быть предварительно описана в разделе объявления меток label. В исполняемой части программы метка размещается слева от оператора, за именем метки следует вертикальное двоеточие.
- Несколько инструкций можно объединить в одну составную, поместив их в скобки begin…end.
Рекомендуется вводить в программу комментарии. Это либо текст до конца строки после символов //, либо несколько строк, помещенных в фигурные скобки. В листинге программы комментарий по умолчанию отображается курсивом.