VPF::пример - Форум программистов

snake0202

Дата 4.4.2013, 15:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 4.4.2013

Репутация: нет
Всего: нет

помогите разобраться

Код


procedure TForm1.Button1Click(Sender: TObject);
var
r:array[1..40] of real;
    n,j:integer;
I,k,R,D,U,p,m:real;
begin
D:= StrToFloat(Edit1.Text);
p:= StrToFloat(Edit2.Text);
n:= StrToInt(Edit3.Text);
k:=p/100;
U:=(D*k*(1+k)^n)/(r(1+k)^(n-1)) ;
Memo1.Lines.Add('Ежегодная выплата составляет: '+FloatToStr(U));
for j := 1 to n do
begin
I:=D*k;
Memo1.Lines.Add('Величина процентного займа в год:'+FloatToStr(I));
end;

R:=U-I;
Memo1.Lines.Add('Bыплaтa основного долга в год: '+FloatToStr(R));
D:=D -R;
Memo1.Lines.Add('Остаток основного долга в год: '+FloatToStr(D));
end;
end.

Добавлено через 3 минуты и 31 секунду
вот что было в паскале

Код


Program credit_2;
Var 
n, j:integer;
I,k,R,D,U,p,m:real;
begin
writeln ('Введите сумму кредита:'); 
read(D);
writeln ('Введите годовой процент:'); 
read(p);
writeln('Bведите срок выдачи кредита:'); 
read(n); 
k:=p/100;
U:=D*k*(( 1 +k)^n)/(r( 1 +к)^(n-1));
writeln ('Ежегодная выплата составляет:',U:6:2); 
for j:=l to n do
begin
I:=D*k;
writeln ('Величина процентного займа в год ',j);
writeln ('составляет:',1:6:2);
R:=U-I;
writeln('Bыплaтa основного долга в год ',j); 
writeln('cocтaвляeт:',R:6:2);
D:=D-R;
writeln('Остаток основного долга в год ',j);
writeln ('составляет:',D:6:2)
end;
end.

Это сообщение отредактировал(а) snake0202 - 4.4.2013, 15:07

Данкинг

Дата 4.4.2013, 15:23 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

И что не получается?

--------------------

There's nothing left but silent epitaphs.

snake0202

Дата 4.4.2013, 15:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 4.4.2013

Репутация: нет
Всего: нет

в этой строке U:=(D*k*(1+k)^n)/(r(1+k)^(n-1)) ;

Фантом

Дата 4.4.2013, 15:28 (ссылка)

(нет голосов)

Загрузка ...

Вы это прекратите!

Профиль
Группа: Участник Клуба
Сообщений: 1516
Регистрация: 23.3.2008

Репутация: нет
Всего: 49

Цитата(snake0202 @ 4.4.2013, 16:26

)

в этой строке U:=(D*k*(1+k)^n)/(r(1+k)^(n-1)) ;

А что, в Паскале это работало? Вообще-то в нем оператора возведения в степень нет...

snake0202

Дата 4.4.2013, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 4.4.2013

Репутация: нет
Всего: нет

да но в дельфи же есть возведение в степень

Beltar

Дата 4.4.2013, 15:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 627
Регистрация: 11.1.2006

Репутация: 0
Всего: 7

В Delphi есть функция возведения в степень (в BP 7.1 ее ЕМНИП нет, но можно самостоятельно вывести из свойств логарифма), но нет оператора. ^ - во всех известных мне обычных вариантах Паскаля означает работу с указателем, твой код в BP 100% не скомпилируется. Или ты учебный ABC Pascal . NET используешь? Я не помню всех особенностей его синтаксиса, но в .NET языках указателей быть не должно.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile

(с) я, хотя может и нет
Пищущий на C++ мужик. Даже если это мужик сидит в написанном на Delphi и жрущем паскалевскую библиотеку билдере.

Poseidon

Дата 4.4.2013, 15:50 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

В Delphi в степень возводят функцией Power

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »