Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > цикл с шагом 0.1

Автор: Slawanix 21.1.2005, 02:26

Доброго времени суток!
Дана к экзамену простая задачка, но уже 2:00 ночи и нифига не соображаю а с утра экзамен.
Задача такая:
Составьте программу двумя способами: с использованием операторов цикла с предусловием и постусловием.
Вычислить:
y=sin1+sin1.1+sin1.2+…+sin2

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

Автор: sergejzr 21.1.2005, 02:34

У меня синтаксис дельфи на данный момент вылетел из головы, но смысл такой:

Код


for i:=10 to 20
y+=sin(i/10.)

Автор: mvdr 21.1.2005, 03:15

sergej.z читай внимательно условие!!!

Цитата(Slawanix @ 21.1.2005, 02:26)

с использованием операторов цикла с предусловием и постусловием

Код


x:=1;
y:=0;
repeat
y:=y+sin(x);
x:=x+0.1;
until x<2.1;

и, соответственно,

Код


x:=1;
y:=0;
while x<2.1 do
y:=y+sin(x);
x:=x+0.1;

Добавлено @ 03:17
вроде так,

Автор: dm9 21.1.2005, 03:33

Кхм-кхм...

С постусловием.

Код

x:=1;
y:=0;
repeat
   y:=y+sin(x);
   x:=x+0.1;
until x>2.0;

С предусловием.

Код

x:=1;
y:=0;
while x<2.1 do
begin
   y:=y+sin(x);
   x:=x+0.1;
end;

Добавлено @ 03:35
Но лучше всего как написал Сергей, без условия :-))))))))))))))

Код

y := 0;
for i := 10 to 20 do
   y := y + sin(i/10);

Автор: mvdr 21.1.2005, 03:37

Цитата(Slawanix @ 21.1.2005, 02:26)

Задача такая:
Составьте программу двумя способами: с использованием операторов цикла с предусловием и постусловием.
Вычислить:
y=sin1+sin1.1+sin1.2+…+sin2

главное - идею передал smile

Автор: Alex 21.1.2005, 07:21

http://vingrad.ru/VF-DLP-000172

Автор: Slawanix 21.1.2005, 11:14

Спасибо всем, экзамен сдал. Главное вовремя ответили. Я очень Вам всем благодарен smile

.
С уважением, Slawanix.