Нужно сделать меню с такими пунктами:
0. Конец работы.
1. Введение и запись данных в файл.
2. Чтение данных из файла и выведение на экран.
3. Упорядочение данных в файле.
4. Бинарный поиск в файле по полю балл.
5. Создание индексного файла.
6. Упорядочение главного файла с помощью индексного.
7. Бинарный поиск данных в главном файле с помощью индексного.

При введении данных нужно вводить имя, факультет и балл.

Нужно как можно скорее, буду очень благодарен!

@JoKeR_SPb · 25.03.2009, 23:25

Pascal

procedure FrameWindow(x1,y1,x2,y2,frcolor,fon:integer);
      var x,y:integer;
          w,h:integer;
          lastattr:byte;
      begin
         lastattr:=textattr;
         window(x1,y1,x2,y2);
         textbackground(fon);
         clrscr;
         window(x1,y1,x2+1,y2);
         textcolor(frcolor);
         gotoxy(1,1);
         write('╔');
         w:=x2-x1+1;h:=y2-y1+1;
         for x:=1 to w-2 do write('═');
         write('╗');
         for y:=2 to h-1 do begin
            gotoxy(w,y);write('║');
            gotoxy(1,y);write('║');
            end;
         gotoxy(1,h);
         write('╚');
         for x:=1 to w-2 do write('═');
         write('╝');
         window(x1+1,y1+1,x2-1,y2-1);
         gotoxy(1,1);
         textattr:=lastattr;
      end;
function Menu(var l;x,y,num,fon,marker,text,text2:integer):integer;
      var list:array[1..2*maxint div sizeof(string)] of string[20] absolute l;
          max,k:integer;
          c:char;
          oldtext:word;
      begin
         oldtext:=textattr;
         textcolor(text);
         max:=0;
         for k:=1 to num do
            if length(list[k])>max then max:=length(list[k]);
         for k:=1 to num do
            while length(list[k])<max do
               list[k]:=list[k]+' ';
         framewindow(x,y,x+max+3,y+num+1,text,fon);
         textbackground(fon);
         gotoxy(1,1);
         textbackground(marker);
         textcolor(text2);
         write(' '+list[1]);
         textbackground(fon);
         textcolor(text);
         for k:=2 to num do
            begin
               writeln;
               write(' '+list[k])
            end;
         k:=1;
         repeat
            c:=readkey;
            case c of
            down:
               begin
                  gotoxy(1,k);
                  textbackground(fon);
                  textcolor(text);
                  write(' '+list[k]);
                  if k<num then k:=k+1
                     else k:=1;
                  gotoxy(1,k);
                  textbackground(marker);
                  textcolor(text2);
                  write(' '+list[k]);
               end;
            up:
               begin
                  gotoxy(1,k);
                  textbackground(fon);
                  textcolor(text);
                  write(' '+list[k]);
                  if k>1 then k:=k-1
                     else k:=num;
                  gotoxy(1,k);
                  textbackground(marker);
                  textcolor(text2);
                  write(' '+list[k]);
               end;
            esc:menu:=0;
            enter: menu:=k;
            end;
         until (c=esc)or(c=enter);
         window(1,1,80,25);
         textattr:=oldtext;
      end;

Здесь: l - это массив типа стринг из твоих пунктов.
х,у - коорд. левого верхнего угла меню
num - количество пунктов меню.
fon,marker,text,text2 - цвета фона, маркера(выделения) текста, текста под маркером соотв.
Поэкспериментируй.
Лучше всего упрятать это в модуль.
Размер массива тоже можешь сразу задать, без премудростей. Короче ковыряйся. Менюшка нормальная.

Добавлено через 21 минуту 17 секунд
И еще. Что-то он с кодировкой тупит.
Там где в скобках красным написана какая-то фигня
должны быть уголки для рамки....Примерно такие:
╔═╗
║ ║
╚═╝

@Astrox · 25.03.2009, 23:43 **[ТС]**

ОГО! Чтото я ничего не могу понять.
Должно быть меню в котором тебе предлагают выбрать пункт из него, вводишь цифру и выполняется пункт. Должны выполняться все пункты, создаваться файлы, а я вообще не вижу команд создания файла, чтения из него и вообще я запустить не могу

Может я еще не так хорошо квалифицирован чтобы понять этот код.

@JoKeR_SPb · 26.03.2009, 09:04

Здесь я привел тебе только меню. И меню это нормальное - работает с помощью стрелок, подсвечиваются пункты...

@Astrox · 27.03.2009, 01:06 **[ТС]**

Я конечно благодарен за такой труд, но для меня это както слишком уж трудно понять, я бы поэксперементировал и разобрался бы что к чему если бы хоть мог запустить. Если не трудно вместо моих пунктов напиши чтонибудь,чтобы я мог запустить хотяб и выбрать эти пункты, а я потом разберусь и переделаю на свое.

@JoKeR_SPb · 27.03.2009, 17:25

Pascal

program menuuu;
uses crt;
 
   const list:array[1..9] of string[20]=('punkt1','punkt2','punkt3','punkt4','punkt5','punkt6',
   'punkt7','punkt8','punkt9');
   var n:integer;
procedure FrameWindow(x1,y1,x2,y2,frcolor,fon:integer);
      var x,y:integer;
          w,h:integer;
          lastattr:byte;
      begin
         lastattr:=textattr;
         window(x1,y1,x2,y2);
         textbackground(fon);
         clrscr;
         window(x1,y1,x2+1,y2);
         textcolor(frcolor);
         gotoxy(1,1);
         write('╔');
         w:=x2-x1+1;h:=y2-y1+1;
         for x:=1 to w-2 do write('═');
         write('╗');
         for y:=2 to h-1 do begin
            gotoxy(w,y);write('║');
            gotoxy(1,y);write('║');
            end;
         gotoxy(1,h);
         write('╚');
         for x:=1 to w-2 do write('═');
         write('╝');
         window(x1+1,y1+1,x2-1,y2-1);
         gotoxy(1,1);
         textattr:=lastattr;
      end;
function Menu(var l;x,y,num,fon,marker,text,text2:integer):integer;
      var list:array[1..2*maxint div sizeof(string)] of string[20] absolute l;
          max,k:integer;
          c:char;
          oldtext:word;
      begin
         oldtext:=textattr;
         textcolor(text);
         max:=0;
         for k:=1 to num do
            if length(list[k])>max then max:=length(list[k]);
         for k:=1 to num do
            while length(list[k])<max do
               list[k]:=list[k]+' ';
         framewindow(x,y,x+max+3,y+num+1,text,fon);
         textbackground(fon);
         gotoxy(1,1);
         textbackground(marker);
         textcolor(text2);
         write(' '+list[1]);
         textbackground(fon);
         textcolor(text);
         for k:=2 to num do
            begin
               writeln;
               write(' '+list[k])
            end;
         k:=1;
         repeat
            c:=readkey;
            case c of
            down:
               begin
                  gotoxy(1,k);
                  textbackground(fon);
                  textcolor(text);
                  write(' '+list[k]);
                  if k<num then k:=k+1
                     else k:=1;
                  gotoxy(1,k);
                  textbackground(marker);
                  textcolor(text2);
                  write(' '+list[k]);
               end;
            up:
               begin
                  gotoxy(1,k);
                  textbackground(fon);
                  textcolor(text);
                  write(' '+list[k]);
                  if k>1 then k:=k-1
                     else k:=num;
                  gotoxy(1,k);
                  textbackground(marker);
                  textcolor(text2);
                  write(' '+list[k]);
               end;
            esc:menu:=0;
            enter: menu:=k;
            end;
         until (c=esc)or(c=enter);
         window(1,1,80,25);
         textattr:=oldtext;
      end;
 
begin
   CLRSCR;
   n:=menu(list,30,6,4,black,green,white,black);
   writeln('Вы выбрали: ',list[n]);
   readln
 
end.

Вместо Writeln('Вы выбрали...
Можно писать:

Pascal

case n of:
1:Подпрограмма1;
2:Подпрограмма2;
3:Подпрограмма3;
......
9:halt; { выход}

пунктов - сколько угодно

Добавлено через 20 минут 30 секунд
замени 103 строку на:
n:=menu(list,30,6,9,black,green,white,black);
^
здесь количество твоих пунктов

Добавлено через 46 секунд
Замени в 103 строке 4 на 9 (Нужное количество пунктов)

27.03.2009, 17:46

JoKeR_SPb здраствуй я смотрю ты в паскале шариш сможеш мне помоч

@Astrox · 27.03.2009, 21:45 **[ТС]**

Строка 67
Пишет Unknow Identifier
Как исправить?
Подозреваю что и в строке 80 тоже такое будет выдавать.

@JoKeR_SPb · 28.03.2009, 09:03

Сори. Добавь в начале:

Pascal

1	const up=#72;down=#80;

Это для управления курсором с помощью стрелок.

@Astrox · 28.03.2009, 15:31 **[ТС]**

Пасиб, пришлось еще esc и enter в инете найти и дописать.
Только с рамкой там внатуре тупит, ну ничего, и без нее обойдусь.
Спасибо огромное!

@Astrox 13 / 13 / 2 Регистрация: 20.12.2008 Сообщений: 73
		1
	Меню 25.03.2009, 22:37. Показов 2194. Ответов 9 Метки нет (Все метки) Нужно сделать меню с такими пунктами: 0. Конец работы. 1. Введение и запись данных в файл. 2. Чтение данных из файла и выведение на экран. 3. Упорядочение данных в файле. 4. Бинарный поиск в файле по полю балл. 5. Создание индексного файла. 6. Упорядочение главного файла с помощью индексного. 7. Бинарный поиск данных в главном файле с помощью индексного. При введении данных нужно вводить имя, факультет и балл. Нужно как можно скорее, буду очень благодарен! 0

@Astrox 13 / 13 / 2 Регистрация: 20.12.2008 Сообщений: 73
	25.03.2009, 23:43 [ТС]	3
	ОГО! Чтото я ничего не могу понять. Должно быть меню в котором тебе предлагают выбрать пункт из него, вводишь цифру и выполняется пункт. Должны выполняться все пункты, создаваться файлы, а я вообще не вижу команд создания файла, чтения из него и вообще я запустить не могу Может я еще не так хорошо квалифицирован чтобы понять этот код. 0

@JoKeR_SPb 27 / 27 / 9 Регистрация: 23.03.2009 Сообщений: 63
	26.03.2009, 09:04	4
	Здесь я привел тебе только меню. И меню это нормальное - работает с помощью стрелок, подсвечиваются пункты... 1

@Astrox 13 / 13 / 2 Регистрация: 20.12.2008 Сообщений: 73
	27.03.2009, 01:06 [ТС]	5
	Я конечно благодарен за такой труд, но для меня это както слишком уж трудно понять, я бы поэксперементировал и разобрался бы что к чему если бы хоть мог запустить. Если не трудно вместо моих пунктов напиши чтонибудь,чтобы я мог запустить хотяб и выбрать эти пункты, а я потом разберусь и переделаю на свое. 0

nikas25
	27.03.2009, 17:46	7
	JoKeR_SPb здраствуй я смотрю ты в паскале шариш сможеш мне помоч

@Astrox 13 / 13 / 2 Регистрация: 20.12.2008 Сообщений: 73
	27.03.2009, 21:45 [ТС]	8
	Строка 67 Пишет Unknow Identifier Как исправить? Подозреваю что и в строке 80 тоже такое будет выдавать. 0

@Astrox 13 / 13 / 2 Регистрация: 20.12.2008 Сообщений: 73
	28.03.2009, 15:31 [ТС]	10
	Пасиб, пришлось еще esc и enter в инете найти и дописать. Только с рамкой там внатуре тупит, ну ничего, и без нее обойдусь. Спасибо огромное! 0