Контрольная работа по "Информатике"

Вариант-5

 

Задача 1.

Дан отрезок [a,b]. Написать программу, определяющую лежит ли точка на этом отрезке или нет.

Текст программы:

uses crt;

var a,b,x: real;

begin

clrscr;

writeln('Input a,b:');

write('a= ');readln(a);

write('b= ');readln(b);

writeln('Input x:');

write('x= ');readln(x);

if (x>=a) and (x<=b) then writeln('TRUE')

                     else writeln('FALSE');

readkey;

end.

 

Задача 2.

Значения функции  определены на интервале [a,b] с шагом h. Определить сколько точек функции при заданных х расположены выше прямой .

Текст программы:

uses crt;

var a,b,x,h,f,y: real;

    k: integer;

begin

clrscr;

writeln('Input a,b,h:');

write('a= ');readln(a);

write('b= ');readln(b);

write('h= ');readln(h);

x:=a;

k:=0;

while x<=b do

begin

     f:=3*x*x+2*x+1;

     y:=x+3;

     if f>y then k:=k+1;

     x:=x+h;

end;

writeln;

writeln('k = ',k);

readkey;

end.