Фармакологія

Лекція

End.

Begin

End.

Begin

End.

Begin

End.

Задача 1:

Скласти програму обчислення значення функції

Програма розв'язання задачі на мові Паскаль.

Program ROBOTA1;

Var Х, У: real;

write('Х= ');

readln(Х);

if x<0 then Y:=X

else if (0<=X) and (X<5) then Y:=5

else Y:=5*X;

writeln ('X=',X,' Y=',Y);

Задача 2: Перевірити, чи належить точка з координатами Х та У області, яка обмежена наступними нерівностями.

- фігурна дужка: використання логічної операції and

[ - квадратна дужка: використання логічної операції or

program z1;

var x,y:real;

writeln('Vvedite x,y');

readln(x,y);

if ((x>=0) and (x<=4)) and ((y>=0) and (y<=3)) then

writeln('tochka v oblasti') else

writeln('tochka ne v oblasti');

readln;

program z2;

var x,y:real;

writeln('vvesti x,y');

readln(x,y);

if ((Sqr(x)+Sqr(y)<=1) or (abs(x)-abs(y)<=1)) then

writeln('Tochka v oblasti') else

writeln('Tochka ne v oblasti');

readln;

з навчальної дисципліни

Дата добавления: 2014-01-04; Просмотров: 290; Нарушение авторских прав?; Мы поможем в написании вашей работы!