Вариант 4

– М.: Наука, 1972.
27. Абрамов В.Г., Трифонов Н.П., Трифонова Г.Н. Введение в язык ПАСКАЛЬ. – М.: Наука, 1988.
28. Дьяконов В.П. Справочник по алгоритмам и программам на языке бейсик для персональных ЭВМ. – М.:Наука, 1987.
29. Сдвижков О.А. Математика на компьютере: Maple 8. – М.: СОЛОН-Пресс, 2003.
30. Корнюшин П. Н. Численные методы. Владивосток: Изд. Дальневосточного университета. 2002, 104с.














Приложение 1
Текст программы для решения задачи в среде Maple 12






























Приложение 2
Листинг программного проекта в среде Borland Delphi 7

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Chart1: TChart;
Series1: TLineSeries;
Series2: TLineSeries;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Chart2: TChart;
Button2: TButton;
Label4: TLabel;
Label5: TLabel;
Series3: TLineSeries;
Series4: TLineSeries;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
s,x,y,h, g: double;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
h:=strtofloat(edit1.text);
s:=0;

x:=0;
y:=cos(Pi*x);
s:=s+y*h/2;
x:=x+h;

while(x<=1-h) do
begin
if x<0.5 then
y:=cos(Pi*x)
else y:=0;
s:=s+y*h;
x:=x+h;
end;
if x<0.5 then
y:=cos(Pi*x)
else y:=0;
s:=s+y*h;
Label1.Caption:=FloatToStr(s);
x:=0;
g:=0.001;

while (x<=1) do
begin
if x<0.5 then
y:=cos(Pi*x)
else y:=0;
x:=x+g;
Series1.AddXY(x,y,'',clRed);
end;

x:=0;
while (x<=1) do
begin
Series2.AddXY(x,0,'',clBlue);
if x<0.5 then
y:=cos(Pi*x)
else y:=0;
Series2.AddXY(x,y,'',clBlue);
x:=x+h;
Series2.AddXY(x,y,'',clBlue);
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
h:=strtofloat(edit1.text);
s:=0;
x:=0;
y:=cos(Pi*x);
s:=s+y*h/2;
x:=x+h;

while(x<=1-h) do
begin

if x<0.5 then
y:=cos(Pi*x)*cos(Pi*x)
else y:=0;
s:=s+y*h;
x:=x+h;
end;
if x<0.5 then
y:=cos(Pi*x)*cos(Pi*x)
else y:=0;
s:=s+y*h;
Label5.Caption:=FloatToStr(s);
x:=0;
g:=0.001;

while (x<=1) do
begin
if x<0.5 then
y:=cos(Pi*x)*cos(Pi*x)
else y:=0;
x:=x+g;
Series3.AddXY(x,y,'',clRed);
end;

x:=0;
while (x<=1) do
begin
Series4.AddXY(x,0,'',clBlue);
if x<0.5 then
y:=cos(Pi*x)*cos(Pi*x)
else y:=0;
Series4.AddXY(x,y,'',clBlue);
x:=x+h;
Series4.AddXY(x,y,'',clBlue);
end;

end;

end.











3