Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
katenbka
0 / 0 / 0
Регистрация: 06.11.2011
Сообщений: 6
#1

классы и синтаксис

19.10.2012, 14:03. Просмотров 682. Ответов 1
Метки нет (Все метки)

не работает мой листинг программы, помогите, пожалуйста, разобраться
Разработать самостоятельно класс математических функций, в который поместить методы для вычисления факториала n!, степени действительного числа хn и любых других математических функций и операций. Применить их для решения следующей задачи:
Найти сумму n слагаемых, значение n определяется с помощью генератора случайных чисел или вводится с клавиатуры.
Вывести на экран результат вычислений.

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
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Math;
 
type
  TSum = class (TObject)
  public
    sum, summa, y1, y2 : Real;
    n, x, i : Integer;
    constructor create;
    function factorial (value : Extended) : Extended;
    function step (x,n : Extended) : Extended;
end;
 
constructor Tsum.create;
begin
  inherited Create;
  write ('Input n: '); Readln(n);
  write ('Input x: '); Readln(x);
end;
 
function TSum.factorial (value : Extended) : Extended;
begin
 if (n = 0) or (n = 1)
   then
   factorial :=1
   else
   factorial := n * factorial(n-1);
end;
 
function TSum.step (x,n : Extended) : Extended;
begin
   if n=0 then step:=1
    else step:=x*step(x,n-1);
end;
 
var s: TSum;
    sum, summa, y1, y2 : Real;
    i : Integer;
    function factorial (value : Extended) : Extended;
    function step (x,n : Extended) : Extended;
begin
  summa :=x;
    i:=1;
    while i < n do
    begin y1 := step(x, i+1);
          y2 := factorial (i+1);
          sum:= summa + sum;
          i := i+1;
    end;
  s:=TSum.create;
  Writeln ('Summa = ', s.summa);
  s.Free;
  readln;
end;
 
end.
0
Миниатюры
классы и синтаксис  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.10.2012, 14:03
Ответы с готовыми решениями:

Классы-синтаксис.
как выглядит синтаксис описания класса в делфи? Если есть возможность то...

Синтаксис
Скажите пожалуйста какая разница между этими двумя примерами программ 1)...

Синтаксис
Какой синтаксис нужно выбрать в программе Notepad++ для более удобного чтения...

синтаксис условия
подскажите пожалуйста почему ругается: procedure TForm1.Button1Click(Sender:...

Синтаксис Delphi 7
Вот никак в интернете не могу найти справочник по синтаксису delphi 7...

1
katenbka
0 / 0 / 0
Регистрация: 06.11.2011
Сообщений: 6
22.10.2012, 10:13  [ТС] #2
Люди!!!! Помогите, пожалуйста! Скоро сдавать, а не знаю как сделать, чтоб верно работала!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.10.2012, 10:13

Синтаксис класса
Не совсем понимаю в каком порядке должно быть. На картинке составлено как я...

Однотипный синтаксис
Работал с функцией Pars, парсил строки с исходных кодов. Но вот сталкнулся с...

Синтаксис и тип переменной
Здравствуйте, возникла проблемка при добавлении процентного значения в базу....


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

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

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