Розробка алгоритмів та програмування різних обчислювальних процесів на мові Delphi

Міністерство освіти і науки Російської Федерації

Федеральне агентство з освіти

Державна освітня установа вищої професійної освіти

«Комсомольський-на-Амурі державний технічний університет»

Факультет комп'ютерних технологій

Кафедра «Інформаційні системи»

ЗВІТ

з розрахунково-графічного завдання

з курсу «Інформатика та програмування" 1 семестр.

Тема: «Розробка алгоритмів та програмування різних обчислювальних процесів на мові Delphi».

Студент групи 9ПІ-1 Шикер С.А.

2010

Варіант № 16

1. Обчислити значення функції Y від довільного X. Провести тестування програми. Дано t = -23,4; d = 12; p = 17,6

2. Дано натуральне n. Обчислити:

3. Дослідити, скільки рішень має система 2-х рівнянь з двома невідомими. У випадку єдиного рішення знайти його за правилом Крамера , Де a, b, c, d, p, q - дійсні числа

4. Дано дійсні числа a, b, e (a> b> 0, e> 0). Послідовності x _1, x _2, ... і y _1, y _2, ... утворені за законом: x ₁ = a, y ₁ = b, x _k = X _{k -1} + y _{k -1;} . Знайти перше x _n таке, що

5. Дано ціле число n, дійсні числа x, e (e> 0, n> = 0). Обчислити з точністю e значення

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

7. У 1985 році врожай ячменю склав 20 ц з га. У середньому кожні 2 роки за рахунок застосування передових агротехнічних прийомів врожай збільшується на 5%. Визначити, через скільки років урожайність досягне 25 ц з га.

8. Переведіть число з десяткової у вісімкову систему числення.

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

Завдання № 1.

Обчислити значення функції Y від довільного X. Провести тестування програми. Дано t = -23,4; d = 12; p = 17,6

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

Проект

Form1

Procedure Button1Click (обчислення)

Математична модель.

Вхідні дані.

Вихідні дані.

Блок-схема.

Опис інтерфейсу.

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Math;

type

TForm1 = class (TForm)

Edit1: TEdit; / / після ввести значення х

Button1: TButton; / / кнопкка Обчислити

Label1: TLabel; / / після вивести значення у

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

{$ R *. dfm}

procedure TForm1.Button1Click (Sender: TObject);

var

x, y: real; / / значення х, у

begin

x: = StrToFloat (Edit1.Text);

if x> 3 then

Label1.Caption: = 'Функція НЕ визначена ';

if (x> = 2) and (x <= 3) then

begin

/ / Отримати вихідні дані

y: = (power (12, 2 / 3) + power (sin (3 * x), 2) + sqrt (12)) / power (x, 4);

Label1.Caption: = FloatToStr (y);

end;

/ / Обчислити значення у

if x <2 then

begin

y: = (-23.4 * power ((x +2.5), 3)-ln (abs (power (x, 3 ))))/( 17.6 +3 * (-23.4));

Label1.Caption: = FloatToStr (y);

end;

end;

end.

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

Завдання № 2.

Дано натуральне n. Обчислити: .

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

Проект

Математична модель.

Вхідні дані.

Вихідні дані.

Блок-схема.

Опис інтерфейсу.

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Math;

type

TForm1 = class (TForm)

Label1: TLabel;

Edit1: TEdit; / / значення n

Label2: TLabel;

Label3: 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

i, r: integer;

p, m, n: real;

begin

n: = strtofloat (Edit1.Text);

p: = 1;

m: = n-Trunc (n); / / повертає цілу частину від числа, отримуємо дробову частину, якщо число введено не ціле

if m = 0 then / / якщо число ціле, то запускається цикл

begin

r: = Trunc (n); / / переводимо число з дійсного типу в ціле

if n> 0 then

begin

for i: = 1 to r do

begin

p: = P * intpower ((1 +1 / i), i);

end;

label3.Caption: = floattostr (p);

end else

label3.Caption: = 'Не задовольняє умові ';

end else

label3.Caption: = 'Не задовольняє умові';

end;

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

Завдання № 4.

Дано дійсні числа a, b, e (a> b> 0, e> 0). Послідовності x _1, x _2, ... і y _1, y _2, ... утворені за законом: x ₁ = a, y ₁ = b, x _k = X _{k -1} + y _{k -1;} . Знайти перше x _n таке, що

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

Проект

Form1

Procedure Button 1 Click (обчислення)

Математична модель

Вхідні дані

Вихідні дані

Блок-схема.

Опис інтерфейсу

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, math;

type

TForm1 = class (TForm)

Edit 1: TEdit; / / після ввести значення x 1

Edit 2: TEdit; / / після ввести значення y 1

Edit 3: TEdit; / / після ввести значення е

Label 1: TLabel; / / поле вивести значення x 1

Label 2: TLabel; / / поле вивести значення y 1

Label 3: TLabel; / / поле вивести значення e

Button 1: TButton; / / кнопка Обчислити

Label 4: 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

/ / Отримати вихідні дані

x 1: = StrToFloat (Edit 1. 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 (xy)> = e);

Label4.Caption: = FloatToStr (x1);

end else

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

end;

end.

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

Завдання № 5.

Дано ціле число n, дійсні числа x, e (e> 0, n> = 0). Обчислити з точністю e значення

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

Математична модель

Вхідні дані.

Вихідні дані.

Блок-схема.

Опис інтерфейсу

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

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 (обчислення)

Математична модель. \

Вхідні дані

Вихідні дані. \

Блок-схема.

Опис інтерфейсу.

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class (TForm)

Button1: TButton; / / кнопка Обчислити

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

Label 1: TLabel; / / поле вивести значення L

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

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

Label 2: TLabel; / / поле вивести значення К

Label 3: 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

Математична модель

Вхідні дані

Вихідні дані

Блок-схема

Опис інтерфейсу

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

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.

Переведіть число з десяткової у вісімкову систему числення.

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

Математична модель.

Вхідні дані.

Вихідні дані.

Блок-схема.

Опис інтерфейсу.

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class (TForm)

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

Button 1: TButton; / / кнопка Обчислити

Label 1: TLabel; / / поле обчислити значення z

Label 2: 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 км?

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

Проект

Математична модель.

Вхідні дані.

Вихідні дані.

Блок-схема.

Опис інтерфейсу.

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

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-ий день».