ITYourself! - компьютерная документация, книги, мануалы, it-тематика

???????? ??????? ? Pascal

E-mail Печать PDF
Рейтинг пользователей: / 16
ХудшийЛучший 

???????? ??????? ? Pascal

???????? ???????? ????????? ????????? ????????? ??????? ? ? ??????????? ?? ??????????? ???????? ????????? ?? ??? ???? ????????. ????? ???????, ???????? ???????? - ??? ???????? ????????? ??????????????? ????????.

????????? ????????? ??????? ????? ????????? ???:

If <???????> then <???????? 1> else <???????? 2>;

??? If, then, else - ????????????????? ????? (????, ??, ?????);

<???????> - ???????????? ?????????? ?????????;

<???????? 1, ???????? 2> - ????? ????????? ????? Turbo Pascal.

???????? ???????? ???????? ?? ?????????? ?????????. ??????? ??????????? ???????? ?????????, ???? ????????? ?????????? ????? ???????? ??????, ?? ??????????? ???????? ??? ?????? ?????????? ????????? ?? ?????? then, ???? ?? ????????? ????? ???????? ????, ?? ??????????? ???????? ????????? ????? ????? else.

??????? ???????? ???? ???????? ?? ?? ??? ????? <????????? 1> ????? ?????? else ?? ???????? ????? ? ???????.

?????????? ??????????? ????? ???????? ???????? ???????????? ??? ????? else, ?.?. If <???????> then <???????? 1>;. ? ????? ??????? ??? ?????????? ??????????? ?????????, ????? ????????? ????? ???????? ????, ??????????? ???????? ????????? ?? ?????????? ???????.

? ?????? ????????????? ?? ??????, ? ?????????? ?????????? ????? ???? then ??? else ??????? ????????? ??? ?????? ?????????? ? ?????????? ?????? begin ? end.

??????1.

?????? ????? ???????? x ? y. ?????????? z := max (x2, y2).

Program primer1;

Var z, x, y : integer;

Begin

Readln (x, y);

If (sqr(x) > sqr(y)) then z := sqr(x)

else z := sqr(y);

Write ('Z = ', z);

End.

?????? 2

?????? ????? ???????? x ? y. ?????????? z := max (x, y) ? b := min (x, y).

Program primer2;

Var z, b, x, y : integer;

Begin

Readln (x, y);

If (x > y) then begin

z := x;

b := y;

end

else begin

z := y;

b := x;

end;

Writeln ('Z = ', z);

Writeln ('B = ', b);

End.

 

Добавьтe Ваш комментарий

Ваше имя (псевдоним):
Ваш адрес почты:
Заголовок:
Комментарий:

??????????




????????

Внимание!!! Файл sape.php не обнаружен. Проверьте правильность установки кода Sape.


C???????? ?????????