Форум: "Начинающим";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];
ВнизПОМОГИТЕ ПОЖАЛСТА Найти похожие ветки
← →
КИРПИЧ © (2006-05-09 23:36) [0]У меня завтра олимпиада в школе! Мне чтобы до неё допуститься нужно сдать 2 проекта! На DELPHI! один я сделал он определяет основные характеристики компьютера, ну там всё легко! а второй я не смог сделать, т.к. вчера у девчёнки моей мать умерла , я с неё всё время был, а завтра в 10.00 показывать проекты! помогите напишите прогу, а то я двое суток почти не спал, сейчас голова дубовая! задание такое построить график функции y=a*cosh(f1*x) с параметрами соответственно a,f1. Пожалуйста войдите в положение. Я по-любому на олимпиаду должен попасть ,я к ней пол года готовился!
← →
Mr tray (2006-05-10 00:07) [1]форма
object Form1: TForm1
Left = 191
Top = 133
BorderStyle = bsSingle
Caption = "Form1"
ClientHeight = 265
ClientWidth = 279
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = "MS Sans Serif"
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 0
Top = 104
Width = 279
Height = 161
Align = alBottom
Anchors = [akLeft, akTop, akRight, akBottom]
end
object Label1: TLabel
Left = 67
Top = 3
Width = 9
Height = 13
Caption = "à:"
end
object Label2: TLabel
Left = 63
Top = 27
Width = 12
Height = 13
Caption = "f1:"
end
object Label3: TLabel
Left = 19
Top = 51
Width = 58
Height = 13
Caption = "ìàñøòàá X:"
end
object Label4: TLabel
Left = 3
Top = 75
Width = 72
Height = 13
Caption = "ìàñøòàá Y: 1/"
end
object Edit1: TEdit
Left = 80
Top = 0
Width = 121
Height = 21
TabOrder = 0
Text = "1"
end
object Edit2: TEdit
Left = 80
Top = 24
Width = 121
Height = 21
TabOrder = 1
Text = "1"
end
object Button1: TButton
Left = 208
Top = 32
Width = 67
Height = 25
Caption = "Button1"
TabOrder = 2
OnClick = Button1Click
end
object Edit3: TEdit
Left = 80
Top = 48
Width = 121
Height = 21
TabOrder = 3
Text = "10"
end
object Edit4: TEdit
Left = 80
Top = 72
Width = 121
Height = 21
TabOrder = 4
Text = "10"
end
end
← →
Mr tray (2006-05-10 00:10) [2]project1.dpr
program Project1;
uses
Forms,
Unit1 in "Unit1.pas" {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, math;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Label4: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
function funk(a,f1,x:cardinal):integer;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
with image1.Canvas.pen do begin
color:=clblack;
mode:=pmcopy;
style:=pssolid;
width:=1;
end;
end;
function TForm1.funk(a,f1,x:cardinal):integer;
begin
result:=a*round(cosh(f1*x));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i,msx,msy,a,f1:cardinal;
begin
i:=0;
a:=strtoint(edit1.Text);
f1:=strtoint(edit2.Text);
msx:=strtoint(edit3.Text);
msy:=strtoint(edit4.Text);
image1.Canvas.MoveTo(0,funk(a,f1,i div msx)*msy+image1.Height div 2);
while i<=280 do begin
i:=i+msx;
image1.Canvas.lineTo(i,funk(a,f1,i div msx) div msy+image1.Height div 2);
end;
end;
end.
я ещё не знаю что такое hyperbolic cosine, так что не очень понимаю, почуму, бывает, рисуется какая то вертикальная линия. И ЕЩЁ. в коде формы вместо иероклифов вставляешь "Масштаб"
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c