Курсовая работа: Разработка программы обработки экономической информации
end;
//запись в файл последней строки
write(t,'|-------|---------------|----------|---------|----------|--------|-------|');
clrscr;
gotoxy(25,25);
writeln('File has been written '); //всё
записали
readln;
close(t); //закрытие файла
end;
{--------------------------------------MENYU--------------------------------}
procedure okno(t:integer);{t-nomer
stroki}
var
p:integer;
begin
clrscr;
textcolor(white); //смена цвета
textbackground(blue);
writeln('МНННННННННННННННННННННННННННННННННННННН№');
gotoxy(25,25);
if t=1 then//печать пунктов меню
и если t равно номеру их строки то выделение
чёрным цветом(для каждого)
textbackground(black);
writeln('є 1.Input the filename. є');
textbackground(blue);
gotoxy(25,26);
if t=2 then
textbackground(black);
writeln('є 2.Processing data. є');
textbackground(blue);
gotoxy(25,27);
if t=3 then
textbackground(black);
writeln('є 3.Delete the student. є');
textbackground(blue);
gotoxy(25,28);
if t=4 then
textbackground(black);
writeln('є 4.Add student. є');
textbackground(blue);
gotoxy(25,29);
if t=5 then
textbackground(black);
writeln('є 5.Watch є');
textbackground(blue);
gotoxy(25,30);
if t=6 then
textbackground(black);
writeln('є 6.Search the student. є');
textbackground(blue);
gotoxy(25,31);
if t=7 then
textbackground(black);
writeln('є 7.Write output file. є');
textbackground(blue);
gotoxy(25,32);
if t=8 then
textbackground(black);
writeln('є 8.ExiT. є');
textbackground(blue);
gotoxy(25,33);
writeln('ИННННННННННННННННННННННННННННННННННННННј');
textbackground(blue);
end;
{------------------------------------------------------}
{-------------------------------------------------------------------------}
{----------------------------------------------------------------------------------}
{------------------------------OSNOVNAYA-------------------------------------------}
{----------------------------------------------------------------------------------}
begin
x:=1; //номер строки
textbackground(blue);
okno(x);
while true do//бесконечный
цикл
begin
c:=readkey; //чтение клавиши
if ord(c)=13 then//ентер
case x of//выбор
процедур по их номеру пунктов
1:begin clrscr;org;if sozdan=true then
klavishi(1);end;
2:begin clrscr;obrabotka;end;
3:begin clrscr;udal;end;
4:begin clrscr;dob;end;
5:begin
clrscr;obrabotka;klavishi(2);end;
6:begin clrscr;klavishi(3);end;
7:begin clrscr;zapis_v_fail;end;
8:begin clrscr;halt;end;
end;
if c=#0
then
begin
c:=readkey;
if c=#80 then//если вниз
begin
x:=x+1;
//увеличение номера строки на 1
if x>8 then//если он больше 8
begin
x:=1; //то он будет =1
okno(x); //печать меню
end
else
okno(x); //печать меню
end
else
if c=#72 then//если вверх
begin
x:=x-1;
//уменьшение номера строки на 1
if x<1 then//меньше1
begin
x:=8; //присвоить значение 8
okno(x); //печать меню
end
else
okno(x); //печать меню
end
else
okno(x); //печать меню
end
else
okno(x);
//печать меню
end;
end.
|
