Карточка для проверки начального уровня знаний. Паскаль

1. Program

1. ;

1. Label

1. Const

1. Var

1. ;

1. Begin

1. начало;

1. End

1. конец;

1. Sqr(x)

1. возведение аргумента в квадрат

1. Sqrt(x)

1. квадратный корень из аргумента

1. A div B

1. Целочисленное деление

1. A mod B

1. Остаток от целочисленного деления

1. Round(x)

1. Real

1. вещественный тип данных

1. Program

1. ;

1. Label

1. Const

1. Var

1. ;

1. Begin

1. начало;

1. End

1. конец;

1. Sqr(x)

1. возведение аргумента в квадрат

1. Sqrt(x)

1. квадратный корень из аргумента

1. A div B

1. Целочисленное деление

1. A mod B

1. Остаток от целочисленного деления

1. Round(x)

1. Real

1. вещественный тип данных

1 вариант

1. Program Funk;

Var x,y: real;

Begin

Writeln (‘введите числа x’);

Readln (x);

If x0 then y:=sqr(x)+56х-1

Else y:=5х-25;

Writeln (‘y=’, y);

End.

2. Program primer2;

Var v, p,m: integer;

Begin

Writeln (‘введите v, m ’);

Readln (v,m);

P:= v/m;

writeln (' Р ');

End.

3. Program Funk;

Var x,y: real;

Begin

Writeln (‘введите числа x’);

Readln (x);

Y:=7x*x-3x+6;

Writeln (‘y=’, y);

End.

2 вариант

1. program funct;

var x,y: real;

begin

writeln(‘Введите x’);

readln (x);

if x 0 then y:= x+56х else

y:=1-x ;

writeln (‘у=’, у);

end.

2. Program primer2;

Var pi, r,S: integer;

Begin

Writeln (‘введите r’);

Readln (r);

S:=pi*r*r;

writeln (' S ');

End.

3.Program Funk;

Var x,a real;

Begin

Writeln (‘введите числа a);

Readln (a;

X:=12a*a+7a-16;

Writeln (‘x’, x);

End.