Файл: Человеко-машинный интерфейс МУ.pdf

31 

Exit; 

End; 

- Проверка на пустые имена файлов 
 

If (F1OK = False) Or (F2OK = False) 

Then  Begin  MessageDlg('Требуется  задать  имена  исходного  и  результирую-

щего файлов!',mtError,[mbOk],0); 
 

Exit; 

End; 

- Проверка на ошибку в файле: строка не оканчивается на «;» 
 

If st[Length(st)] <> ';' 

Then Begin MessageDlg('Ошибка в файле: строка '+IntToStr(k)+' не оканчива-

ется на ";"!',mtError,[mbOk],0); 
 

Exit; 

End; 

- Проверка на некорректные символы в файле обработки 
 

stn:= st[i]; 

If Not (stn[1] In ['0'..'9','-','+',',',';',' ','E','e']) 

Then  Begin  MessageDlg('Ошибка  в  файле:  символ  "'+stn+'",  находящийся  в 

строке  '+IntToStr(k)+', позиция '+IntToStr(i)+' некорректен!',mtError,[mbOk],0); 
 

Exit; 

End; 

32 

 
3) Тестовые примеры 
а) обычный случай 
Входные данные: 
a = 4 
b = 3 
c = 2 
d = 5 
Выходные данные: 
X = -7 
Y = 26 
-7+26i 
б) сопряжённые числа 
Входные данные: 
a = 4 
b = 3 
c = 4 
d = -3 
Выходные данные: 
X=25 
Y=0 
25