Автор: Пользователь скрыл имя, 10 Ноября 2011 в 18:43, практическая работа
Программы, работающие на компьютере, можно разделить на три категории:
Прикладные программы, непосредственно обеспечивающие выполнение необходимых пользователям работ: редактирование текстов, рисование, обработку информационных массивов и т.д.
Системные программы, выполняющие различные вспомогательные функции, например диагностика компьютера или резервное копирование информации.
Инструментальные системы (системы программирования), обеспечивающие создание новых программ.
ВВЕДЕНИЕ
1. Метод решения
2. Описание программы
3. Руководство пользователя
Работа с памятью:
Горячие клавиши:
Использование меню
Измерение углов в градусах и радианах
4. Результаты моделирования
if (y<>0) then z:=x/y else
messagedlg('На 0 делить нельзя',mterror,[mbok],0);
if c='' then z:=y;
end;
procedure okr(var c:string);
var i,j:integer;x:real;
begin
i:=length(c); j:=i;
while copy(c,j,1)='0' do
begin
delete(c,j,1);
j:=j-1;
end;
val(c,x,i);
if (x>1E+16) or (x<-1E+16) then
begin
s:=' 0';
messagedlg('Слишком большое чиссло',mtcustom,[mbok],0);
end;
end;
procedure o(p:string; var c,c1:string);
begin
if length(c)<16 then
begin
c:=c+p;c1:=c;
end;
end;
procedure TForm5.Button10Click(Sender: TObject);
begin
o('0',s,s1);
edit1.text:=(' '+s)
end;
procedure TForm5.Button1Click(Sender: TObject);
begin
o('1',s,s1);
edit1.text:=(' '+s)
end;
.
.
.
procedure TForm5.Button9Click(Sender: TObject);
begin
o('9',s,s1);
edit1.text:=(' '+s)
end;
procedure TForm5.Button20Click(Sender: TObject);
begin
if copy(s,1,1)='-'
then delete(s,1,1)
else s:='-'+s ;
s1:=s;
edit1.text:=(' '+s)
end;
procedure TForm5.Button16Click(Sender: TObject);
begin
val(s1,y,i);
operat(x,y,c,z);
x:=z; c:='+';
str(z:6:6,s); okr(s);
edit1.text:=(' '+s);
s:='' ;t:=0;
end;
procedure TForm5.Button21Click(Sender: TObject);
begin
val(s1,y,i);
operat(x,y,c,z);
x:=z; c:='-';
str(z:6:6,s);okr(s);
edit1.text:=(' '+s);
s:='' ;t:=0;
end;
procedure TForm5.Button15Click(Sender: TObject);
begin
val(s1,y,i);
operat(x,y,c,z);
x:=z; c:='*';
str(z:6:6,s);okr(s);
edit1.text:=(' '+s);
s:='';t:=0;
end;
procedure TForm5.Button14Click(Sender: TObject);
begin
val(s1,y,i);
operat(x,y,c,z);
x:=z; c:='/';
str(z:6:6,s); okr(s);
edit1.text:=(' '+s);
s:='';t:=0;
end;
procedure TForm5.Button26Click(Sender: TObject);
begin
val(s1,y,i);
z:=y*y;
str(z:6:6,s);okr(s);s1:=s;
edit1.text:=(' '+s);
s:='';t:=0;
end;
procedure TForm5.Button27Click(Sender: TObject);
begin
val(s1,y,i);
z:=y*y*y;
str(z:6:6,s);okr(s);s1:=s;
edit1.text:=(' '+s);
s:='';t:=0;
end;
procedure TForm5.Button12Click(Sender: TObject);
begin
c:='';
t:=0;
s:='';
s1:=s;
y:=0;
edit1.text:=(' 0');
end;
procedure TForm5.Button30Click(Sender: TObject);
begin
val(s1,y,i);
z:=round(y);
str(z:6:6,s);okr(s);s1:=s;
edit1.text:=(' '+s);
s:='';t:=0;
end;
procedure TForm5.Button13Click(Sender: TObject);
begin
val(s1,y,i);
operat(x,y,c,z);
x:=z;
c:='';
str(z:6:6,s);
okr(s);
s1:=s;
edit1.text:=(' '+s);
s:='';t:=0;
end;
procedure TForm5.Button19Click(Sender: TObject);
begin
val(s1,y,i);
if y<>0 then
begin
z:=1/y;
str(z:6:6,s);okr(s);s1:=s;
edit1.text:=(' '+s);
end else
begin
messagedlg('На 0 делить нельзя',mterror,[mbok],0);
{ edit1.text:=('E ') ;}
end;
s:='';t:=0;
end;
procedure TForm5.Button37Click(Sender: TObject);
begin
t:=0;
s:='';
s1:=s;
edit1.text:=(' 0');
end;
procedure TForm5.Button18Click(Sender: TObject);
begin
val(s1,y,i);
begin
if radiobutton1.Checked then
f:=y*3.14159265359/180
else f:=y; end;
z:=cos(f);
str(z:6:6,s);okr(s);s1:=s;
edit1.text:=(' '+s);
s:='';t:=0;
end;
procedure TForm5.Button22Click(Sender: TObject);
begin
val(s1,y,i);
begin
if radiobutton1.Checked then
f:=y*3.14159265359/180
else f:=y; end;
z:=sin(f);
str(z:6:6,s);okr(s);s1:=s;
edit1.text:=(' '+s);
s:='';t:=0;
end;
procedure TForm5.Button23Click(Sender: TObject);
begin
val(s1,y,i);
if y<>0
then begin
if radiobutton1.Checked
then
f:=y*3.14159265359/180
else f:=y;
z:=sin(f)/cos(f);
str(z:6:6,s);okr(s);s1:=s;
edit1.text:=(' '+s);
end else
begin
messagedlg('На 0 делить нельзя',mterror,[mbok],0);
end;
s:='';t:=0;
end;
procedure TForm5.Button24Click(Sender: TObject);
begin
val(s1,y,i);
if y<>0
then begin
if radiobutton1.Checked
then
f:=y*3.14159265359/180
else f:=y;
z:=cos(f)/sin(f);
str(z:6:6,s);okr(s);s1:=s;
edit1.text:=(' '+s);
end else
begin
messagedlg('На 0 делить нельзя',mterror,[mbok],0);
end;
s:='';t:=0;
end;
procedure TForm5.Button25Click(Sender: TObject);
begin
val(s1,y,i);
if y>=0 then begin
z:=sqrt(y);
str(z:6:6,s);okr(s);s1:=s;
edit1.text:=(' '+s);
end else begin
messagedlg('Корень из отрицательного числа извлечь нельзя',mterror,[mbok],0);
end;
s:='';t:=0;
end;
procedure TForm5.Button28Click(Sender: TObject);
begin
val(s1,y,i);
operat(x,y,c,z);
x:=z;
c:='x^y';
str(z:6:6,s);okr(s);
edit1.text:=(' '+s);
s:='';t:=0;
end;
procedure TForm5.Button32Click(Sender: TObject);