програмирование в паскале

[Nikitaunett]

var  a,s,d,f,g,h,j,k,l:integer
i:array[1..100] of integer;
begin
readln(a);
readln(s);
repeat
 h:=1
d:=a mod s;
a:=a div s;
if(a<s) then
g:=a;
i[h]:=d;
until(a<s).

не могу понять как теперь прописать чтобы программа выводила снчала g а затем все записаные значения в массиве в обратном порядке

[Stilet]

Ну вообще для h тогда нужно задавть конечную точку массива - 100, и уменьшать до 1 в цикле, но логика твоей программы...
Что-то несовместимое с здравым рассудком...

[ManU]

А что тут выводить: у тебя только в первом эл-те массива будет значение d, а остальные нули

[Nikitaunett]

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

Ну вообще для h тогда нужно задавть конечную точку массива - 100, и уменьшать до 1 в цикле, но логика твоей программы...
Что-то несовместимое с здравым рассудком...

в итоге эта программа должна т переводить числа из 10-ой системы в другую.

а как задать для h конечную точку массива

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

А что тут выводить: у тебя только в первом эл-те массива будет значение d, а остальные нули

а почему только в первом элементе?

[Stilet]

Так
во-первых: в цикл тот вставь INC(h) - она ведь должна увеличиваться по логике.
Во-вторых: Я не сильно понял ту чепуху но предположим что после Until нужно делать цикл

While h>0 do begin
 write(i[h]);
 DEC(h);
end;

[Nikitaunett]

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

Так
во-первых: в цикл тот вставь INC(h) - она ведь должна увеличиваться по логике.
Во-вторых: Я не сильно понял ту чепуху но предположим что после Until нужно делать цикл

While h>0 do begin
 write(i[h]);
 DEC(h);
end;

а можно чтонибудь придумать без INC(h) и DEC(h); я не могу использовать то что нам не давали

[russian-stalker]

inc(h) равносильно h:=h+1;
dec(h) равносильно h:=h-1;

[Nikitaunett]

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

Так
во-первых: в цикл тот вставь INC(h) - она ведь должна увеличиваться по логике.
Во-вторых: Я не сильно понял ту чепуху но предположим что после Until нужно делать цикл

While h>0 do begin
 write(i[h]);
 DEC(h);
end;

цикл получается бесконечным

[Stilet]

цикл получается бесконечным

Это еще почему????

[Nikitaunett]

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

Это еще почему????

не знаю я все правилильно ввела, запустила и ничего кроме кучи нолей она не выдала