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

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

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

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

? ????? Turbo Pascal ??????? ??? ????????? ?????????, ? ??????? ??????? ????? ????????????????? ????????????? ????????? ?????????.

??????? ???????? ????? ??? ???????? ????? ? ??????????

???????? ????? ? ?????????? ???????????? ? ????????? ? ??????, ????? ??????? ???????? ?????????? ?????????? ? ?????.

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

For <???_???> : = <???_????> to <???_????> do <????????>;

?????: For, to, do - ????????????????? ?????;

<???_???> - ???????? ????? - ?????????? ???? Integer (?????? ?????? ??????????? ????);

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

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

<????????> - ???????????? ???????? Turbo Pascal.

??? ?????????? ????????? For ??????? ??????????? ????????? ???????? ? ?????????????? ??? ???????????? ????????? ?????. ????? ???????????? ???????? ??????? <???_???> <= <???_????>, ???? ??????? ????? ???????? ??????, ?? ??????????? ???????? ????????? ?? ?????? do, ? ????????? ?????? ???????? For ?????????? ???? ??????.

??????? ??? ??????????????. ??-??????, ???????, ??????????? ??????? ????????? For, ??????????? ????? ??????????? ????????? <????????>: ???? ??????? ?? ??????????? ? ????? ?????? ?????? ???????????? ?????????, ??????????? ???????? ?? ????? ???????? ?? ????. ?????? ?????????????? - ??? ??????????? ???????? ?????? ????????? ? ????? +1. ?????????? ?????? ????? ?????????:

For <???_???> : = <???_????> downto <???_????> do <????????>;

?????? ?????????????????? ????? to ?? downto ????????, ??? ??? ??????????? ????????? ????? ????? -1.

? ?????? ????????????? ? ????? ?? ??????, ? ?????????? ??????????, ?? ??????? ????????? ??? ?????? ?????????? ? ?????????? ?????? begin ? end.

?????? 1.

???? ?????????????????? ????? ?????, ????????? ?? 25 ?????????. ????????? ????? ????????? ??????????????????.

........

Program primer1;

Var i, a, s : integer;

Begin

x := 0;

For i := 1 to 25 do

begin

Read (a);

x := x + a;

end;

Write ('????? ????????? ????? ', x);

End.

?????? 2.

????? ??????? ?? ??????? 1 ????????? ??????????? ????????? For, ? ??????? ??? ??????????? ????? ????? -1.

........

Program primer2;

Var i, a, s : integer;

Begin

x := 0;

For i := 25 downto 1 do

begin

Read (a);

x := x + a;

end;

Write ('????? ????????? ????? ', x);

End.

 

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

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

??????????




????????

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


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