Информатика. Тест , ответить на вопросы теста.

Uses GraphABC;

const MaxShar=50;

type shar = record

           x,y:integer;

           dx,dy:integer;

           end;

var i:byte;

   x,y,r:integer;

   shars: array[1..MaxShar] of shar;

begin

randomize;

setwindowsize(500,500);

centerwindow;

r:=10;

setpenwidth(3);

for i:=1 to MaxShar do

with shars[i] do

begin

 x:=7+r+random(500-2*r-14);

 y:=7+r+random(500-2*r-14);

 dx:=random(8) + 1;

 dy:=random(8) + 1;

end;

lockdrawing;

repeat

clearwindow;

for i:=1 to MaxShar do

with shars[i] do

begin

 x:=x+dx;

 if (x+r+dx>=493) or (x-r+dx<=7) then dx:=-dx;

 y:=y+dy;

 if (y+r+dy>=493) or (y-r+dy<=7) then dy:=-dy;

 setpencolor(clBlue);

 setbrushcolor(clBlue);

 circle(x,y,r);

end;

setpencolor(clBlack);

setpenwidth(3);

moveto(5,5);

lineto(495,5);

lineto(495,495);

lineto(5,495);

lineto(5,5);

sleep(1);

redraw;

until false;

end.

Примечание:

В конце программы есть команда sleep(), чем больше в ней значение, тем меньше скорость шариков. Также её можно просто убрать, тогда скорость будет максимальной.

1. Выразим выражения по правилам языка Pascal:
a) 5 * 2 - 4
Решение:
Умножение имеет более высокий приоритет, чем вычитание. Поэтому, сначала выполним вычисление умножения: 5 * 2 = 10.
Затем, выполним вычитание: 10 - 4 = 6.
Ответ: 6.

б) 7 * х + 2
Решение:
Умножение имеет более высокий приоритет, чем сложение. Поэтому, сначала выполним вычисление умножения: 7 * х = 7х.
Затем, выполним сложение: 7х + 2.
Ответ: 7х + 2.

в) 8 * х - 3 * (х + у)
Решение:
Выполним умножение: 8 * х = 8х и 3 * (х + у) = 3х + 3у.
Затем, выполним вычитание: 8х - (3х + 3у).
Для выполнения операции в скобках, умножение 3 на каждый из элементов внутри скобок:
8х - 3х - 3у = 5х - 3у.
Ответ: 5х - 3у.

г) v^2 * х * у^2 * х * у
Решение:
По правилам алгебры, умножение можно проводить в любом порядке.
Выполним умножение: v^2 * х = v^2х, у^2 * х = у^2х, v^2х * у^2х = (vх * у)^2х.
Ответ: (vх * у)^2х.

2. Переведем запись с языка Pascal в нормальную форму:
f = (3 * x + 4 * y)/(2 * sqr(к) - 4 * t / y)
Решение:
Нормализация выражения подразумевает разделение на более простые составляющие.
Заменим sqr(к) на к^2, чтобы выразить возведение в квадрат в общепринятой форме:
f = (3 * x + 4 * y)/(2 * к^2 - 4 * t / y)
Затем, выполним умножение и деление в числителе и знаменателе:
f = (3 * x + 4 * y)/(2к^2 - (4 * t) / y)
Ответ: f = (3 * x + 4 * y)/(2к^2 - 4t/y).

Таким образом, мы записали выражения по правилам языка Pascal и перевели запись с языка Pascal в нормальную форму.