В некотором бинарном файле записаны числа типа LongInt. Если в файле есть хотя бы одно число, начинающееся цифрой 1 и содержащее цифры 2 и 3, упорядочить файл по неубыванию. Имя исходного файла и имя упорядоченного файла программа должна получать через командную строку. Не использовать массивы и динамическую память.
жду помощи =)
Digitalator
23.07.2005 16:23
Цитата
упорядочить файл
Цитата
Не использовать массивы и динамическую память.
прикольно, наверное сначала нужно установить дополнительное охлаждение на винт.
mlc
23.07.2005 16:26
Сейчас Volvo опять в глаз даст
uses crt; var f,f2:file of longint; b:boolean; i,j,x,y:longint; s:string; begin assign(f,paramstr(1)); reset(f); assign(f2,paramstr(2)); rewrite(f2); b:=false; repeat read(f,x); str(x,s); if (s[1]='1') or (pos ('2',s)>0) or (pos('3',s)>0) then b:=true; write(f2,x); until eof(f); if b then begin for i:=0 to filesize(f2)-1 do for j:=i+1 to filesize(f2) do begin seek(f2,i); read(f2,x); seek(f2,j); read(f2,y); if x>y then begin seek(f2,i); write (f2,y); seek(f2,j); write (f2,x); end; end; end; close(f); close(f2); end.
Катюша
23.07.2005 23:31
пасип огромное.. разберусь.. дополнительно
а компактненько как! =)))
volvo
24.07.2005 22:07
Цитата(Катюша @ 23.07.05 23:31)
а компактненько как! =)))
Компактненько, да неправильно Задание какое было?
Цитата(Катюша @ 23.07.05 15:56)
... Если в файле есть хотя бы одно число, начинающееся цифрой 1 и содержащее цифры 2 и 3, упорядочить файл по неубыванию...
Что имеем?
Цитата(mlc @ 23.07.05 16:26)
... if (s[1]='1') or (pos ('2',s)>0) or (pos('3',s)>0) then b:=true; ...
Понимаешь о чем я? То что получилось - "начинающееся цифрой 1 или содержащее цифры 2 или 3" Аккуратнее надо условия читать ;)
mlc
24.07.2005 22:34
Цитата(volvo @ 24.07.05 22:07)
Компактненько, да неправильно Задание какое было? Аккуратнее надо условия читать ;)
Ааа, сорри, ты прав, посыпаю голову пеплом Как в воду глядел про глаз Ну ор на на анд поменяй.
[Offtop удален: мой ответ был здесь достаточное время, чтобы ты успел его прочитать...]
Катюша
26.07.2005 11:17
я нашла старую программу, писала ее почти 2 года назад.. показываю ее..