DELPHI 7

vk.com/club152685050 | vk.com/id446425943

Арифметическое выражение

					)
	y * (arctg(z)
b					6
	1
	| x |
		y2 1

B := y*(atan(z) - pi/6)/(abs(x) +

1/(y*y+1));

vk.com/club152685050 | vk.com/id446425943

Арифметическое выражение

	| x y | *(1	sin 2 (x)				)
b			x y
	e|x y|		x
	2

B:=abs(x-y)*(1+sin(x)*sin(x)/(x+y))/

(exp(abs(x-y)+x/2));

vk.com/club152685050 | vk.com/id446425943

Пример программы

Program p1;

Var x, y, z: integer;

Begin

ReadLn (x, y); z:=x+y; WriteLn (z); ReadLn;

End.

vk.com/club152685050 | vk.com/id446425943

Условный оператор if … then

…

If условие then действие;

If X > 0 then X: = 0;

vk.com/club152685050 | vk.com/id446425943

Оператор выбора if … then … else

If условие then оператор 1

else

оператор 2;

vk.com/club152685050 | vk.com/id446425943

Оператор выбора

If условие then

{группа операторов}

else

{группа операторов};

vk.com/club152685050 | vk.com/id446425943

Операторы выбора

If условие then

begin группа операторов

end

else

begin группа операторов end;

vk.com/club152685050 | vk.com/id446425943

If a < b then

A,B

c := a

						else
		A<B
						c := b;
C=A			C=B

C

vk.com/club152685050 | vk.com/id446425943

Операторы выбора с условием равенства

If age = 20 then

оператор;

vk.com/club152685050 | vk.com/id446425943

Операторы выбора с условиями неравенства

If age >= 20 then

writeln(‘Возраст больше или равен

20’);