КАМЧАТКА Пятница, 17.05.2024, 14:55
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
Категории сайта
 
Категории раздела
Языки программирования [11]
Паскаль(Pascal) [7]
Си(C++) [1]
Джава (Java) [1]
Матлаб(Matlab) [1]
C#(Си Шарп) [1]
Php [1]
HTML [1]
JavaScript [1]
MySQL [0]
CSS [1]
Ассемблер(Assembler) [1]
 
Мини-чат
 
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
 
Это интересно
 
Пожертвуйте цент на содержание сайта
 
Камчатское Интернет-радио

Бесплатно
для "Безлимитной Камчатки"

 
Котик
 
Время до Нового Года
 
-
Главная » Статьи » Программирование » Паскаль(Pascal)

Урок 2 - Работа в среде Borland Pascal на примере программ линейной структуры

Алгоритм линейной структуры - это алгоритм, в котором блоки выполняются в указанном порядке, последовательно друг за другом. Программа линейной структуры реализует соответствующий линейный алгоритм.

Чаще всего линейные алгоритмы используются для программирования вычислений по формулам. В этом случае удобно использовать набор встроенных функций Pascal:
Sin (x) – синус х; cos(x) – косинус х; tan(x)- тангенс х ; ln (x) – натуральный логарифм х ;  exp (x) -показательная функция e^x ; sqr (x) - квадрат  x;   sqrt(x)- корень квадратный от х;  abs(x)- модуль x.
Для тригонометрических функций аргумент х  измеряется в радианах. Гиперболические функции записываются с применением экспоненты, например: Sh (x)=(exp (x)-exp (-x)) /2

Пример программы линейной структуры

Требуется вычислить высоты треугольника по трем заданным сторонам a, b, c. Для вычисления высот воспользуемся двумя выражениями  площади треугольника - по трем сторонам (формула Герона) и как половина произведения стороны на соответствующую высоту:
S=1/2*ah     ;       S=;
здесь p - полупериметр p=(a+b+c)/2. Соответствующая этому алгоритму программа вычисления  высот треугольника имеет вид:

program linejn  ; {программа вычисления высот треугольника }
var
a, b, c, p, ha, hb, hc, t : real; {описание используемых переменных }
begin
writeln (‘Введите стороны тр-ка a,b,c’);
readln (a,b,c);
p:=(a+b+c)/2.; {вычисление полупериметра треугольника }
t:=2.*sqrt (p*(p-a)*(p-b)*(p-c));
ha:=t/a; hb:=t/b; hc:=t/c; {вычисление высот треугольника }
writeln (‘Высоты треугольника: ha=‘,ha:8:2,’ hb=‘, hb:8:2,’  hc=‘,hc:8:2);
readln;
end. 

Дадим краткое пояснение. Комментарий в программе на языке Паскаль служит для разъяснения действий основных блоков текста и программы в целом. Комментарий заключается в фигурные скобки {} или в пары символов (*   *) и не влияет на компиляцию программы. Это - средство самодокументирования программ. 
Процедуры read , write (writeln) служат для  ввода с клавиатуры и вывода на экран соответственно. Символы ln в процедуре writeln служат для перевода на новую строку. В программе описаны переменные a, b, c, ha, hb, hc, t вещественного типа (real).
В данной программе из математических функций используется sqrt(x) - квадратный корень из x.
При выводе можно включить общую ширину поля вывода и число позиций после десятичной точки. В данном случае высоты треугольника выводятся в поле из 8 позиций каждая, из которых одна отводится на десятичную точку, а две - на цифры после десятичной точки. Остальные 5 позиций отводятся на знак и целую часть числа. Вывод текста ‘  hb=’  содержит по крайней мере один пробел после  первого апострофа для отделения от предыдущего значения. Завершает текст  программы  оператор end.
Обратим внимание, что в программе вычисляется промежуточная переменная t (удвоенная площадь треугольника), через которую вычисляются высоты. Вычисление такого рода промежуточных переменных для сокращения дальнейших вычислений - характерный признак программ на языках высокого уровня, в том числе Паскаль.

