Оцените презентацию от 1 до 5 баллов!
Тип файла:
ppt / pptx (powerpoint)
Всего слайдов:
11 слайдов
Для класса:
1,2,3,4,5,6,7,8,9,10,11
Размер файла:
65.83 kB
Просмотров:
81
Скачиваний:
2
Автор:
неизвестен
Слайды и текст к этой презентации:
№1 слайд![Создание консольного](/documents_6/118943a02a6469c36b77dc16212c5486/img0.jpg)
Содержание слайда: Создание консольного приложения с текстовым меню.
№2 слайд![Пример простейшего CASE-меню](/documents_6/118943a02a6469c36b77dc16212c5486/img1.jpg)
Содержание слайда: Пример простейшего CASE-меню
Uses Crt;
Var n: Byte;
procedure proc1;
begin end;
procedure proc2;
begin end;
begin
repeat
ClrScr;
WriteLn('Program 1 - 1');
WriteLn('Program 2 - 2');
WriteLn('Exit - 0');
Write('Select program: ');
ReadLn(n);
Case n of
1: proc1;
2: proc2;
end;
until n = 0;
end.
№3 слайд![Процедуры модуля CRT Очистка](/documents_6/118943a02a6469c36b77dc16212c5486/img2.jpg)
Содержание слайда: Процедуры модуля CRT
Очистка
ClrScr очистит весь экран
ClrEol очистит текущую строку
DelLine удалит строку, в которой находится курсор.
InsLine очистит текущую строку целиком.
№4 слайд![Цвета Цвет фона](/documents_6/118943a02a6469c36b77dc16212c5486/img3.jpg)
Содержание слайда: Цвета
Цвет фона
TextBackground(color : Byte)
Цвет выводимого текста
Textcoloe(color : Byte)
Функция Textattr: Byte
№5 слайд![Константы цветов](/documents_6/118943a02a6469c36b77dc16212c5486/img4.jpg)
Содержание слайда: Константы цветов
№6 слайд![Атрибуты текста](/documents_6/118943a02a6469c36b77dc16212c5486/img5.jpg)
Содержание слайда: Атрибуты текста
№7 слайд![Позиционирование Процедура](/documents_6/118943a02a6469c36b77dc16212c5486/img6.jpg)
Содержание слайда: Позиционирование
Процедура GotoXY(x, y : Byte) переместит курсор в заданную позицию в пределах текущего окна.
Функция WhereX: Byte вычислит положение курсора в текущем окне: его горизонтальную составляющую
Функция WhereY : Byte вычислит положение курсора в текущем окне (или на экране): его вертикальную составляющую.
№8 слайд![uses Crt uses Crt const NORM](/documents_6/118943a02a6469c36b77dc16212c5486/img7.jpg)
Содержание слайда: uses Crt;
uses Crt;
const
NORM=LightGray; { цвет невыделеного пункта }
SEL=Green; { цвет выделенного пункта }
N=3;
var menu:array[1..N] of string[12];{ названия пунктов меню }
punkt:integer; ch:char; x,y:integer;
Procedure punkt1;
begin
ClrScr;
writeln('Процедура 1.Нажмите <Enter> для продолжения.');
readln;
end;
Procedure punkt2;
begin
ClrScr;
writeln('Процедура 2.Нажмите <Enter> для продолжения.');
readln;
end;
№9 слайд![Procedure MenuToScr вывод](/documents_6/118943a02a6469c36b77dc16212c5486/img8.jpg)
Содержание слайда: Procedure MenuToScr;{ вывод меню на экран }
Procedure MenuToScr;{ вывод меню на экран }
var i:integer;
begin
ClrScr;
for i:=1 to N do begin
GoToXY(x,y+i-1);
write(menu[i]);
end;
TextAttr:=SEL;
GoToXY(x,y+punkt-1);
write(menu[punkt]);{ выделим строку меню }
TextAttr:=NORM;
end;
№10 слайд![begin begin menu Действие](/documents_6/118943a02a6469c36b77dc16212c5486/img9.jpg)
Содержание слайда: begin
begin
menu[1]:=' Действие 1 ‘;
menu[2]:=' Действие 2 ‘;
menu[3]:=' Выход ';
punkt:=1; x:=5; y:=5;
TextAttr:=NORM;
MenuToScr;
repeat
ch:=ReadKey;
if ch=#0 then begin
ch:=ReadKey;
case ch of
#80:{ стрелка вниз }
if punkt<N then begin
GoToXY(x,y+punkt-1); write(menu[punkt]);
punkt:=punkt+1;
TextAttr:=SEl;
GoToXY(x,y+punkt-1); write(menu[punkt]);
TextAttr:=NORM;
end;
№11 слайд![стрелка вверх стрелка вверх](/documents_6/118943a02a6469c36b77dc16212c5486/img10.jpg)
Содержание слайда: #72:{ стрелка вверх }
#72:{ стрелка вверх }
if punkt>1 then begin
GoToXY(x,y+punkt-1); write(menu[punkt]);
punkt:=punkt-1;
TextAttr:=SEl;
GoToXY(x,y+punkt-1); write(menu[punkt]);
TextAttr:=NORM;
end;
end;
end
else
if ch=#13 then begin { нажата клавиша <Enter> }
case punkt of
1:punkt1;
2:punkt2;
3:ch:=#27;{ выход }
end;
MenuToScr;
end;
until ch=#27;{ 27 - код <Esc> }
end.