IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Как работает оператор for?
сообщение
Сообщение #1


Гость






Помогите! Завтра экзамен!
Если в задаче установлен шаг, например 3, то как его записать?
Задача: Написать программу для вычисления значений Y=sqrt(Z) при изменении z от 3 до 21 с шагом 3.
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 5)
сообщение
Сообщение #2


Гость






[если правильно понял]
Попробуй так:

Итераций: 21 / 3 = 7
То есть:

procedure TForm1.Button1Click(Sender: TObject);
var
 i, z : integer;
 y : real;
begin
  z:=0;
  for i:=1 to 7 do
  begin
    z:=z+3;
    y:=SQRT(z);
    // ... ... ... ... ... // Вывод результатов...
  end;
end;


Подправь, если что не совпадает...

Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 25

Репутация: -  0  +


или так (так быстрее)
procedure TForm1.Button1Click(Sender: TObject); 
var i: integer;
    y    : real;
begin
  for i:=1 to 7 do
  begin
     y:=SQRT(3*i);
     ... ... ... ... ... // Вывод результатов...
  end;
end;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


Цитата
или так (так быстрее)
Код

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    y    : real;
begin
  for i:=1 to 7 do
  begin
     y:=SQRT(3*i);
     ... ... ... ... ... // Вывод результатов...
  end;
end;

А вот и не прав ;D
Так медленнее...
Объясняю:
в первом случае в цикле будет к значению в регистре прибавлятся 3 и вычислятся корень,
во втором случае к регистер будет умножатся на регистр,
а как известно сложение выполняется намного быстрее чем умножение ;)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Спасибо огромное. Вы мне очень помогли!
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Пионер
**

Группа: Пользователи
Сообщений: 84
Пол: Мужской

Репутация: -  2  +


Так же как и на Паскале!!!!!!


--------------------
* Origin: "It's MY LIFE!!! © Jhon Bon Jovi"
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 19:48
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name