Цикл с заданным числом повторений

@Алёнчик · Регистрация: 14.05.2012

Студворк — интернет-сервис помощи студентам

Ребят, привет.... помогите мне создать проект: Дано вещественно число A и целое число N(>0). Вывести 1+A+A^2+A^3+...+A^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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Buttons, Math;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Label3Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var R, N, A :double;
  i:integer;
      begin
    N:=strtoint(Edit1.Text);
    A:=strtoint(Edit2.Text);
    if N<=0 then R:=0 else begin
      R:=1;
      for i:=1to N do
      A:=IntPower(A,N);
      R:=1+A;
      Edit3:=inttostr(R);;
    end;
    end;
 
 
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  close;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text:= ' ';
  Edit2.Text:= ' ';
  Edit3.Text:= ' ';
 
end;
 
end.

Заранее огромное спасибо!!!

@Hrethgir · 09.03.2013, 14:31

в какой строке? наверное при вводе данных? и непонятно что делает строка 59.

Добавлено через 4 минуты
и как вам понимается это выражение: цикл с заданным числом переменных? мною никак

@volvo · 09.03.2013, 16:03

Сообщение от Hretgir

в какой строке?

в 58-ой, наверняка. Второй параметр PowerInt должен иметь тип Integer, а передается - Double. А в Паскале существует неявное преобразование только в одну сторону: Integer->Real, но никак не наоборот.

Сообщение от Алёнчик

Цикл с заданным числом переменных

Скорее всего, цикл с заданным числом повторений

@Алёнчик · 09.03.2013, 17:02 **[ТС]**

Я всё исправила, как Вы мне сказали, но он пишет ошибку в 60 строке. Что мне делать??

@Hrethgir · 09.03.2013, 17:21

выложить тут сообщение о ошибке, как минимум

@Алёнчик · 09.03.2013, 17:56 **[ТС]**

unit1.pas(60,24) Error: Incompatible type for arg no. 1: Got "Real", expected "QWord"
unit1.pas(81) Fatal: There were 1 errors compiling module, stopping

@Hrethgir · 09.03.2013, 18:21

лично я вижу что ошибка связана с строкой 24. а вообще нужно ставить эксперименты, например просто хотя в в ТМемо попорбовать вывести значение. но я не профи. вот если UI вам поможет, я сам ещё нуждаюсь в помощи. если я не получаю ответ опр. время, то я ставлю эксперименты над программой, кодом

@volvo · 09.03.2013, 18:56

Сообщение от Алёнчик

Я всё исправила, как Вы мне сказали

Я вообще-то ничего не говорил, я просто объяснил, в чем ошибка. Если можно - полный текст "исправленной" программы приведите.

@Алёнчик · 17.03.2013, 12:58 **[ТС]**

Помогите, пожалуйста правильно составить рекуррентную формулу для программы. Я нашла ошибку, но считает не правильно...

@Hrethgir · 17.03.2013, 22:10

Pascal
1
2
59 R=R+A;
Edit3:=inttostr(R);

или я чего-то не понял, или откуда у вас такие ошибки...

Добавлено через 6 минут
в коде после 1 идеёт номер строки 59, после 2 должно быть 60. движок форума не понимает нумерацию строк
59 R=R+A;
60 Edit3:=inttostr(R);

Добавлено через 16 минут
и вообще 60 строку лучше вынести за цикл, не нужна она в цикле, только мельтешню создавать будет

@Алёнчик · 17.03.2013, 22:30 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var S, A :real;
  i, N:integer;
      begin
    N:=strtoint(Edit1.Text);
    A:=strtofloat(Edit2.Text);
        if N<=0 then S:=0 else begin
      S:=0;
      for i:=1 to N do
      S:=Power(A,N)+i;
      Edit3.Text:=floattostr(S);
    end;
    end;

Вот, что у меня получилось в конечном итоге, но всё равно считает не правильно, он считает сумму первого и последнего числа в степени. а мне нужно, чтобы он все их считал.
Например, ввожу N=3 и А=3 должно быть: 3^1+3^2+3^3=3+9+27=39, а он мне пишет 30...

@Hrethgir · 18.03.2013, 00:16

S:=Power(A,i)+S;
был не внимателен, извиняюсь. да и вообще в код почти не вникал, бегло, да и не во что вникать как показалось, код прост. откуда вы такой код берёте, точнее ошибки?
вынесете эту строку за цикл Edit3.Text:=floattostr(S);

Добавлено через 17 минут
стоп

