Министерство образования Российской федерации
МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ ОТКРЫТЫЙ УНИВЕРСИТЕТ
КОЛОМЕНСКИЙ ИНСТИТУТ
Кафедра автоматики и электроники в машиностроение
Курсовая работа
по предмету
«Инструментальные системы структурного и объектно-ориентированного программирования»
выполнила студентка группы И-22 Русакова П.А.
проверил преподаватель
Филоненко И.Н.
дата зашиты __________
оценка _______________
Коломна
2009 г
Содержание
Задача №1……………………………………………………………………………...3
Задача №2…………………………………………………………………………….10
Задача №3…………………………………………………………………………….12
Задача №4…………………………………………………………………………….14
Задача №1
(Вариант 8)
Условие задачи: составить алгоритма и программу на языке Паскаль для расчета и печати 5 таблиц значений функций при а=1,1; 1,2; 1,3; 1,4; 1,5 и х, изменяющимся от 0 до 2 с шагом 0,1. Организовать вывод графика функций по любой из созданных таблиц.
(ax)3-1
, для x<=1
ax+2
Y=
начало
(ax-1)2 , для х>1
Ввод: ah,ha,ak,xn,hx,xk,av
assignfile(f,'f.txt')rewrite(f);
a=an
b:=1;
x=xn
x<=1
y=(ax-1)2
b=av
Вывод на форму:x,y, график y(x)
Вывод в f:a,x,y
x=x+hx
a=a+ha
b:=b+1
x>xk
a>ak
closefile(f)
stop
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TeEngine, Series, Menus, ExtCtrls, TeeProcs, Chart;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
Edit5: TEdit;
Label6: TLabel;
Edit6: TEdit;
Label7: TLabel;
Edit7: TEdit;
Chart1: TChart;
Series1: TFastLineSeries;
Button1: TButton;
Memo1: TMemo;
Memo2: TMemo;
Label8: TLabel;
Label9: TLabel;
Button2: TButton;
Memo4: TMemo;
Memo5: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var a, an,ha,ak: real;
k:integer;
begin
an:=strtofloat(edit1.text);
ak:=strtofloat(edit2.text);
ha:=strtofloat(edit3.text);
a:=an;
k:=1;
repeat
memo5.Lines.Add( floattostr(a));
memo4.Lines.Add( floattostr(k));
a:=a+ha;
k:=k+1;
until a>ak+ha;
end;
procedure TForm1.Button1Click(Sender: TObject);
var a, an,ha,ak,xn,hx,xk,x,y,av: real;
f:textfile;
b:integer;
begin
assignfile(f,'f.txt');
rewrite(f);
writeln(f,'| a | x | y ');
writeln(f,'______________________________');
an:=strtofloat(edit1.text);
ak:=strtofloat(edit2.text);
ha:=strtofloat(edit3.text);
xn:=strtofloat(edit4.text);
xk:=strtofloat(edit5.text);
hx:=strtofloat(edit6.text);
av:= strtofloat(edit7.text);
b:=1;
a:=an;
repeat
x:=xn;
repeat
if x<=1 then y:=(a*x*a*x*a*x-1)/(a*x+2) else y:=(a*x-1)*(a*x-1);
if b=av then
begin
memo1.lines.Add(floattostr(x));
memo2.lines.Add(floattostr(y));
chart1.serieslist[0].AddXY(x,y,'',clblue);
end;
writeln(f,'| ',a:3:1,' | ',x:4:2,' | ',y:10:7);
writeln(f,'-------------------------------------');
x:=x+hx;
until x>xk+hx;
a:=a+ha;
b:=b+1;
writeln(f,'_____________________________');
until a>ak+ha;
closefile(f);
end;
end.
Тестовый пример:
Вывод
в файл:
| a | x | y
__________________________
| 1.1 | 0.00 | -0.5000000
-------------------------------------
| 1.1 | 0.10 | -0.4733028
-------------------------------------
| 1.1 | 0.20 | -0.4456541
-------------------------------------
| 1.1 | 0.30 | -0.4137609
-------------------------------------
| 1.1 | 0.40 | -0.3749246
-------------------------------------
| 1.1 | 0.50 | -0.3269118
-------------------------------------
| 1.1 | 0.60 | -0.2678586
-------------------------------------
| 1.1 | 0.70 | -0.1961975
-------------------------------------
| 1.1 | 0.80 | -0.1106000
-------------------------------------
| 1.1 | 0.90 | -0.0099334
-------------------------------------
| 1.1 | 1.00 | 0.1067742
-------------------------------------
| 1.1 | 1.10 | 0.0441000
-------------------------------------
| 1.1 | 1.20 | 0.1024000
-------------------------------------
| 1.1 | 1.30 | 0.1849000
-------------------------------------
| 1.1 | 1.40 | 0.2916000
-------------------------------------
| 1.1 | 1.50 | 0.4225000
-------------------------------------
| 1.1 | 1.60 | 0.5776000
-------------------------------------
| 1.1 | 1.70 | 0.7569000
-------------------------------------
| 1.1 | 1.80 | 0.9604000
-------------------------------------
| 1.1 | 1.90 | 1.1881000
-------------------------------------
| 1.1 | 2.00 | 1.4400000
-------------------------------------
__________________________
| 1.2 | 0.00 | -0.5000000
-------------------------------------
| 1.2 | 0.10 | -0.4708830
-------------------------------------
| 1.2 | 0.20 | -0.4402571
-------------------------------------
| 1.2 | 0.30 | -0.4039593
-------------------------------------
| 1.2 | 0.40 | -0.3586323
-------------------------------------
| 1.2 | 0.50 | -0.3015385
-------------------------------------
| 1.2 | 0.60 | -0.2304235
-------------------------------------
| 1.2 | 0.70 | -0.1434141
-------------------------------------
| 1.2 | 0.80 | -0.0389405
-------------------------------------
| 1.2 | 0.90 | 0.0843221
-------------------------------------
| 1.2 | 1.00 | 0.2275000
-------------------------------------
| 1.2 | 1.10 | 0.1024000
-------------------------------------
| 1.2 | 1.20 | 0.1936000
-------------------------------------
| 1.2 | 1.30 | 0.3136000
-------------------------------------
| 1.2 | 1.40 | 0.4624000
-------------------------------------
| 1.2 | 1.50 | 0.6400000
-------------------------------------
| 1.2 | 1.60 | 0.8464000
-------------------------------------
| 1.2 | 1.70 | 1.0816000
-------------------------------------
| 1.2 | 1.80 | 1.3456000
-------------------------------------
| 1.2 | 1.90 | 1.6384000
-------------------------------------
| 1.2 | 2.00 | 1.9600000
-------------------------------------
__________________________
| 1.3 | 0.00 | -0.5000000
-------------------------------------
| 1.3 | 0.10 | -0.4684521
-------------------------------------
| 1.3 | 0.20 | -0.4347009
-------------------------------------
| 1.3 | 0.30 | -0.3935904
-------------------------------------
| 1.3 | 0.40 | -0.3410286
-------------------------------------
| 1.3 | 0.50 | -0.2737264
-------------------------------------
| 1.3 | 0.60 | -0.1890101
-------------------------------------
| 1.3 | 0.70 | -0.0846835
-------------------------------------
| 1.3 | 0.80 | 0.0410737
-------------------------------------
| 1.3 | 0.90 | 0.1897833
-------------------------------------
| 1.3 | 1.00 | 0.3627273
-------------------------------------
| 1.3 | 1.10 | 0.1849000
-------------------------------------
| 1.3 | 1.20 | 0.3136000
-------------------------------------
| 1.3 | 1.30 | 0.4761000
-------------------------------------
| 1.3 | 1.40 | 0.6724000
-------------------------------------
| 1.3 | 1.50 | 0.9025000
-------------------------------------
| 1.3 | 1.60 | 1.1664000
-------------------------------------
| 1.3 | 1.70 | 1.4641000
-------------------------------------
| 1.3 | 1.80 | 1.7956000
-------------------------------------
| 1.3 | 1.90 | 2.1609000
-------------------------------------
| 1.3 | 2.00 | 2.5600000
-------------------------------------
__________________________
| 1.4 | 0.00 | -0.5000000
-------------------------------------
| 1.4 | 0.10 | -0.4660075
-------------------------------------
| 1.4 | 0.20 | -0.4289684
-------------------------------------
| 1.4 | 0.30 | -0.3826083
-------------------------------------
| 1.4 | 0.40 | -0.3220250
-------------------------------------
| 1.4 | 0.50 | -0.2433333
-------------------------------------
| 1.4 | 0.60 | -0.1434141
-------------------------------------
| 1.4 | 0.70 | -0.0197342
-------------------------------------
| 1.4 | 0.80 | 0.1297846
-------------------------------------
| 1.4 | 0.90 | 0.3068638
-------------------------------------
| 1.4 | 1.00 | 0.5129412
-------------------------------------
| 1.4 | 1.10 | 0.2916000
-------------------------------------
| 1.4 | 1.20 | 0.4624000
-------------------------------------
| 1.4 | 1.30 | 0.6724000
-------------------------------------
| 1.4 | 1.40 | 0.9216000
-------------------------------------
| 1.4 | 1.50 | 1.2100000
-------------------------------------
| 1.4 | 1.60 | 1.5376000
-------------------------------------
| 1.4 | 1.70 | 1.9044000
-------------------------------------
| 1.4 | 1.80 | 2.3104000
-------------------------------------
| 1.4 | 1.90 | 2.7556000
-------------------------------------
| 1.4 | 2.00 | 3.2400000
-------------------------------------
__________________________
| 1.5 | 0.00 | -0.5000000
-------------------------------------
| 1.5 | 0.10 | -0.4635465
-------------------------------------
| 1.5 | 0.20 | -0.4230435
-------------------------------------
| 1.5 | 0.30 | -0.3709694
-------------------------------------
| 1.5 | 0.40 | -0.3015385
-------------------------------------
| 1.5 | 0.50 | -0.2102273
-------------------------------------
| 1.5 | 0.60 | -0.0934483
-------------------------------------
| 1.5 | 0.70 | 0.0516803
-------------------------------------
| 1.5 | 0.80 | 0.2275000
-------------------------------------
| 1.5 | 0.90 | 0.4359328
-------------------------------------
| 1.5 | 1.00 | 0.6785714
-------------------------------------
| 1.5 | 1.10 | 0.4225000
-------------------------------------
| 1.5 | 1.20 | 0.6400000
-------------------------------------
| 1.5 | 1.30 | 0.9025000
-------------------------------------
| 1.5 | 1.40 | 1.2100000
-------------------------------------
| 1.5 | 1.50 | 1.5625000
-------------------------------------
| 1.5 | 1.60 | 1.9600000
-------------------------------------
| 1.5 | 1.70 | 2.4025000
-------------------------------------
| 1.5 | 1.80 | 2.8900000
-------------------------------------
| 1.5 | 1.90 | 3.4225000
-------------------------------------
| 1.5 | 2.00 | 4.0000000
-------------------------------------