Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 28 января!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

АРХИВ ФОРУМА eXeL@B
https://exelab.ru/f/

   

MI


MI_LO_RD Ктобы мне помог решить задачу на Pаscal(e)??? Создать фаил элементами которого являются целые числа упорядоченные по возрастанию. При помощи структуры данных стек провести обратную сортировку файла по убыванию!!! ЗА РАНИЕ БЛАГОДАРЕН!!!
bUg. :: program gf;
var
f:text;
i,n,k:integer;
stack:array[1..5000]of integer;
begin
assign(f,’f.txt’);
readln(n);
rewrite(f);
for i:=1 to n do
Writeln(f,i);
close(f);
reset(f);
for i:=1 to n do
begin
readln(f,k);
asm
push k;
end;
end;
close(f);
rewrite(f);
for i:=1 to n do
begin
asm
pop k;
end;
writeln(f,k);
end;
close(f);
end.

MI_LO_RD Re: bUg. :: Большое прибольшое спасибо!!!!! Все работает на ура...............






   
Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS