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

 
Пример 5. Напишите программу решения следующей задачи: 
демонстрация операций над данными типа Byte. 
PROGRAM Primer_5; 
var x: Byte; {Первый аргумент} 
y: Byte; {Второй аргумент} 
z: Byte; {Результат операции} 
BEGIN 
Write ('Введите значение переменной X типа Byte...');
Read (x); 
Write ('Введите значение переменной Y типа Byte...');
Read (y); 
z:=x+y; WriteLn ('x + y =',z); 
z:=x-y; WriteLn ('x - y =’,z); 
z:=x*y; WriteLn ('x * y =’,z); 
z:=x DIV 2; WriteLn ('x DIV 2 =', z); 
z:=x MOD 2; WriteLn ('x MOD 2 =', z); 

---

29 
WriteLn ('x=y ',x=y); 
WriteLn ('x<>y ',x<>y); 
WriteLn ('x>=y ',x>=y) 
END. 
Пример 6. Напишите программу решения следующей задачи: 
демонстрация операций над типом Char. 
PROGRAM Primer_6; 
var x,y: Char; 
BEGIN 
Write ('Введите значение переменной X типа Char...');
Read (x); 
Write ('Введите значение переменной Y типа Char...');
Read (y); 
WriteLn ('x = ',x); WriteLn ('y = ',y); 
WriteLn ('x=y ',x=y); 
WriteLn ('x<>y ',x<>y); 
WriteLn ('xEND. 
Пример 7. Напишите программу решения следующей задачи: 
демонстрация операций над типом Boolean.
PROGRAM Primer_7; 
var x,y,z: Boolean; 
BEGIN 
x:=TRUE; y:=FALSE; WriteLn ('x = ',x); WriteLn ('y = ',y); 
z:=NOT x; WriteLn ('NOT x -> ',z); 
z:=x AND y; WriteLn ('x AND y -> ',z); 
z:=x OR y; WriteLn ('x OR y -> ',z); 
WriteLn ('x=y ',x=y); 
WriteLn ('x<>y ',x<>y); 
WriteLn ('x>y ',x>y) 
END. 
Пример 8. Напишите программу решения следующей задачи: 
демонстрация вычисления значений стандартных функций: UpCase, 
Ord и Chr. 

---

30 
PROGRAM Primer_8; 
var x: Char; 
BEGIN 
Write ('Введите значение аргумента типа Char: ');
ReadLn (x); 
WriteLn ('UpCase (x) ,UpCase (x));
WriteLn ('Ord (x) ',Ord (x)); 
WriteLn ('Chr (65) ',Chr (65)) 
END.