Общие сведения  о  интегрированной Среде Borland Pascal

Экраны интегрированных Сред  Turbo и Borland  Pascal подобны и содержат главное меню, окно редактирования, строку состояния. Для входа в главное меню следует нажать F10. 
Главное меню содержит пункты:  File(Файл), Edit(Редактирование), Search(поиск), Run(Исполнить), Compile(Компиляция), Debug(Отладка), Tools(Инструменты), Options(Параметры), Window(Окно), Help(Помощь). Из этих пунктов для нас важнейшими будут File, Edit, Compile, Run, Help.
В меню File имеются пункты Open (Открыть), при помощи которого открывается существующий программный файл, New (Создать) - создается новый файл, Save (Сохранить) - сохраняется редактируемый файл, Save as (Сохранить как) - файл сохраняется под новым именем, Change dir (Изменить каталог) - задаются входные и выходные каталоги. Последним пунктом нужно пользоваться, чтобы задать ваш каталог, где хранятся тексты программ. Пункт Quit(Выход) служит для выхода из Среды. В меню File приведены также “горячие “ клавиши (F3), (F2), (ALT+X) для открытия, сохранения файла и для выхода из Среды соответственно.
В меню Edit имеются пункты Cut (Вырезать), Copy (Копировать), Paste (Вставить), Clear (Очистить), которые служат для вырезания, копирования, вставки и очистки выделенного фрагмента текста, как в любом текстовом редакторе.
Выделение фрагмента текста производится установкой курсора в начале фрагмента, отметкой начала блока (CTRL+K+B), передвижением курсора в конец блока и отметкой конца блока (CTRL+K+K). Вырезание, копирование, вставка фрагмента осуществляются с помощью пунктов меню Edit или с помощью горячих клавиш (Shift+Del), (CTRL+INS), (Shift+INS) соответственно.
Меню Compile содержит пункт Compile(Компиляция), горячие клавиши ALT+F9.
Меню Run содержит пункт Run(Исполнить),  горячие клавиши CTRL+F9.
Меню Help позволяет обратиться к подсказке (справочной системе), содержит пункты Contents (Содержание), Index (Предметный указатель) - горячие клавиши (Shift+F1), Topic search (Тематический поиск) - горячие клавиши (CTRL+F1). Подсказкой следует пользоваться для быстрого освоения Интегрированной Среды. Нажатие клавиши F1 приводит к открытию окна подсказки. Для получения справки о конкретной функции следует установить курсор на любой символ заголовка функции и нажать (CTRL+F1).

Категория: Паскаль(Pascal) | Добавил: Cooladmin (18.05.2014)
Просмотров: 793 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
 
Поиск
 
Время
 
Это интересно
 
Погода

Погода от Метеоновы по г. Москва

Погода от Метеоновы по г. Петропавловск-Камчатский

Погода от Метеоновы по г. Елизово

Погода от Метеоновы по г. Вилючинск

 
Гороскоп
Loading...
 
Курс валют
 
Активность
Приветствуем нового пользователя: ivanbockarev817 07.06.2019 в 18:20
Приветствуем нового пользователя: defaultNick 14.12.2016 в 22:48
ivanbockarev817 прокомментировал(а) Assassin's Creed... 07.06.2019 в 18:27
RiPsler прокомментировал(а) Max Payne 3... 08.05.2014 в 23:59
Cooladmin добавил(а) материал: Медведев оценил отно... 21.05.2014 в 21:39
Cooladmin добавил(а) материал: Власти ДНР не намере... 18.05.2014 в 00:31
Cooladmin добавил(а) пост в теме: Что вы хотите здесь ... 05.05.2014 в 14:43
Cooladmin добавил(а) пост в теме: Какую музыку и какие... 05.05.2014 в 14:42
 
Комментарии
 
Афоризмы
 
Администратор Овчинников В.А. © 2024

Яндекс.Метрика