Тест: Вычисления по формулам

 1. Какого типа будут переменные в следующей программе:

Var х1,у1,х2,у2,d: .......

Begin

    Write(‘введите координаты х1,у1,х2,у2:’);

    Readln(х1,у1,х2,у2);

    d:=SQRT(sqr(x1-x2)+sqr(y1-y2));

    Write(‘расстояние=’,d:7:3);

End.

longint
integer
real

 2. Какие переменные нужно ввести для вычисления по формулам:

р:=(а+b+с)/2;

S :=SQRT(p*(p-a)*(p-b)*(p-c));

p,S
a,b,c
a,b,c,p,S

 3. Какой результат будет выведен после выполнения программы:

.............................

Begin

    х1:=5;

    у1:=6;

    х2:=2;

    у2:=2;

    Readln(х1,у1,х2,у2);

    d:=SQRT(sqr(x1-x2)+sqr(y1-y2));

    Write(‘расстояние=’,d:7:3);

End.

9
16
5

 4. Какой результат будет выведен после выполнения программы:

..........................

Begin

a:=3;

b:=4;

c:=5;

р:=(а+b+с)/2;

S :=SQRT(p*(p-a)*(p-b)*(p-c));

Write(‘площадь=’,S:7:3);

End.

6
6.45
5.56

5. Какой результат будет выведен после выполнения программы:

Var a,S,d: real;

Begin

    a:=5;

    S:=SQR(a);

    D:=a*SQRT(2);

    Write(‘площадь=’,S:7:3);

End.

5
25
трудно вычислить

6. Какой результат будет выведен после выполнения программы:

...........................

Begin

Write(‘введите значение a=’);

Readln(a);

Write(‘введите значение b=’);

Readln(b);

Write(‘введите значение c=’);

Readln(c);

р:=(а+b+с)/2;

S :=SQRT(p*(p-a)*(p-b)*(p-c));

Write(‘площадь=’,S:7:3);

End.

17
25
это зависит от введенных значений

7. Укажите значение величины S после выполнения следующих операторов присваивания:

S:=5;     S:=57;   Write('S=',S);

5
57
62

 8.  Укажите значение величины S после выполнения следующих операторов присваивания:

S:=7.5;     S:=2*S;   Write('S=',S);

2
7.5
15

 9. Укажите значение величины X после выполнения следующих операторов присваивания:

X:=60;     X:=X-1;   X:=0;  Write('X=',X);

0
60
59

10. Укажите значение величины k после выполнения следующих операторов присваивания:

s:=14;     k:=-3;   d:=s+1;  s:=d;  k:=2*s;  Write('k=',k);

-3
30
14