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


Download 0.99 Mb.
Pdf ko'rish
bet14/103
Sana05.05.2023
Hajmi0.99 Mb.
#1432201
TuriУчебно-методическое пособие
1   ...   10   11   12   13   14   15   16   17   ...   103
Bog'liq
Osnovy algoritmizacii i programmirovaniya

 
Пример 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. 

Download 0.99 Mb.

Do'stlaringiz bilan baham:
1   ...   10   11   12   13   14   15   16   17   ...   103




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling