 |
Структура программы в Turbo Pascal .
|
|
|
|
Задание №1
1. Постановка задачи
Вычислить значение функции 
Рабочий набор исходных данных: а=-1,2, х=4,1
2. Таблица идентификаторов
| обозначение в задании | идентификатор | назначение |
| а | а | Коэффициент-константа |
| х | х | Переменная, используемая для задания значения аргумента |
| у | у | Переменная, используемая для хранения значения вычисляемой функции |
3. Текст программы CRT; {подключение модуля CRT}
const a=-1.2; {объявление константы а }
var x,y: real; {объявление переменных х и у
вещественного типа}
begin {начало основной программы}
clrscr; {процедура clrscr очищает экран}
writeln ('Введите x'); {вывод на экран текста ‘Введите х’}
readln (x); {считывается значение, введенное c
клавиатуры и присваивается переменной х }
if (x<5) and (sin (x) <>-1)
then y: = (a*sin (x) /cos (x) +5) / (sin (x) +1); {если условие 
истинно, то
переменной у присваивается значение
выражения 
}
if (x>=5) and (x<10) then
y: =sqrt (sqr (x-7)); {если условие 
истинно, то
переменной у присваивается значение
выражения 
}
if (x>=10) and (x<>11)
then y: =a*ln (abs (x-11)); {если условие 
истинно, то
переменной у присваивается значение
выражения 
}
if (x=11) or ((x<5) and (sin (x) =-1)) writeln (‘Значение функции не существует’)
else writeln ('при x=', x: 5: 2,' y=', y: 5: 2); {если условие х=11 или 
истинно, то выводится сообщение ‘Значение функции не существует’, иначе выводятся на экран значения переменных х и у. Под каждое значение выделяется 5 позиций, две из них под дробную часть}
|
|
|
readln; {пустой оператор ввода для задержки информации на экране}
end.
4. Контрольный расчет
| Входные данные (x) | Результат в Pascal (y) | Результат в MathCad (y) |
| 0 | 5,00 | 5 |
| 7 | 0,00 | 0 |
| 12 | 0,00 | 0 |
| 11 | Значение функции не существует | Значение функции не существует |
Задание №2
1. Постановка задачи
Вычислить значение функции
Рабочий набор исходных данных: n=3, x=0,71
2. Таблица идентификаторов
| обозначение в задании | идентификатор | назначение |
| n | n | Константа, определяющая верхнюю границу изменения счетчика цикла |
| s,f,m,a | Промежуточные результаты | |
| х | х | Исходные данные |
| z | z | Значение функции |
| i | i | Счетчик цикла |
| j | Счетчик цикла |
. Текст программы CRT; {подключение модуля CRT}
const x=0.71; n=3; {объявление констант х и n }
var z, s,a: extended; {объявление переменных z, s, а вещественного
типа}
i,j: byte; m: integer; {объявление переменных i, j, m и f целого
типа}
f: longint;
begin{начало основной программы}
clrscr; {процедура clrscr очищает экран}
a: =ln (x);
s: =0; m: =-1; f: =1; {присваивание переменным s, f и m начальных
значений}
for i: =1 to n do{цикл выполняется для i от 1 до n}
begin
f: =f*i; {в переменной f будет храниться значение
}
s: =s+m*exp (i*a) *a/f; {в теле внешнего цикла вычисляется сумма
}
m: =-m; {при нечетных i m=-1, при четных m=1
для вычисления 
}
end;
z: =sqrt (x) +x*s; {вычисление значения функции z}
writeln ('z=', z: 5: 3); {вывод значения z на экран. Под значение выделяется пять позиций, из них три после запятой}
readln;.
4. Контрольный расчет
| Входные данные | Результат в Pascal (z) | Результат в Math Cad (z) |
| 0,968 | 0,968 |
Задание №3
1. Постановка задачи
Вычислить значение функции 
для 8 значений аргумента. Начальное значение хнач=1. Шаг изменения аргумента Δх=0,3, a=4,2.
2. Таблица идентификаторов
| обозначение в задании | идентификатор | назначение |
| хнач | xn | Исходные данные |
| N | n | |
| Δх | dk | |
| a | a | |
| х | х | Переменная, используемая для задания значения аргумента |
| у | у | Результат решения задачи |
| b | Промежуточный результат | |
| i | Счетчик цикла |
|
|
|
. Текст программы CRT; {подключение модуля CRT}
const xn=1; dx=0.3; a=4.2; n=8; {объявление констант xn, dx, а, n}
var x,y,b: real; {объявление переменных х, у, b
вещественного типа}
i: byte; {объявление переменной i целого типа}
begin{начало основной программы}
clrscr; {процедура clrscr очищает экран}
x: =xn; {переменной х присваивается начальное
значение xn}
writeln ('Таблица значений функции');
writeln ('_____________________');('! x! y! ');('_____________________');: =ln (a+2.3); i: =1 to n do{цикл выполняется для i от 1 до n}
begin{начало тела цикла}
y: =ln (abs (a-x)) / (b+ln (x)); {вычисление значения функции}
writeln ('! ',x: 5: 1,'! ',y: 5: 2,'! '); {вывод на экран значений переменных
х и у }
x: =x+dx; {увеличение значения х на шаг}
end;('______________________');;.
. Контрольный расчет
| Результат в Pascal (y) | Результат в Math Cad (y) | ||
| х | у | х | у |
| 1,0 | 0,62 | 1,0 | 0,62 |
| 1,3 | 0,50 | 1,3 | 0,50 |
| 1,6 | 0,41 | 1,6 | 0,41 |
| 1,9 | 0,33 | 1,9 | 0,33 |
| 2,2 | 0,26 | 2,2 | 0,26 |
| 2,5 | 0, 19 | 2,5 | 0, 19 |
| 2,8 | 0,12 | 2,8 | 0,12 |
| 3,1 | 0,03 | 3,1 | 0,03 |
Контрольные вопросы к заданиям 1, 2, 3
Структура программы в Turbo Pascal.
Программа на языке Turbo Pascal состоит из заголовка программы, раздела описаний и раздела операторов.
Структура программы в общем виде:
Program Имя программы; {заголовок программы}
uses {объявление используемых модулей};
{Раздел описаний (деклараций) }
label {описание меток};
const {описание констант};
type {описание типов);
var {описание переменных};
{Описание подпрограмм}
procedure {описание процедур};
function {описание функций};
begin
{Раздел операторов};
end.
Заголовок программы не обязателен и может отсутствовать. Порядок размещения разделов описаний произвольный.
Что такое идентификатор?
Для именования различных программных объектов служат языковые конструкции, называемые идентификаторами. Идентификатор определяется как последовательность букв, цифр и символов подчеркивания, начинающаяся с буквы. Идентификатор не может содержать пробелов.
|
|
|
