Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.10.2017, 18:57   #1
IlyaHistorik
 
Регистрация: 17.10.2017
Сообщений: 9
По умолчанию геометрическая прогрессия

Здраствуйте, помогите, пожалуйста, не могу понять в чем проблема, вроде бы написал как я хотел, не могу q вознести в степень по формуле, но не выходит. Не выходит именно на строке с формулой, я выделю ее.
Код:
var q, y: Real;
 b1, bn, n : integer; 
begin
  b1 := StrToInt(Edit1.Text);
  q := StrToFloat(Edit2.Text);
  n := StrToInt(Edit3.Text);
  y := (n-1);
  bn := b1*q^y;
  Edit4.Text := IntToStr(bn);

end;
IlyaHistorik вне форума Ответить с цитированием
Старый 18.10.2017, 19:08   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

А где такой знак арифметической операции нашел в делфи? Для возведения в степень функция есть или в цикле умножай, коль показатель степени целый
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 18.10.2017, 19:16   #3
IlyaHistorik
 
Регистрация: 17.10.2017
Сообщений: 9
Плохо

Так в том то и дело, я не знаю как это сделать..
IlyaHistorik вне форума Ответить с цитированием
Старый 18.10.2017, 19:24   #4
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Цитата:
Сообщение от IlyaHistorik Посмотреть сообщение
Так в том то и дело, я не знаю как это сделать..
Есть функция Power .
Код:
uses Math;
а если бы
Код:
y:Integer;
то можно IntPower

Последний раз редактировалось type_Oleg; 18.10.2017 в 19:27.
type_Oleg вне форума Ответить с цитированием
Старый 18.10.2017, 19:29   #5
IlyaHistorik
 
Регистрация: 17.10.2017
Сообщений: 9
По умолчанию

Спасибо, Math я ввел, думая, что там есть такой символ. И функцией пытался но не понял ее, по этому ща я ее посмотрю и принцип пойму ее и попроубю, спасибо.

Последний раз редактировалось IlyaHistorik; 18.10.2017 в 19:31.
IlyaHistorik вне форума Ответить с цитированием
Старый 18.10.2017, 19:47   #6
IlyaHistorik
 
Регистрация: 17.10.2017
Сообщений: 9
По умолчанию

Ну... ничего не получилось.. Пытаюсь сделать, короче фигня какая-то, и вопрос, можно ли 2 формы сделать в 1 проекте, что бы они запускались как одна программа.
Вот кстатии код, вылазит ошибка "Incompatible 'Integer' and 'Extended'"
Код:
var q, y, g: Real;
 b1, bn, n : integer;
begin
  b1 := StrToInt(Edit1.Text);
  q := StrToFloat(Edit2.Text);
  n := StrToInt(Edit3.Text);
  y := (n-1);
  g := Power(q,y);
  bn := b1*g;
  Edit4.Text := IntToStr(bn);
IlyaHistorik вне форума Ответить с цитированием
Старый 18.10.2017, 20:01   #7
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Цитата:
Сообщение от IlyaHistorik Посмотреть сообщение
вылазит ошибка "Incompatible 'Integer' and 'Extended'"
Если справа от := есть что-то Real, то слева обязательно должно быть Real ( или Double или Extended.
Почитайте про совместимость типов в Паскаль.

А проще - сделайте все переменные Real, зачем вам целые ?
Ну и все StrToFloat (а лучше StrToFloatDef ), FloatToStr
type_Oleg вне форума Ответить с цитированием
Старый 18.10.2017, 20:14   #8
IlyaHistorik
 
Регистрация: 17.10.2017
Сообщений: 9
По умолчанию

Кстатии, а можете посоветовать какую тему из математики 9-10 классов сделать проект, для Малой Академии Наук
IlyaHistorik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi. Геометрическая прогрессия Николая Ленин Помощь студентам 7 25.11.2010 23:07
Вредная геометрическая прогрессия spein JavaScript, Ajax 2 27.06.2010 23:12
Двумерные массивы геометрическая прогрессия денис2007 Паскаль, Turbo Pascal, PascalABC.NET 0 07.06.2010 21:31
Геометрическая прогрессия Владимир_Мар Общие вопросы Delphi 1 27.05.2010 20:12
Геометрическая прогрессия (Delphi) Max_Grinyuk Помощь студентам 2 02.02.2010 07:07