Учебно-методическое пособие для студентов специальности 1-08 01 01 «Профессиональное обучение

Пример 9. Напишите программу решения следующей задачи: 
демонстрация вычисления значений элементарных функций: Max-
Int, Trunc(X), Int(X), Frac(X), Abs(X), Sqrt(X), Exp(X), Ln(X), Sin(X), 
Cos(X), ArcTan(X), X^Y, Odd(Z). 
 
PROGRAM Primer_9; 
(*Демонстрация вычисления значений элементарных функ-
ций*) 
var X: Real; {Аргумент} 
Y: Real; {Аргумент} 
Z: Integer; {Аргумент} 
F: Real; {Результат} 
BEGIN 
WriteLn ('Значение MaxInt: ',MaxInt);
WriteLn ('Значение Пи: ',PI); 
Write ('Введите значение аргумента: ');
ReadLn (X); 
WriteLn ('Trunc (X)= ',Trunc (X));
WriteLn ('Int (X)= ',Int (X)); 
WriteLn ('Frac (X)= ,Frac (X)); 
F:=Abs (X); WriteLn ('Значение функции Abs : ',F); 
F:=Sqrt (X); WriteLn ('Значение функции корень: ',F); 
F:=Exp (X); WriteLn ('Значение функции Exp : ',F); 
F:=Ln (X); WriteLn ('Значение функции Ln : ',F); 
{Аргумент тригонометрических функций выражен в радианах} 
F:=Sin (X); WriteLn ('Значение функции Sin : ',F); 
F:=Cos (X); WriteLn ('Значение функции Cos : ',F); 
F:=ArcTan (X); WriteLn ('Значение функции ArcTg: ',F); 

---

31 
{-------------------------------------------------------------} 
Write ('Введите значение аргумента: '); ReadLn (Y); 
F:=Exp (Y*Ln(X));
WriteLn ('Значение функции X^Y : ',F); 
{-------------------------------------------------------------} 
Write ('Введите значение аргумента типа Integer: '); ReadLn (Z); 
WriteLn ('Odd (Z) =',Odd (Z)) 
END. 
Пример 10. Составьте блок-схему (рис. 2.7) и напишите про-
грамму решения следующей задачи: дано положительное трехзнач-
ное целое число. Вывести цифры этого числа по одной в строке. 
Program Primer_10; 
Var x,a,b,c:Integer; 
Begin 
Writeln('Ввести положительное трехзначное число'); 
Readln(x); 
a:=x mod 10; {последняя цифра числа} 
b:=(x div 10) mod 10; {средняя цмфра числа} 
c:=x div 100; {первая цифра числа} 
Writeln('первая цифра = ',c); {вывод первой цифры числа} 
Writeln('вторая цифра = ',b); {вывод второй цифры числа} 
Writeln('третья цифра = ',a); {вывод третьей цифры числа} 
End. 
Рис. 2.7. Блок-схема к примеру 10 

---

32 
Пример 11. Напишите программу, используя оператор присваи-
вания, в результате выполнения которого логическая переменная T 
принимает значение True, если выполняется указанное условие, 
и значение False в противном случае: а) числа x, y, z равны между 
собой; б) из чисел x, y, z только два равны между собой. 
PROGRAM Primer_1; 
var x,y,z:word; t:boolean; 
BEGIN 
writeln (введите x,y,z'); readln(x,y,z); 
{Для пункта а} 
t:=(x=y) and (y=z); writeln ('числа x, y, z равны между собой ',t); 
{Для пункта б} 
t:=(x=y) or (x=z) or (y=z); writeln (' из чисел x, y, z только два 
равны между собой ',t); 
END.