freepascal.ru

Азотирование писал(а):Да, по книгам сложновато. Если и достигаются хорошие результаты, то через какое то время, поэтому нужен учитель

Paster Fob писал(а):Вот мне и нужно понять какой знак когда ставится,что бы не перебирать их поочереди.

Азотирование писал(а):Да, по книгам сложновато. Если и достигаются хорошие результаты, то через какое то время, поэтому нужен учитель

var n,i:integer;
begin
   write('n = ');
   readln(n);
   for i:=1 to n do writeln(n+1-i);
   readln
end.

Paster Fob писал(а):Значит далее изучил я цикл со счётчиком for...to...do

или прочитать где-нибудь (в любом учебнике по Паскалю) про downto

по уровню задачи - в каком классе Вы, Paster Fob , а ???

Paster Fob писал(а):Так я и не смог понять принципа работы этой программы,почему цифры на экране появились в обратном порядке?

Paster Fob писал(а):ну вот к примеру прочитал про оператор Case и пробую сделать задание без учебника.

Код: Выделить всё

var a:integer;
begin
    repeat
    readln(a);
    if a=0 then break;
    case a of
    1:writeln('Первый');
    2:writeln('Второй');
    3:writeln('Третий');
    4:writeln('Четвёртый');
    5:writeln('Пятый');
    end;
    until false;
    readln;
end.

вот и не знаю как правильно написать то ли 1:=writeln...,то ли 1=writeln...Попробовал ,в результате ошибки,пока не написал 1:writeln.Вот мне и нужно понять какой знак когда ставится,что бы не перебирать их поочереди.

var a:integer;
begin
    repeat
      readln(a);
      case a of
        1:writeln('Первый');
        2:writeln('Второй');
        3:writeln('Третий');
        4:writeln('Четвёртый');
        5:writeln('Пятый');
      end;
    until a=0;
    readln;
end.

Мне не понятно как в параметр arg попала переменная s

Scan(s);

Paster Fob писал(а):Внутри процедуры всё работает,после выхода из неё программа работает не правильно.

procedure Scan(arg:string);

procedure Scan(var arg:string);