Стандартные функции Pascal

Стандартными функциями языка программирования Pascal приведены в табл. 1

Таблица 1:

Имя функции Выполняемая операция
ABS(X)   Вычисляет модуль аргумента х, тип х – вещественный или целый, тип результата совпадает с типом аргумента
SQR(X) Вычисляет квадрат аргумента (х2), тип х – вещественный или целый, результат совпадает с типом аргумента
SQRT(X) Вычисляет корень квадратный из аргумента х (х>0); тип х – вещественный или целый, тип результата вещественный
SIN(X) Вычисляет синус аргумента х (х – в радианах); тип х – вещественный или целый, тип результата вещественный
COS(X) Вычисляет косинус аргумента х (х – в радианах); тип х – вещественный или целый, тип результата вещественный  
ARCTG(X) Вычисляет арктангенс аргумента х (х – в радианах); тип х – вещественный или целый, тип результата вещественный  
EXP(X) Возведение числа е=2,71828 в степень х (ех), тип х – вещественный или целый, тип результата вещественный  

 

EXP10(Х) Возведение числа 10 в степень х (10х), тип х – вещественный или целый, тип результата вещественный
LN(X) Вычисляет натуральный логарифм аргумента х (х>0); тип х – вещественный или целый, тип результата вещественный
LOG(X) Вычисляет логарифм по основанию 10 аргумента х (х>0); тип х – вещественный или целый, тип результата вещественный

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

Примеры составления линейной программы

Пример 1 Найти среднее арифметическое трёх чисел - двух целых (X и Y) и одного вещественного (Z) и квадрат среднего арифметического.

Программа:

Program Midding;

Var

X, Y: Integer;

Z, Midd, SqrMidd: Real;

Begin

WriteLn('Введите два целых числа X и Y:');

ReadLn(X,Y);

WriteLn('Введите вещественное число Z:');

ReadLn(Z);

Midd:=(X+Y+Z)/3;

SqrMidd:=SQR(Midd)

Writeln('Среднее арифметическое = ',Midd);

Write('Квадрат среднего арифметического = ',SqrMidd);

End.

 

Описание программы

В заголовке указано имя программы - Midding (среднее), затем словом var открывается раздел описания переменных: X и Y – целые, Z – вещественная. Слово begin открывает основной блок программы, в котором:

▪ оператор WriteLn выводит на экран текст "Введите два целых числа X и Y:";

▪ оператор ReadLn(X,Y)считывает значения чисел, введённых с клавиатуры и присваивает их соответственно целым переменным X и Y;

▪ далее выводится текст "Введите вещественное число Z:",

оператор ReadLn(Z)считывает значение числа, введённого с клавиатуры и присваивает его вещественной переменной Z;

▪ затем оператор присваивания вычисляет среднее значение X,Y,Z и присваивает его переменной Midd, затем аналогично вычисляется квадрат этой величины и присваивается переменной SqrMidd;

▪ оператор Writeln выводит текст "Среднее арифметическое = ",

рассчитанное значение Midd и переводит курсор на новую строку;

▪ оператор Write выводит текст "Квадрат среднего арифметического = " и рассчитанное значение SqrMidd;

▪ оператор end. закрывает основной блок и завершает выполнение программы.

Пример 2Вычислить площадь круга S и длину окружности L по заданному радиусу R.

Программа

Program KRUG;

const P=3.14159

Var

R,S,L:Real;

Begin

Read(R);{ввод значения радиуса}

L:=2*P*R;

S:=P*SQR(R);

Writeln(Длина окружности = ',L,'см');

Write('Площадь круга = ',S,'кв.см');

End.

Контрольные вопросы

1 Из каких разделов состоит любая программа на языке Pascal?

2 Формат и назначение оператора присваивания.

3 Формат и назначение операторов ввода данных.

4 Формат и назначение операторов вывода данных.

 

Задание

 

№ вар Задание
Определить расстояние между двумя точками с координатами (x1,y1) и (x2,y2).
Найти периметр и площадь прямоугольника.
Вычислить:

 

Найти площадь поверхности куба по формуле T=6a2
Определить расстояние, пройденное физическим телом за время t, если тело движется с постоянной скоростью v.
Вычислить:
В году примерно 3.156х107сек. Написать программу, которая запрашивает возраст в годах и переводит его в секунды.
Вычислить:
Найти объем цилиндра по формуле: V=pR2H
Найти расстояние от точки с координатами (x,y) до начала координат.
Масса m одной молекулы воды примерно равна 3.0х10-23гр. Кварта воды равна примерно 950 гр. Написать программу, которая запрашивает количество воды в квартах и выводит число молекул в этом количестве воды.
Найти объем куба по формуле V=a3. (с использованием и без использования стандартных функций).
Вычислить:
Написать программу, которая запрашивает количество дней и переводит в недели и дни. Например, 18 дней = 2 недели и 4 дня.
Найти диагональ и площадь квадрата
Вычислить:
Найти площадь боковой поверхности шара: T=4pR2
Вычислить:
Вычислить:

 

Написать программу, которая запрашивает время в часах и минутах, после чего переводит в минуты, затем в секунды и выводит результаты на экран.
Вычислить:
Найти площадь всей поверхности цилиндра: T=2pR(R+H)

Содержание отчета

1 Наименование, цель и содержание работы.

2 Задание на лабораторную работу согласно варианту.

3 Схема алгоритма, текст программы и результат её работы.

4 Письменные ответы на контрольные вопросы.

5 Выводы по работе.

 

Лабораторная работа №2

Операторы ветвления:
условный оператор, оператор варианта

 

Цель работы: изучить операторы, используемые для организации

ветвления в программе.

Содержание работы:

1 Условный оператор

2 Оператор варианта

 








Дата добавления: 2016-02-02; просмотров: 1394;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.014 сек.