Задача: дана точка с координатами XY, нужно определить, принадлежит ли она указанной области
Решение:
var x, y: real;
begin readln(x, y);
if not ((x >= 0) and (y >= 0) and (y >= -2 * x + 4) and (y <= -x + 6)) then
write('не ');
writeln('принадлежит');
end.
Линейная структура на языке<u>Pascal</u>
Нахождение расстояния
var V,S,t:real;
begin
readln(V,t);
S:=V*t;
writeln(S);
end.
Ветвление
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('+++') else
writeln('---');
readln;
end.
Цикл
var i:integer;
begin
for i:=1 to 5 do writeln(i);
readln;
end.
Гляди. Вот у нас первая строчка.
x:=1.5
Это значит, что переменной x мы присвоили значение 1.5
x:= 2*x + 1
Значение переменной x равно её текущему значению x * 2 + 3.
т.е.
x:= 1.5 * 2 + 1 = 4
Затем
y:= x/2
т.е.
y:= 4/2 = 2
Дальше по аналогии:
y:= x + y
т.е.
y = 4 + 2 = 6
и последняя операция:
x:=x - y
x:=4 - 6 = -2
Ответ: x = -2, y = 6
x = -2;
y = 6;