Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Ксения19
1 / 1 / 0
Регистрация: 16.04.2010
Сообщений: 18
#1

Обработка числовой последовательности - Delphi

24.04.2010, 16:16. Просмотров 382. Ответов 0
Метки нет (Все метки)

Задание:
Найти min из всех членов последовательности(все расчеты блок-схему и само задание) помогите пожалуйста
Вот программа,но она у меня маленько не работает,не знаю почему.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,math;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Edit5: TEdit;
    procedure Button1Click(Sender: TObject);
  private
   function func(x:integer;p:integer;k:integer) : real;
    { Private declarations }
  public
    { Public declarations }
  end;
var
p,k,a,b,c,d,x0,h:integer;
  Form1: TForm1;
implementation
 
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); var 
x,i,m:integer; 
count:single;
temp:real;
begin
h:= strtoint(edit5.text);
m:= strtoint(edit6.text);
a:=strtoint(edit1.text); 
b:=strtoint(edit2.text); 
c:=strtoint(edit3.text); 
d:=strtoint(edit4.text); 
x0:= strtoint(edit7.text);
k:= strtoint(edit8.text);
if a>b then if  a>c then if  a>d then 
p:=a else//p равно а
if b>a then if  b>c then if  b>d then
p:=b else//p равно b
if c>b then if c>a then if c>d then
p:=c else
if d>a then if  d>c then if  d>b then
p:=d; 
x:=10;
count:=-1; 
temp:=count;
for k:=2 to n do;
begin
x:=x0+(i-1)*h;
temp:=temp*func(x,p,i);
count:=Min(count,temp);
end;
label1.Caption:=floattostr(count); 
end;
function Tform1.func(x:integer;p:integer;k:integer) : real;
begin
func:=p/x*(3*k-3)/(2*k-2); 
end;
end.
расчеты и блок-схему я вложила в файл...
помогите...
0
Вложения
Тип файла: zip Задание.zip (224.8 Кб, 11 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2010, 16:16
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Обработка числовой последовательности (Delphi):

обработка числовой последовательности - Delphi
помогите пожалуйста написать программу для подсчета суммы отрицательных членов, где формула общего члена ак= 1/р; где р=р0+(I-1)h,...

Обработка текстовой и числовой информации в файлах - Delphi
Помогите пожалуйста,не могу через файлы сделать. Необходимо разработать программу позволяющую производить обработку текстовой и числовой...

Сортировка числовой последовательности по возрастанию - Delphi
3) разработать программу, сортировки числовой последовательности по возрастанию( убыванию) а)метода пузырька Б) метода простых вставок В)...

Разработать программу поиска номера максимального элемента в числовой последовательности с разными элементами - Delphi
В визуальной среде программирование: 1) Разработать программу поиска номера элемента с заданным значением в не упорядочной числовой...

Обработка последовательности символов - Delphi
Задача:Вывести на экран первое слово текста, если оно начинается с заданного символа. (нужна программа на Delphi) Заранее спасибо.

На числовой прямой покрасили n отрезков. Найти длину окрашенной части числовой прямой - Delphi
На числовой прямой покрасили n отрезков. Известны координаты левого и правого концов каждого отрезка li и ri. Найти длину окрашенной...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2010, 16:16
Привет! Вот еще темы с ответами:

По заданной формуле члена последовательности с номером k найти сумму первых n членов последовательности - Delphi
Помогите, пожалуйста, с решением. По заданной формуле члена последовательности с номером k найти сумму первых n членов последовательности...

Числовой ряд - Delphi
Привет всем. Задача такая: дан общий член числового ряда a:=((3^n)*n!)/(2n)! и некоторое число eps. Нужно сосчитать сумму тех членов ряда,...

Числовой тип данных - Delphi
я в программе использую тип данных одной из переменных - Real. но в один момент у меня происходит переполнение.. слишком большая целая...

Задан числовой массив a[50]... - Delphi
Помогите решить Задан числовой массив a. Определить, каких элементов больше в этом массиве: положительных или отрицательных.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru