Алматы экономика және статистика академиясы


end;  //  негізгі программа   var



жүктеу 5,01 Kb.
Pdf просмотр
бет18/30
Дата14.12.2017
өлшемі5,01 Kb.
#4331
1   ...   14   15   16   17   18   19   20   21   ...   30

48 
 
         end; 
// 
негізгі программа 
 var 
f:real;         // 
фунттағы салмақ 
w:real;         // 
грамдағы салмақ 
k:integer;  // килограмм саны 
g:integer;  // грамм саны 
// w = f*0,4095 = 
k*1000 + д 
begin 
writeln(  Rus('Фунттар-килограммдар')); 
writeln(  Rus(Салмақты фунтта енгізіп,  -ді басыңыз' 
write('->   '); 
readln(f) ; 
w  :=  f  *   409.5;   // 
бір фунт — ол 409,5 гр.  
if  w >  1000  then 
 begin 
k:=Trunc(w/1000) ;  
g:=Round(w - k*1000);  
end 
 else 
begin 
 k:=0; 
g:=Round(w);  
end; 
write(f :4:2,   Rus ('   
ф.  -это   '));  
if  k >= 1  then write(k,   Rus('   
кг.    '));  
writeln (g,   Rus ( '   rp.')); 
write( Rus('
Бітіру үшін -ді басыңыз ')); 
 readln;  
end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
№8. Дәріс.  Қосымшалар құру. 

сурет.
 
Консоль қосымшасы жұмыс жасайтын DOS-терезесінің мысалы
 


49 
 
Енгізу-шығару және редактірлеу компоненттері, тізімдер мен кестелер құрастыру. 
Дәріс конспектісі: 
Обработка  исключительных  ситуаций  с  использованием  событий    Key  Press 
выполняется  путём  организации  блокирования  лишних  клавиш  на  клавиатуре,  с  целью 
исключения нажатия нежелательных клавиш.  Также для организации передачи управления 
(перенос  курсора)  с  помощью  процедуры  Set  Focus    при  нажатии  выбранных  клавиш 
управления  (например,  клавиши  Enter).  Таким  же  образом  можно  изменить  назначение 
клавиш. 
Для этого на компоненте ввода, например: Edit1.text, обрабатывается событие Key Press 
двойным  щелчком  и  на  появившейся  процедуре  обработки  прописываются  следующие 
команды с управлением передачи курсора на поле ввода Edit2.text: 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
case Key of 
'0'..'9':; 
#8,'-':; 
#13: key:=Edit2.Setfocus; 
',','.': Key:=','; 
else Key:=Chr(0); 
end; 
end; 
Также  на  компоненте  ввода:  Edit2.text,  тоже  обрабатывается  событие  Key  Press 
двойным  щелчком  и  на  следующей  появившейся  процедуре  обработки  прописываются 
следующие команды с управлением передачи курсора на командную кнопку Button1: 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); 
begin 
case Key of 
'0'..'9':; 
#8,'-':; 
#13: key:=Button1.Setfocus; 
',','.': Key:=','; 
else Key:=Chr(0); 
end; 
end; 
 
Рис. 4.2
 
Пример DOS-окна в котором работает консольное приложение
 


50 
 
Обработка ошибок с помощью стандартных классов исключений Класс Exception и Класс 
Finally.  
Операторы обработки исключений TRY..EXCEPTION..END;  TRY.. FINALLY..END 
В языке Object Pascal для работы с исключениями реализованы следующие операторы: 
Raise – 
для создания объекта исключение; 
try..except-
для определения блоков обработки конкретных исключений. 
Try…finally – 
для определения одного блока обработки всех исключений. 
После  оператора  Try  размещается  последовательность  операторов,  в  которой  возможно 
возникновение  исключения.  После  элемента  фразы  except  или  finally  размещаются  блоки 
обработки ошибок. 
Наша  программа  страдает  существенным  недостатком:  если  в  поле  ввода  вместо  числа 
ввести, скажем, "Вася", программа "свалится" с выдачей сообщения об ошибке (проверьте!) 
Оно и понятно – функция FloatToStr не может преобразовать "Васю" в вещественное число. 
В  Delphi  реализован  очень  элегантный  механизм  реакции  на  ошибки  в  программе  при 
помощи оператора TRY..EXCEPT..END.  
Опера тор TRY..EXCEPT..END состоит как бы из 2-х частей. Первая – это 
последовательность операторов, указываемая между TRY и EXCEPT, называемая блоком 
возможного возникновения исключения. Вторая часть- это блок обработки исключений on 
тип_исключения do оператор. 
Вот его общий вид: 
TRY 
 
здесь может произойти ошибка 
EXCEPT 
 
эти команды выполняются, если ошибка произошла 
END; 
Применим данный оператор в процедуре примера вычисления с=(a+b)
2

procedure TForm1.Button1Click(Sender: TObject); var a,b,c:real; 
begin 
 try 
  a:=StrToFloat(LabeledEdit1.Text); 
  b:=StrToFloat(LabeledEdit2.Text); 
  c:=SQR(a+b) 
 except 
  Label1.Caption:='
Неверные данные'; 
  Exit 
 end; 
 Label1.Caption:=FoatToStr(c) 
end; 
Оператор Exit вызывает досрочный выход из всей процедуры. Если бы его не было, оператор 
Label1.Caption:=FloatToStr(c) выполнялся бы в любом случае, так как он никак не связан с 
оператором try. 
 
№9. Дәріс. Қосымшалар құру. 
Батырмалы  компоненттер,  қосқыштар.  Контейнерлер.  Формалар.  Мәзірді  (менюді) 
ұйымдастыру.    Бас  және  жанама  мәзір  құру.    Мәзірлерді  пайдаланып  қосымшалар 
құру. 
Дәріс конспектісі: 
 
МЕНЮ РЕДАКТОРЫ 
IDE  интеграцияланған  өңдеу  ортасында  меню  құру  үшін  меню  редакторы 
пайдаланылады.  Оны  шақыру  үшін  формада  TMainMenu  типті  немесе  TPopupMenu  типті 


жүктеу 5,01 Kb.

Достарыңызбен бөлісу:
1   ...   14   15   16   17   18   19   20   21   ...   30




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау