Паскаль. Задача на типизированный файл
Задание 1
Создать типизированный файл целых чисел. Записать в него с консоли последовательность целых чисел, конец последовательности (терминатор) – ноль, который не записывается в файл. Отсортировать файл по возрастанию. Как отсортировать файл?
|
написать надо в паскале
|
Цитата:
|
Я могу только создать этот файл, а как отсортировать вообще не представляю
|
К тому же поиск в инете никто не запрещал. По ключевым словам очень много инфы вывалилось, та что батенька: "Ищущий да обрящет"
|
пробуй:
10. Метод швидкого сортування. В основу метода покладена ідея послідовного дроблення масиву на частини.Код Pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 Const N=10; Var A: array[1..N] of integer; i:integer; Procedure Quick(first,last:integer); Var i,j,x,w,linteger; Begin I:=first; J:=last; X:=A[(first+last) div 2]; Repeat While A[i]>x do i:=i+1; While x>A[j] do j:=j-1; If i<=j then begin W:=A[i]; A[i]:=A[j]; A[j]:=w; I:=i+1; J:=j-1; End; until i>j; if first<j then Quick(first,j); if i<last then quick(i,last); end; Begin For i:=1 to N do begin Writeln(‘введи елемент масиву’); Readln(A[i]); End; Quick(1,N); writeln('Масив після сортування:'); writeln; for i:=l to N do write(A[i]:5); writeln; end. |
Во-первых эта программа не работает.
Во-вторых у меня не массива когда я создаю файл. |
Отсюда можешь основу взять, а дальше все просто:
Код:
Uses crt; |
Цитата:
|
Можете считать меня полной идиоткой, но я не знаю как считать числа из файла и наоборот.
|
Часовой пояс GMT +4, время: 08:45. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.