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

 
Пример 1. Составьте блок-схему (рис. 2.5) и напишите програм-
му решения следующей задачи: выведите на экран дисплея предло-
жение: «Это наша первая программа на языке Pascal!» 
PROGRAM Primer_1; 
BEGIN 
WriteLn ('Это наша 
первая программа на языке 
Pascal!'); 
END. 
Рис. 2.5. Блок-схема к примеру 1
 
Пример 2. Напишите программу решения следующей задачи: 
демонстрация операций над данными типа Word. 
PROGRAM Primer_2; 
var x: Word; {Первый аргумент} 
y: Word; {Второй аргумент} 
z: Word; {Результат операции} 
BEGIN 
Write ('Введите значение переменной X типа Word...');
Read (x); 
Write ('Введите значение переменной Y типа Word...');
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); 
начало 
конец 
‘Это наша первая 
программа на 
языке Pascal!’ 

---

27 
WriteLn ('x=y -> ',x=y); 
WriteLn ('x<>y -> ',x<>y); 
WriteLn ('x>=y -> ',x>=y) 
END. 
 
Пример 3. Составьте блок-схему (рис. 2.6) и напишите програм-
му решения следующей задачи: демонстрация операций над типом 
Real. Операции с переменными типа Real реализуются программно, 
то есть математический сопроцессор в этом случае не используется. 
PROGRAM Primer_3; 
var x: Real; {Первый ар-
гумент} 
y: Real; {Второй аргу-
мент} 
z: Real; {Результат 
операции} 
BEGIN 
Write ('Введите значение 
переменной X типа Real...');
Read (x); 
Write ('Введите значение 
переменной Y типа Real...');
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/y; WriteLn ('x/y
=',z); 
WriteLn ('x=y ',x=y); 
WriteLn ('x<>y ',x<>y); 
WriteLn ('x>=y ',x>=y) 
END. 
Рис. 2.6. Блок-схема к примеру 3

---

28 
Пример 4. Напишите программу решения следующей задачи: 
демонстрация операций над типом Integer. 
PROGRAM Primer_4; 
var x: Integer; {Первый аргумент} 
y: Integer; {Второй аргумент} 
z: Integer; {Результат операции} 
BEGIN 
Write ('Введите значение переменной X типа Integer...');
Read (x); 
Write ('Введите значение переменной Y типа Integer...');
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); 
WriteLn ('x=y -> ', x=y); 
WriteLn ('x<>y -> ', x<>y); 
WriteLn ('x>=y -> ', x>=y) 
END.