Методические материалы для лабораторного занятия №13

Упражнение 1.

Задача. Определить положительно введенное целое число или нет.

Program pos;

var n : integer;

begin

clrscr;

readln(n);

if (n > 0) then

writeln ('Переменная n положительна')

else

writeln ('Переменная n не положительна');

readln;

end.

Упражнение 2.

Задача. Определить максимальное из двух чисел.

PROGRAM max_ab;

uses crt;{подключение модуля CRT}

var a,b,max : integer;

begin

clrscr; {процедура очистки экрана}

write('a=');

readln(a); {ввод значения переменной а}

write('b=');

readln(b); {ввод значения переменной b}

if a>b then max:=a

else max:=b;

writeln(’maximum ’,a,’ and ’,b,’ is ’,max);

readln; {Задержка экрана}

end.

Упражнение 3.

Задача. Определить максимальное из трех чисел.

PROGRAM max_abс;

uses crt;{подключение модуля CRT}

var a,b,c,max : integer;

begin

clrscr;

write('a=');

readln(a);

write('b=');

readln(b);

write('с=');

readln(с);

if a>b then max:=a

else max:=b;

if c>max then max:=c;

writeln(’maximum ’,a,’, ’,b,’ and ’,c,’ is ’,max);

readln; {Задержка экрана}

end.

Упражнение 4.

Задача. Найти значение функции signx.

Функция signx определяется так:

PROGRAM signum;

uses crt;{подключение модуля CRT}

const m=5;

n=2;

var x,sign:real ;

begin

clrscr;

write('x=');

readln(a);

if x>0 then sign:=1 {x>0}

else if x=0 then sign:=0 {x=0}

else sign:=-1; {x<0}

writeln(’sign(’,x:m:n,’)=’,sign:m:n);

readln; {Задержка экрана}

end.