4.Програма переглядач графічних файлів

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtDlgs,jpeg, ExtCtrls, Menus;

type

TForm1 = class(TForm)

Image1: TImage;

OpenPictureDialog1: TOpenPictureDialog;

Button1: TButton;

MainMenu1: TMainMenu;

File1: TMenuItem;

Vuhid1: TMenuItem;

procedure Vuhid1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if openpicturedialog1.Execute then

image1.Picture.LoadFromFile(openpicturedialog1.FileName);

end;

procedure TForm1.Vuhid1Click(Sender: TObject);

begin

close;

end;

end.

Білет 10

1.Метод Ньютона для розвязання нелінійних рівнянь.

Це найшвидший метод розв’язання рівняння f(x)=0 проте він спрацьовує незавжди.

Xm+1=Xm* f(Xm)/ fp(Xm)

m-номер ітерації, fp-похідна

Обравши певне початкове наближення за наведеною формулою ми одержуємо уточнене значення кореня X1 . у залежності від обраної точності Eps, ми за декілька кроків знаходимо корінь.

Ітерація – це крок послідовного наближення.

Ітераційний метод – формула, згідно з якою ми здійснюємо ітераційний процес.

Головною характеристикою Ітераційного процесу є збіжність.

Процес наз. Збіжним якщо виконуючи ітераційний процес ми наближаємося до шуканого розв’язку . Метод Ньютона володіє квадратичною швидкість збіжності.

2.Типи даних,які визначає програміст, правило їх використання(с++,делфі)

3.Побудувати графік функції y=sin(x).

var

Form1: TForm1;

const del=20;

var b,w,h,i:integer;

x,y:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

w:=width;

h:=height;

Canvas.pen.color:= clblack;

Canvas.moveto(w div 2,0);

Canvas.lineto(w div 2,h);

Canvas.moveto(0,h div 2);

Canvas.lineto(w,h div 2);

Canvas.pen.color := clblue;

Canvas.MoveTo(0,0);

for i:=0 to w do

begin

x:=i-w/2;

y:=sin(x/del)*del*2;

x:=x+w/2;

y:=y-h/2-2*(y-h/2);

Canvas.LineTo(round(x),round(y))

end;

end;

end.

4. Програма розв’язання квадратного рівняння.

#include <vcl.h>

#pragma hdrstop

#include "windows.h"

#include "iostream.h"

#include "math.h"

#include <tchar.h>

//---------------------------------------------------------------------------

#pragma argsused

int _tmain(int argc, _TCHAR* argv[])

{ double a,b,c;

cout<<"a=";

cin>>a;

cout<<"b=";

cin>>b;

cout<<"c=";

cin>>c;

if (a==0)

{double x=-c/b;

cout<<"x="<<x<<"\n";

system("pause");

return 0;}

if (b==0)

{double x=sqrt(-c*a);

cout<<"x="<<x<<"\n";

system("pause");

return 0;}

if (c==0)

{double y1=0;

double y2=-b/a;

cout<<"y1="<<y1<<"\n"<<"y2="<<y2<<"\n";

system("pause");

return 0;}

double d=b*b-4*a*c;

if (d<0)

{cout<<"Duskruminant <0\n";

system("pause");

return 0;}

double x1,x2;

x1=(-b+sqrt(d))/(2.0*a);

x2=(-b-sqrt(d))/(2.0*a);

cout<<"x1="<<x1<<"\n";

cout<<"x2="<<x2<<"\n";

system("pause");

return 0;}

БІЛЕТ_11