Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Практична робота №11
1.Мета:Набути і вдосконалити знання по масивах;
2.Тема:Програмування масивів;
3.Порядок виконання роботи:
Варіант 12
Завдання 1:
Завдання 2:
Код програми 1:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
MainMenu1: TMainMenu;
PopupMenu1: TPopupMenu;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
Label3: TLabel;
procedure N2Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
Var mas:array[1..2013] of real; s,min:real;
k,a,b,cod1,cod2,imin:integer;
str1,str2:string;
begin
s:=0;
Memo1.Clear;
label3.Caption:=' ';
Val(Edit1.Text,a,cod1);
Val(Edit2.Text,b,cod2);
if (cod1+cod2)=0 then
begin
if (a<=b) then
begin
if (a>=1) and (a<=2013)and(b>=1) and (b<=2013) then
begin
min:=mas[a];
imin:=a;
Memo1.Lines.Add('Номер року Величина прибутку');
for k:=a to b do
begin
mas[k]:=100*13.4*sin(-1.26)*cos(abs(k/7.5)) ;
str(k,str1);
str(mas[k]:0:2,str2);
Memo1.Lines.Add(str1+' '+str2) ;
if (mas[a]<-200) and (mas[k]>-750) then s:=s+mas[k];
if min>mas[k] then
begin
min:=mas[k];
imin:=k;
end;
end;
if s<0 then
begin
s:=s*(-1) ;
str(s:0:2,str1);
Memo1.LineS.Add('сума збитків='+str1);
end
else
Memo1.LineS.Add('збитків немаэ');
Str(min:0:2,str1) ;
Str(imin,str2);
Memo1.LineS.Add('Мінімальний дохід='+str1+' в '+str2+' році');
end
else
label3.Caption:='Такого року не існує' ;
end
else
label3.Caption:='Початковий рік не може бути більшим за кінцевий' ;
end
else
label3.Caption:='Ви ввели символ введіть будь ласка число!!';
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Memo1.clear
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Memo1.clear
end;
procedure TForm1.N6Click(Sender: TObject);
begin
close
end;
end.
Результат :
Код програми 2:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TForm1 = class(TForm)
mmo1: TMemo;
lbl1: TLabel;
PopupMenu2: TPopupMenu;
MainMenu2: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
procedure N5Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.N5Click(Sender: TObject);
begin
Close
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Mmo1.Clear
end;
procedure TForm1.N2Click(Sender: TObject);
var y:array[1..7] of Real;
k:Byte;
s:Real;
str1,str2:string;
begin
for k:=1 to 7 do
begin
y[k]:=2*sin(Abs(2*k))*cos(2*k)-11.6*sin(k/0.6);
Str(y[k]:0:2,str1);
str(k,str2);
mmo1.Lines.Add('y['+str2+']='+str1);
end;
if y[1]<0 then
begin
s:=y[1]*y[5];
Str(s:0:2,str1);
mmo1.Lines.Add('добуток першого відємного та пятого елементів='+str1);
end;
end;
end.
Результат:
Висновок:
На практичні роботі я працював в середовищі Delphi , розвязував задачі по массивах і вдосконалював свої знання по даній темі .А також згадав і засвоїв методи і алгоритми розвязання данної задачі, які я використовував при її написанні .