VPF::цикл с шагом 0.1 - Форум программистов

Slawanix

Дата 21.1.2005, 02:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 177
Регистрация: 29.7.2004
Где: г. Великие Луки

Репутация: нет
Всего: 1

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

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

--------------------

моск кипит

sergejzr

Дата 21.1.2005, 02:34 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 1
Всего: 360

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

Код


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

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

mvdr

Дата 21.1.2005, 03:15 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 42

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 (ссылка)

(нет голосов)

Загрузка ...

Дмитрий Копытин

Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва

Репутация: 6
Всего: 137

Кхм-кхм...

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

Код

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);

Это сообщение отредактировал(а) dm9 - 21.1.2005, 03:36

mvdr

Дата 21.1.2005, 03:37 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 42

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

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

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

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Alex

Дата 21.1.2005, 07:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

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

--------------------

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

Slawanix

Дата 21.1.2005, 11:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 177
Регистрация: 29.7.2004
Где: г. Великие Луки

Репутация: нет
Всего: 1

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

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

--------------------

моск кипит

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »