Стандартные функции и операции
Abs (x) соответствует |x|;
ArcTan (x) соответствует arctg(x);
Cos (x) соответствует cos(x);
Sin (x) соответствует sin(x);
Exp (x) соответствует ex;
Ln (x) соответствует ln(x);
Sqr (x) соответствует x2;
Sqrt (x)
соответствует
;
Frac (x) - дробная часть: X – INT(X);
Int (x) возвращает целую часть числа;
Round (x) возвращает число равное целой части (округление по правилам арифметики);
Trunc(x) возвращает округленное число, отбрасывая дробную часть числа x.
Программы с линейной структурой
Алгоритм линейной структуры – это точное предписание, определяющее вычислительный процесс, в котором все действия от ввода варьируемых начальных данных до вывода искомого результата осуществляются последовательно одно за другим.
Программы с линейной структурой являются простейшими и используются, как правило, для реализации простых вычислений по формуле. В программах с линейной структурой инструкции выполняются последовательно. Алгоритм программы с линейной структурой может быть представлен в виде схемы:
Примеры решений задач
Задание 1.
Составить программу на языке программирования Pascal и блок-схему для решения следующей задачи:
Вычислить расстояние между двумя точками с данными координатами x1, y1 и x2, y2.
Объявим переменные действительного типа x1, y1 и x2, y2 – для хранения координат точек и переменную r – для записи результата нахождения расстояния между этими точками.
Расстояние между точками r вычисляется по формуле:
Ввод переменных будет осуществляться с клавиатуры.
Р
Текст программы
на языке Pascal
Uses crt; //Обращение
к модулю Сrt библиотеки
Var x1,y1, x2,y2, r:
Real; //Раздел описания переменных
Begin
// Начало раздела операторов
Clrscr;
// очистка экрана
Write('x1=');
ReadLn(x1); // ввод х1
Write('x2=');
ReadLn(x2); // ввод
х2
Write('y1=');
ReadLn(y1); // ввод
у1
Write('y2=');
ReadLn(y2); // ввод
у2
r:=sqrt(sqr(x2-x1)+sqr(y2-y1)); // вычисление
расстояния между точками
WriteLn('r=',r:5:3);
// вывод результата
readkey; //
Процедура задержки результата на экране
end. // Конец
раздела операторов
Блок-схема программы
Задание 2.
Составить программу,
вычисляющую значение переменной m при
данных i, j, k: m
=
.
Т
екст
программы на языке Pascal Блок-схема
программы
Program example_1;
Var i, j, k: Integer;
m: Real;
Begin
Write('Введите значения для i, j и k =>:');
Readln(i, j, k);
m:=(i+j)/(k+1);
Writeln ('Значение для m=',m);
End.
Задания для самостоятельного выполнения
Составить схему алгоритма и программу вычислений функции двух независимых переменных. Произвести вычисления для указанных исходных данных (четыре запуска). Варианты заданий приведены в табл.1. . Вариант задачи выбирается по номеру компьютера.
Таблица 1
№ варианта |
Функция |
Данные x, y |
1 |
|
x = 1,12; 1,25 y = 1,8; 2,3 |
2 |
|
x = 0,01; 0,211 y = 4,0; 4,5 |
3 |
|
x = 0,2; 0,515 y = 1,312; 1,01 |
4 |
|
x = 0,125; 0,817 y = 0,17; 0,487 |
5 |
|
x = 0,725; 0,517 y = 0,348; 0,416 |
6 |
|
x = 0,59; 0,78 y = 1,52; 1,81 |
7 |
|
x = -1,2; -0,91 y = 2,2; 2,61 |
8 |
|
x = 1,011; 1,111 y = 2,91; 2,43 |
9 |
|
x = 0,4; 0,7 y = 1,9; 1,35 |
10 |
|
x = 1,1; 1,3 y = 0,4; 0,3 |
11 |
|
x = 0,12; 0,21 y = 5,0; 3,3 |
12 |
|
x = -1,2; -0,91 y = 2,2; 2,61 |
13 |
|
x = 1,011; 1,111 y = 2,91; 2,43 |
