Пример 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.

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

Twitter SEO Community Ваау! News2.ru Chipp Korica SMI2 Google Bookmarks Digg I.ua Закладки Yandex Linkstore Myscoop Communizm Ru-marks Webmarks Ruspace Linkomatic Kli.kz Web-zakladka Zakladok.net Reddit delicious Ma.gnolia Technorati Slashdot Yahoo My Web БобрДобр.ru Memori.ru rucity.com МоёМесто.ru Mister Wong



Copyright © 2009-2010 Программирование на паскале.