Текущий архив: 2006.05.28;
Скачать: CL | DM;

Вниз

ПОМОГИТЕ ПОЖАЛСТА   Найти похожие ветки 

← →
КИРПИЧ ©   (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;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.031 c