Практическая часть работы Примеры линейных программ на языке Pascal

Задача 1. Расчет по формуле.

Написать программу расчета по заданным формулам:

и .

Из формул видно, что исходными данными для этой программы являются три величины – x, y, z. Так как их тип и точность представления в условии не оговорены, выберем для них вещественный тип (real). Все, что требуется для решения этой задачи, - правильно записать формулы на языке программирования Паскаль.

Листинг 1. Текст программы решения задачи 1.

Program FORMULA;

var

x, y, z, a, b : real; {Описания переменных}

temp1, temp2 : real;

begin

WriteLn (‘Введите x :’); {Вод исходных данных x,y,z)

ReadLn (x);

WriteLn (‘Введите y :’);

ReadLn (y);

WriteLn (‘Введите z :’);

ReadLn (z);

temp1 := sqrt(abs(x-1))-sqrt(abs(Pi*x)); {Расчеты по формулам}

temp2 := 1+sqr(x)/2+sqr(y)/4;

a := temp1/temp2 +2.6e3;

b := x*(sin(z)+cos(-(x+3)));

WriteLn (‘ Результат: a = ’ , a : 6 : 2); {Вывод результатов вычисления}

WriteLn (‘ Результат: b = ’ , b : 6 : 2);

ReadLn;

end.

Обратите внимание :

1. Аргумент функции всегда заключается в круглые скобки. Если аргументом служит результат вычисления другой функции, они вкладываются друг в друга, как матрешки. Функция Pi не имеет аргументов, поэтому для ее вызова достаточно указать ее имя.

2. Запись 2.6е3 представляет собой вещественную константу с порядком (запись 1,2*10⁴ в языке программирования Паскаль записывается без пробелов 1.2е4 ; 0,1*10^-5 записывается 0.1е-5). Константы с порядком обычно используются для представления очень больших и очень малых величин. В нашем случае можно было использовать обычную целую константу 2600.

3. В отличие от математической записи в выражении нельзя опускать знак умножения.

4. Все операции выполняются в соответствии с приоритетами, а если операции имеют одинаковый приоритет, они выполняются слева направо. Изменить порядок вычислений можно с помощью круглых скобок. Количество открывающих скобок в выражении должно быть равно количеству закрывающих.

5. Для выводимого значения(в нашем случае это значение переменной b ) можно задать его формат, например: WriteLn (‘ Результат : b = ’ , b : 6 : 2); Рассмотрим этот оператор подробно. В списке вывода два элемента, разделенных запятыми. В начале записана строковая константа в апострофах, которая выводится без изменений, со всеми пробелами. Для нее указаны две форматные спецификации, означающие, что под эту переменную отводится всего шесть позиций, причем две из них – под дробную часть (еще одна позиция будет занята десятичной точкой, итого на целую часть остается три позиции)

Советы

1. Приступая к написанию программы, четко определите, сто является ее исходными данными и что требуется получить в результате.

2. Выбирайте тип переменных с учетом диапазона и требуемой точности представления данных.

3. Давайте переменным имена, отражающие их назначение.

4. Ввод с клавиатуры (процедура Read или ReadLn) предваряйте приглашением с помощью процедуры Write или WriteLn, а выводимые значения – пояснениями. Для контроля сразу же после ввода выводите исходные данные на дисплей.

Задача 2.Нахождение процентов.

Вычислить процент материала, идущего в отходы, если из куба ребра а был выточен шар радиусом r. Проценты отхода могут быть найдены по формуле : , где .