6.1. Оператор перехода GOTO. Цикл. Метки

[Fryg]

Люди помогите только 3 дня назад начал учица паскалю..... не получаеца задачка

Написать программы для выполнения следующих заданий:

32) Бесконечно печатать 1000 999 998 997 996 ......

я как то не вьезжаю как эьто сделать...... у мну получаеца чтоб он бесконечно выводил 999 999 999 999....


как норм сделать?

[rubius2008]

for i:=1000 downto 1 do write(i,' ');

вот например от 1000 до 1
если нужно до нажатия кнопки то

i:=1000;
repeat
  write(i,' ');
  i:=i-1;
until keypressed;

c goto

i:=1000;
metka1:
  write(i,' ');
  i:=i-1;
if not keypressed then goto metka1;

для использования keypressed нужно еще модуль crt подключить, в 1 строчке программы пишите

uses crt;

[Alex11223]

for i:=1000 downto 1 do write(i,' ');

И где тут goto? Кстати, странно что на goto дают задание. Обычно просто рекомендуют постараться избежать употребления goto без крайней необходимости (а при крайней необходимости еще раз попытаться найти другой способ решения).

[rubius2008]

Сообщение от Alex11223

И где тут goto? Кстати, странно что на goto дают задание. Обычно просто рекомендуют постараться избежать употребления goto без крайней необходимости (а при крайней необходимости еще раз попытаться найти другой способ решения).

не увидал про goto, добавил

[Fryg]

спс) а можно как нибудь с goto я прост хочу разобраца

[Sparkman]

label label1;
var a:integer;
begin
     a:=1000;
     label1:
     writeln(a);
     a:=a-1;
     goto label1;
end.

прервать работу алгоритмов в турбо паскале: ctrl+pause