| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Страницы:   < 1 2 >

Лиля ©   (2006-10-24 20:03:00) 

Текст задания
Вводятся числа a и b. Найти сумму таких чисел в диапазоне [a;b], которые являются точными квадратами.

---

Лиля   (2006-10-24 21:44:00) [21]

> Если в [9] заменить в одном месте i на x, то получишь решение
> своей задачи.
> Для лучшего понимания этой программы напиши к ней комментарии
> и обязательно вышли сюда. Будем тебя учить.

procedure TForm1.Button1Click(Sender: TObject);
var A, B, i, x, sum: integer;
begin A:= StrToInt(Edit1.Text);
     B:= StrToInt(Edit2.Text);
     i:=0;
     x:=0;
     while (x<=B)do
     begin
     if (x>=A)then
     sum:=sum+i;
     inc(i);
     x:=i*i;

    Label1.Caption:=IntToStr(sum)
       end;

        end.
Всё равно ошибки выдаёт

---

Наиль   (2006-10-24 21:30:00) [22]

Подсказка:
Если в [9] заменить в одном месте i на x, то получишь решение своей задачи.
Для лучшего понимания этой программы напиши к ней комментарии и обязательно вышли сюда. Будем тебя учить.

---

Лиля   (2006-10-24 21:07:00) [23]

> Ты хочешь научиться или сдать? От этого зависит ответ -
> дать примерный код или только подсказку.

Хочу научиться! Можно подсказку?

---

Leonid Troyanovsky   (2006-10-24 21:06:00) [24]

> Лиля   (24.10.06 20:39) [7]

> Читаю, но я только учусь и слабо понимаю, что нужно делать.



 sum:=0;
 i:= 0;
 x:= 0;
 while (x <= B) do
   begin
     if (x >= A) then
       sum:=sum+i;
     inc(i);
     x := i * i;
  end;


--
Regards, LVT.

---

TUser   (2006-10-24 21:04:00) [25]

Ты хочешь научиться или сдать? От этого зависит ответ - дать примерный код или только подсказку.

---

Лиля   (2006-10-24 20:39:00) [26]

> Варнинги читала? Как должен работать этот код (по строчкам)?
>  У тебя х нигнде не инициализирован, а ты дцмаешь, что будут
> перебраны все значения. Это не так.

Читаю, но я только учусь и слабо понимаю, что нужно делать.

---

TUser   (2006-10-24 20:33:00) [27]

Варнинги читала? Как должен работать этот код (по строчкам)? У тебя х нигнде не инициализирован, а ты дцмаешь, что будут перебраны все значения. Это не так.

---

Лиля   (2006-10-24 20:26:00) [28]

> Можно пример?

procedure TForm1.Button1Click(Sender: TObject);
var A, B, i, x, sum: integer;
begin A:= StrToInt(Edit1.Text);
     B:= StrToInt(Edit2.Text);
     i:=sqrt(x)
      sum:=o
for i:=A to B do

     if i= x  then
     sum:=sum+i;
      Label1. Caption:=IntToStr(Sum)
       end;
end.

> В строке 17. Числа - только целые?

Все числа целые.


> Числа - только целые?

---

TUser   (2006-10-24 20:23:00) [29]

> Ошибка где-то...

В строке 17. Числа - только целые?

---

Leonid Troyanovsky   (2006-10-24 20:23:00) [30]

> Лиля   (24.10.06 20:18) [2]

> > А x - это приблизительный квадрат от sqrt(x)?

> Да.


Можно пример?


> Я написала код, но у меня не правильно считает. Ошибка где-
> то...


А.. Ну, это-то понятно.
В 17 строке ошибка.

--
Regards, LVT.

---

Лиля   (2006-10-24 20:18:00) [31]

> А x - это приблизительный квадрат от sqrt(x)?

Да.
Я написала код, но у меня не правильно считает. Ошибка где-то...

---

Leonid Troyanovsky   (2006-10-24 20:14:00) [32]

> Лиля   (24.10.06 20:03)  

> Вводятся числа a и b. Найти сумму таких чисел в диапазоне
> [a;b], которые являются точными квадратами.


А x - это приблизительный квадрат от sqrt(x)?

--
Regards, LVT.

---

Страницы:   < 1 2 >

Наверх