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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.03.2009, 17:16   #1
Alamez
 
Регистрация: 15.03.2009
Сообщений: 8
По умолчанию Ошибка в цикле

Добрый день/вечер. Я в Делфи новичок, и при возникновении ошибки природы которой понять не могу обратился к Вам. Суть вот в чем: надо написать программу которая вычисляет все простые числа от A до B (A и B ввожу сам). Вот часть текста программы:
Цитата:
procedure TForm2.Button3Click(Sender: TObject);
var a, b, d, r, i: real;
begin
a:=StrToFloat(edit1.Text); b:=StrToFloat(edit2.Text);
For i := a to b do
d := 2; // сначала будем делить на два
repeat
r := i mod d;
if r <> 0 {// n не разделилось нацело на d} then
d := d + 1;
until r = 0; // повторять пока не найдено число на n делится без остатка
if d = i then
label3.caption := label3.caption + FloatToStr(i) + ' ';
end;
ругается на выделенную строчку, и пишет такие ошибки:
[Ошибка] Unit2.pas(53): For loop control variable must have ordinal type
[Ошибка] Unit2.pas(56): Operator not applicable to this operand type
[Фатальная Ошибка] Project1.dpr(7): Could not compile used unit 'Unit2.pas'
Что я делаю не так?

P.S. Если написал не в ту тему прошу извинить, ибо у меня уже час ночи, и с программой я сижу с 10

Последний раз редактировалось Alamez; 15.03.2009 в 17:25.
Alamez вне форума Ответить с цитированием
Старый 15.03.2009, 18:11   #2
malevich
Пользователь
 
Аватар для malevich
 
Регистрация: 01.11.2006
Сообщений: 63
По умолчанию

i,a,b должны быть целыми числами (integer)
malevich вне форума Ответить с цитированием
Старый 05.04.2009, 15:12   #3
Alamez
 
Регистрация: 15.03.2009
Сообщений: 8
По умолчанию

В общем спасибо, но этим путем у меня не заладилось, решил по-другому)
Alamez вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Color в цикле Roof Общие вопросы Delphi 8 06.08.2008 15:07
выбор значений в цикле Melok Паскаль, Turbo Pascal, PascalABC.NET 3 15.12.2007 22:56
Редактирование файла в цикле Var17 Общие вопросы Delphi 1 13.12.2007 14:51