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

Решение задач с помощью языка программирования Delphi: вычисление значения функции Y от X; систем двух уравнений; прогрессий; последовательностей; вычисление числа с определенной точностью; перевод числа из десятичной в восьмеричную систему счисления.
Краткое сожержание материала:

36

Министерство образования и науки Российской Федерации

Федеральное агентство по образованию

Государственное образовательное учреждение высшего профессионального образования

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

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

Кафедра «Информационные системы»

ОТЧЕТ

по расчетно-графическому заданию

по курсу «Информатика и программирование» 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₁, x₂, … и y₁, y₂, …образованы по закону: 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 (вычисление)

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

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

	Назначение	Тип
t	Константа функции	Вещественный
d	Константа функции	Целый
p	Константа функции	Вещественный
x	Переменная функции	Вещественный

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

	Назначение	Тип
y	Значение функции	Вещественный

Блок-схема.

36

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

Объект.	Свойство.	Устанавливаемое значение.
Label1	Caption	“x”
Label2	Caption	“y”
Edit1	Text	поле ввода значения х
Button1	Caption	кнопка «Вычислисть»
Label3	Caption	поле вывода значения у

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

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.

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

Значение х	Результат
1	19,073669
3	0,0861794
4	Функция неопределенна

Задача №2.

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

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

Проект

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

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

	Назначение.	Тип.
n	Переменная формулы.	Целый.

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

	Назначение.	Тип.
р	Результат вычислений.	Вещественный.

Блок-схема.

36

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

Объект.	Свойство.	Установленное значение.
Label1	Caption	“n”
Label2	Caption	Результат
Edit1	Text	Поле ввода значения n
Button1	Caption	Кнопка Вычислить
Label3	Caption	Поле вывода значения

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

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variant...