Курсовая работа: Приложения технологии языка программирования Паскаль в прикладной механике

write (r+s:10:5); - (вывести значение выражения r + s с выделением для этого 10 позиций, из них 5 (после запятой).

Для других типов все несколько проще:

write (p:10); - (вывести значение выражения p , выделив под это 10 позиций. Вывод на экран в любом случае производится по правому краю выделенного поля.

Writeln (p1, p2, ... pn) ; - (аналогично write , выводит значения p1, p2, ... pn , после чего переводит курсор на новую строку. Смысл параметров (тот же, замечания о форматном выводе остаются в силе.

Существует вариант writeln ; (без параметров), что означает лишь перевод курсора на начало новой строки.

r eadln (v1, v2, ...vn); (ввод с клавиатуры значений переменных v1,...vn.

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

r ead (v1, v2, ...vn); (по назначению сходно с readln ; отличие состоит в том, что символ перевода строки (Enter ), нажатый при завершении ввода, не «проглатывается», а ждет следующего оператора ввода. Если им окажется оператор ввода строковой переменной или просто readln ; то строковой переменной будет присвоено значение пустой строки, а readln без параметров не станет ждать, пока пользователь нажмет Enter , а среагирует на уже введенный.

Пример. Программа просит пользователя ввести с клавиатуры два целых числа и печатает на экране их сумму:

Program PrintSum;

var a,b: integer;

begin

write ('Введите два числа:');

readln (a,b);

writeln (' Сумма a и b равна ',a+b);

readln ;

end .

1.3.2. Функции числовых параметров.

Название	Значение
abs(x)	модуль x
cos(x)	косинус x
frac(x)	дробная часть x
int(x)	целая часть x (т.е. ближайшее целое, не превосходящее x )
pi	|число
round(x)	x , округлённое до целого
sin(x)	синус x
sqr(x)	квадрат x
sqrt(x)	квадратный корень из x

1. Оператор if .

Иногда требуется, чтобы часть программы выполнялась не всегда, а лишь при выполнении некоторого условия (а при невыполнении этого условия выполнялась другая часть программы). В этом случае пользуются оператором условного выполнения, который записывается в следующем виде:

if then else;

Под оператором понимается либо одиночный оператор (например, присваивания, вызова процедуры), либо такой составной оператор, состоящий из нескольких простых операторов, помещённых между словами begin и end . Важно заметить, что перед else не ставится точка с запятой. Часть else может и отсутствовать.

Пример 1: пусть требуется найти число m=max(a,b). Этой задаче

соответствует следующий фрагмент программы на Паскале:

if a>b then m:=a else m:=b;

Пример 2: (без else) пусть дано целое число i . Требуется оставить его

без изменения, если оно делится на 2, и вычесть из него 1, если это не так.

var i: integer;

if i mod 2 = 1 then i:=i-1; {else - ничего не делать }