учреждений среднего профессионального образования / А. В. Сенкевич. - М.: Академия, 2014. - 233 с. - (Профессиональное образование. Информатика и вычислительная техника).
. http://signumplus.ru/index.php?act=pages&id=25 (Виды светофоров) Приложение 1
test;x1,x2:integer;
begin('Введите x1(от 0 до 1)');('Введите x2(от 0 до 1)');
readln(x2);((x1=0) or (x1=1)) and ((x2=0) or (x2=1)) then(x1=0) and (x2=1) then
begin('Горит красный цвет');
end;(x1=1) and (x2=0) then('Горитжелтыйцвет');;(x1=1) and (x2=1) then('Горитзеленыйцвет');;(x1=0) and (x2=0) then
begin('Ожидание зеленого цвета');
end;writeln('Неправельновведены x1 или x2');. Приложение 2
GraphABC;i,j,x1,x2:integer;('x1=');(x1);('x2=');(x2);((x1=0) or (x1=1)) and ((x2=0) or (x2=1)) then begin(10,10,100,280);(x1=0) and (x2=1) then begini:=1 to 88 do beginj:=1 to 88 do begin(10+j,10+i,RGB(255,0,0));;;;(x1=1) and (x2=0) then begini:=1 to 88 do beginj:=1 to 88 do begin(10+j,100+i,RGB(255,255,0));;;;(x1=1) and (x2=1) then begini:=1 to 88 do beginj:=1 to 88 do begin(10+j,190+i,RGB(0,255,0));;;;(x1=0) and (x2=0) then begini:=1 to 88 do beginj:=1 to 88 do begin(10+j,10+i,RGB(255,0,0));(10+j,100+i,RGB(255,255,0));;;;begin writeln;
writeln('Неправельно введены x1 или x2');;. Приложение 3 Рис.7
Похожие работы
Интересная статья: Быстрое написание курсовой работы