Добавлено через 19 минут
Оператор цикла с параметром.
Иногда заранее точно известно, сколько раз должно быть выполнено опре-деленное действие. Для задач такого типа в языке Паскаль, имеется оператор
цикла с параметром. Этот оператор имеет вид:
for переменная:= выражение 1 to выражение 2 do оператор;
где for, to, do – служебные слова; переменная- переменная целого типа,
называемая индексом или параметром цикла.
Выражение 1, выражение 2 – арифметические выражения целого типа, т.е.
значения выражений должны быть целыми;
оператор – простой или составной оператор.
Для того чтобы оператор цикла выполнялся хотя бы один раз, значение
выражения 1 должно быть меньше или равно значению выражения 2
то есть если N отрицательное, то вот это уже не пойдёт

Pascal
1
2
if N<=0 then S:=0
for i:=1 to N do

нужно усложнять код, логическую переменную вводить и условие с её проверкой, если отрицательное N то вообще программа не так. и вообще она не так, даже для положительных N

Добавлено через 27 минут
для целых N

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var S, A :real;
  i, N:integer;
      begin
    N:=strtoint(Edit1.Text);
    A:=strtofloat(Edit2.Text);
      for i:=2 to N do
        begin
        S:=S+Power(A,i);
        end;
        S=S+A+1;
        Edit3.Text:=floattostr(S);
    end;

может я где-то и ошибся немного, может оператор цикла может считать и в минуса, вряд-ли конечно, для отрицательных чисел N вообще отдельная история

Добавлено через 7 минут
для отрицательных чисел я сегодня точно ничего рассматривать не буду. этот код не для целых, для положительных, прошу прощения

Добавлено через 9 минут
и то это правильно, если Power(A,i);-это возведение в степень, это я так чисто догадался, у меня такого нигде не написано вроде

@volvo · 18.03.2013, 02:38

Здесь вообще Power - как собаке пятая нога, всё прекрасно делается без него, и с положительными A и с отрицательными:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
var
  i, n : Integer;
  A, R, s : Double;
begin
  n := StrToInt(Edit1.Text);
  A := StrToFloat(Edit2.Text);
  R := 1;
  s := 0;
  for i := 0 to n do
  begin
    s := s + R;
    r := R * A;
  end;
  Edit3.Text := FloatToStr(s);
end;

Сообщение от Алёнчик

ввожу N=3 и А=3 должно быть: 3^1+3^2+3^3=3+9+27=39

Не 39, а 40, там суммирование с 1-цы начинается, ибо нулевая степень числа - всегда единица.

@Hrethgir · 18.03.2013, 18:35

для кого секрет, что каждое следующее возведение в степень-умножение предыдущего результата умножения? ваш вариант лучше в этом случае или во всех? про свой я молчу-мой-это так-комменты нуба. Power не возводит в степень отрицательные числа? вы, как-то, этот момент не прокомментировали.

Добавлено через 11 минут
к тому-же, в выражении есть знак +, при вводе отрицательного числа A, на мой взгляд в вашем алгоритме, и в изначальном даст разные результаты. ведь сложить отрицательное и положительное число-не сложить их модули

. это так, комменты нуба и бредоносца

. не заостряйте на моих сообщениях внимания. сообщение выдано на вскидку

Добавлено через 9 минут
впрочем этот знак есть в 12-ой строке. мои домыслы напрасны.

Добавлено через 4 минуты
а вообще подобное выражение, с отрицательным аргументом числа A имеет практическое применение? вообще возведение в степень отрицательных имеет практическое применение в жизни? или это чтобы было? я не язвлю, не в моих правилах возвышаться, мне серьёзно интересно. с положительным, смею предположить, имеет. а с атрицательным? возведение в степень может тоже имеет, в чём я правда сомневаюсь сильно, а вот подобное выражение ...

Добавлено через 5 минут
.ведь при вводе отрицательного числа знак плюс на минус не меняется в выражении. и какового может быть тогда практическое применение выражения с отрицательным числом? мне просто интересно знать, возможно пригодится

@volvo · 18.03.2013, 18:55

Мне просто интересно, зачем нужен тяжеловесный вызов Power там, где гораздо проще обойтись без него? Одно дело, когда надо вычислить один раз степень какого-то числа, и совсем другое - если надо делать это в цикле, и на каждой итерации еще что-то приходится делать с результатами (в данном случае - суммировать их).

Сообщение от Hretgir

а вообще подобное выражение, с отрицательным аргументом числа A имеет практическое применение?

Вообще - задача программиста - не искать смысл жизни, а решать поставленную перед ним задачу. Если тот, кто ее поставил - считает, что надо работать только с положительными числами - он ставит подобное ограничение. Если ограничения нет - значит надо сделать так, чтобы работать можно было с любыми данными. В конце концов, "кто платит - тот и заказывает музыку". И если ты пойдешь к заказчику со своим потоком сознания, ибо он просто укажет тебе на дверь (без оплаты) и возьмет другого человека, который сделает то, что нужно...

@Hrethgir · 18.03.2013, 20:24

а я смысл жизни не ищу, я ищу знания, которые в ней можно применить

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

Добавлено через 1 час 13 минут
а нет, не скудно, разбросано, а так всё есть вроде. извиняюсь.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Hrethgir 421 / 143 / 3 Регистрация: 25.01.2012 Сообщений: 6,206 Записей в блоге: 176
	09.03.2013, 14:31
	в какой строке? наверное при вводе данных? и непонятно что делает строка 59. Добавлено через 4 минуты и как вам понимается это выражение: цикл с заданным числом переменных? мною никак 0

@Алёнчик 4 / 4 / 0 Регистрация: 14.05.2012 Сообщений: 116
	09.03.2013, 17:02 [ТС]
	Я всё исправила, как Вы мне сказали, но он пишет ошибку в 60 строке. Что мне делать?? 0

@Hrethgir 421 / 143 / 3 Регистрация: 25.01.2012 Сообщений: 6,206 Записей в блоге: 176
	09.03.2013, 17:21
	выложить тут сообщение о ошибке, как минимум 0

@Алёнчик 4 / 4 / 0 Регистрация: 14.05.2012 Сообщений: 116
	09.03.2013, 17:56 [ТС]
	unit1.pas(60,24) Error: Incompatible type for arg no. 1: Got "Real", expected "QWord" unit1.pas(81) Fatal: There were 1 errors compiling module, stopping 0

@Hrethgir 421 / 143 / 3 Регистрация: 25.01.2012 Сообщений: 6,206 Записей в блоге: 176
	09.03.2013, 18:21
	лично я вижу что ошибка связана с строкой 24. а вообще нужно ставить эксперименты, например просто хотя в в ТМемо попорбовать вывести значение. но я не профи. вот если UI вам поможет, я сам ещё нуждаюсь в помощи. если я не получаю ответ опр. время, то я ставлю эксперименты над программой, кодом 0

@Алёнчик 4 / 4 / 0 Регистрация: 14.05.2012 Сообщений: 116
	17.03.2013, 12:58 [ТС]
	Помогите, пожалуйста правильно составить рекуррентную формулу для программы. Я нашла ошибку, но считает не правильно... 0

@Hrethgir 421 / 143 / 3 Регистрация: 25.01.2012 Сообщений: 6,206 Записей в блоге: 176
	18.03.2013, 18:35
	для кого секрет, что каждое следующее возведение в степень-умножение предыдущего результата умножения? ваш вариант лучше в этом случае или во всех? про свой я молчу-мой-это так-комменты нуба. Power не возводит в степень отрицательные числа? вы, как-то, этот момент не прокомментировали. Добавлено через 11 минут к тому-же, в выражении есть знак +, при вводе отрицательного числа A, на мой взгляд в вашем алгоритме, и в изначальном даст разные результаты. ведь сложить отрицательное и положительное число-не сложить их модули . это так, комменты нуба и бредоносца . не заостряйте на моих сообщениях внимания. сообщение выдано на вскидку Добавлено через 9 минут впрочем этот знак есть в 12-ой строке. мои домыслы напрасны. Добавлено через 4 минуты а вообще подобное выражение, с отрицательным аргументом числа A имеет практическое применение? вообще возведение в степень отрицательных имеет практическое применение в жизни? или это чтобы было? я не язвлю, не в моих правилах возвышаться, мне серьёзно интересно. с положительным, смею предположить, имеет. а с атрицательным? возведение в степень может тоже имеет, в чём я правда сомневаюсь сильно, а вот подобное выражение ... Добавлено через 5 минут .ведь при вводе отрицательного числа знак плюс на минус не меняется в выражении. и какового может быть тогда практическое применение выражения с отрицательным числом? мне просто интересно знать, возможно пригодится 0

@Hrethgir 421 / 143 / 3 Регистрация: 25.01.2012 Сообщений: 6,206 Записей в блоге: 176
	18.03.2013, 20:24
	а я смысл жизни не ищу, я ищу знания, которые в ней можно применить , и я не программист. UI, вы не могли бы ответить мне на вопросы по записям? книги очень скудно излагают материал. мне нужно как-то брать информацию из записей относительно их индекса. и уметь вернуть из записи с вариантами тип варианта-имя записи варианта в поле, потому-что содержимое может совпадать. Добавлено через 1 час 13 минут а нет, не скудно, разбросано, а так всё есть вроде. извиняюсь. 0