unit Unit1;

interface

uses

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

Dialogs, StdCtrls, math;

type

TForm1 = class(TForm)

Edit1: TEdit; //после ввести значение x1

Edit2: TEdit; //после ввести значение y1

Edit3: TEdit; //после ввести значение е

Label1: TLabel; //поле вывести значение x1

Label2: TLabel; //поле вывести значение y1

Label3: TLabel; //поле вывести значение e

Button1: TButton; //кнопка Вычислить

Label4: TLabel; //после вывести значение х

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

e,x,y,x1,y1: real; //значения e,x,y,x1,y1

begin

//получить исходные данные

x1:=StrToFloat(Edit1.Text);

y1:=StrToFloat(Edit2.Text);

e:=StrToFloat(Edit3.Text);

if (y1>0) and (x1>y1) and(e>0) then

begin

repeat

y:=power(x1*y1,1/2);

x:=x1+y1;

x1:=x;

y1:=y;

until (ABS(x-y)>=e);

Label4.Caption:=FloatToStr(x1);

end else

Label4.Caption:='Числа не удовлетворяют условию';

end;

end.

Тестирование программы

Задача №5.

Даны целое число n, действительные числа x, e (e> 0, n>= 0). Вычислить с точностью e значение

Структура проекта.

Проект

36

Математическая модель

Входные данные.

Выходные данные.

Блок-схема.

36

Описание интерфейса

Текст программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, math;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

n,x,e,z,y,s,m,k:real;

begin

n:=StrToFloat(Edit1.Text);

x:=StrToFloat(Edit2.Text);

e:=StrToFloat(Edit3.Text);

m:=1;

k:=0;

y:=0;

s:=(1/n)*Power(x/2,n);

z:=n-Trunc(n);

if (z=0) and (e>0) and (n>=0) then

begin

repeat

k:=k+1;

m:=m*k*(k+n);

y:=(power(-1,k)/m)*Power(x/2,n+2*k);

s:=y+s;

until (ABS(y)<=e);

Label1.Caption:=FloatToStr(s);

end else

Label1.Caption:='Числа не удовлетворяют условию';

end;

end.

Тестирование программы

Задача №6

Написать программу набора суммы очков S из слагаемых, являющихся целыми числами, каждое из которых принадлежит интервалу [k, l] и генерируется случайным образом. Сумму набирать до тех пор, пока не выполнится условие S < n-5 (n - задано).

Проект

Form1

Procedure Button1Click (вычисление)

Математическая модель.\

Входные данные

Выходные данные.\

Блок-схема.

36

Описание интерфейса.

Текст программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton; //кнопка Вычислить

Edit1: TEdit; //поле ввести значение L

Label1: TLabel; //поле вывести значение L

Edit2: TEdit; //поле ввести значение К

Edit3: TEdit; //поле ввести значение N

Label2: TLabel; //поле вывести значение К

Label3: TLabel; //поле вывести значение N

Label4: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

k,l,n,S:integer; //значения K, L, N, S

begin

Randomize;

k:=StrToInt(Edit1.Text);

l:=StrToInt(Edit2.Text);

n:=StrToInt(Edit3.Text);

S:=0;

repeat

S:=S+(Random(l+1)+k); //вычислить значение S

until S<(n-5);

Label1.Caption:=IntToStr(S);

end;

end.

Тестирование программы

Задача №7

В 1985 году урожай ячменя составил 20 ц с га. В среднем каждые 2 года за счет применения передовых агротехнических приемов урожай увеличивается на 5 %. Определить, через сколько лет урожайность достигнет 25 ц с га.

Структура проекта

Проект

Form1

Procedure FormCreate

Математическая модель

Входные данные

Выходные данные

Блок-схема

36

Описание интерфейса

Текст программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1:TEdit;

Button1:TButton;

Label1: TLabel;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

i:integer; // значение i

s:real; // значение S

begin

s:=20;

i:=0;

repeat

i:=i+2;

s:=s+s*0.05;

until s>=25;

label1.Caption:='Урожайность достигнет 25 ц с га через '+IntTоStr (i) +' лет';

end;

end.

Тестирование программы.

«Урожайность достигнет 25 ц с га через 10 лет»

Задача №8.

Переведите число из десятичной в восьмеричную систему счисления.

Структура проекта.

Проект

36

Математическая модель.

Входные данные.

Выходные данные.

Блок-схема.

36

Описание интерфейса.

Текст программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit; //поле ввести значение z

Button1: TButton; // кнопка Вычислить

Label1: TLabel; // поле вычислить значение z

Label2: TLabel; // поле вычислить значение j

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

i,j:integer; // значения i, j

s,z:string; // значения s, z

begin

Label1.Caption:=''; // вычислить значение j

j:=StrToInt(Edit1.Text);

repeat

// вычислить значение z

z:=z+IntTOStr(j mod 8);

j:=j div 8;

until j<8;

z:=z+IntTOStr(j);

for i:=Length(z) downto 1 do

Label1.Caption:=Label1.Caption+z[i]

end;

end.

Тестирование программы

Задача №9.

Начав тренировки, спортсмен в первый день пробежал 13 км. Каждый следующий день он увеличивал дневную норму на 1,4 % от нормы предыдущего дня. На какой день он пробежит больше 24 км?

Структура проекта.

Проект

Математическая модель.

Входные данные.

Выходные данные.

Блок-схема.

36

Описание интерфейса.

Текст программы.

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

i:integer;

s:real;

begin

s:=13;

i:=1;

repeat

i:=i+1;

s:=s+s*0.14;

until s>=24;

label1.Caption:='Спортсмен пробежит больше 24км на '+IntTOStr(i)+' день';

end;

end.

Тестирование программы.

«Спортсмен пробежит больше 24 км на 6-ой день».

Страницы: 1, 2