На строительстве готовят так называемый цементный раствор. Его компонентами являются цемент, песок и вода. Или правильное название этой смеси с научной точки зрения?
110
498
Ответы на вопрос:
Нет.
Почему? Растворителем является вода, а не цемент. Правильно было бы назвать водный раствор цемента с песком.
Почему? Растворителем является вода, а не цемент. Правильно было бы назвать водный раствор цемента с песком.
USES Crt,Graph; VAR Gd,Gm : INTEGER; Av : CHAR; X,Y,I,T,Z,K : INTEGER; St : STRING[225];
BEGIN
Gd:=Detect; InitGraph(Gd,Gm,'C:\tp7\BGI');
ClearDevice;
X:=GetMaxX DIV 2; Y:=GetMaxY DIV 2;
T:=0; I:=0; K:=500;
REPEAT
SetColor(15);
{ Построение объекта }
Line(X,Y-10,X,Y-3); Line (X,Y+10,X,Y+3); Line (X-10,Y,X-3,Y); Line (X+10,Y,X+3,Y);
Circle(X,Y,7);
Av:=ReadDKey;
{ Изменение координат при нажатии клавиши }
IF CHR(75)=Av THEN T:=-10; IF CHR(77)=Av THEN T:=10;
IF CHR(72)=Av THEN I:=-10; IF CHR(80)=Av THEN I:=10;
SetColor (0); Line (X,Y-10,X,Y-3); Line (X,Y+10,X,Y+3);
Line (X-10,Y,X-3,Y); Line (X+10,Y,X+3,Y);
Circle(X,Y,7);
X:=X+T; Y:=Y+I; I:=0; T:=0;
IF X>(GetMaxX-2) THEN X:=GetMaxX-2; IF X<2 THEN X:=2;
IF Y>(GetMaxY-2) THEN Y:=GetMaxY-2; IF Y<2 THEN Y:=2;
UNTIL ORD(Av)=27; { Пока не нажата клавиша Esc }
END.
BEGIN
Gd:=Detect; InitGraph(Gd,Gm,'C:\tp7\BGI');
ClearDevice;
X:=GetMaxX DIV 2; Y:=GetMaxY DIV 2;
T:=0; I:=0; K:=500;
REPEAT
SetColor(15);
{ Построение объекта }
Line(X,Y-10,X,Y-3); Line (X,Y+10,X,Y+3); Line (X-10,Y,X-3,Y); Line (X+10,Y,X+3,Y);
Circle(X,Y,7);
Av:=ReadDKey;
{ Изменение координат при нажатии клавиши }
IF CHR(75)=Av THEN T:=-10; IF CHR(77)=Av THEN T:=10;
IF CHR(72)=Av THEN I:=-10; IF CHR(80)=Av THEN I:=10;
SetColor (0); Line (X,Y-10,X,Y-3); Line (X,Y+10,X,Y+3);
Line (X-10,Y,X-3,Y); Line (X+10,Y,X+3,Y);
Circle(X,Y,7);
X:=X+T; Y:=Y+I; I:=0; T:=0;
IF X>(GetMaxX-2) THEN X:=GetMaxX-2; IF X<2 THEN X:=2;
IF Y>(GetMaxY-2) THEN Y:=GetMaxY-2; IF Y<2 THEN Y:=2;
UNTIL ORD(Av)=27; { Пока не нажата клавиша Esc }
END.
Популярно: Другие предметы
-
200NaStYa00206.05.2021 16:20
-
tazab70501.06.2021 13:30
-
andreysemenyuk14.04.2020 13:13
-
plenkinanatash05.05.2022 02:25
-
arseniypiv15028.04.2021 07:19
-
alekseevvv15.01.2021 00:05
-
wenefep0712631.10.2021 14:53
-
Sima12110.02.2020 00:22
-
dmmkuplinov19.11.2022 11:08
-
kuznecov1625.04.2022 16:51