VPF::Цикл с шагом или другое решение

Slawanix

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

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

Загрузка ...

Бывалый

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

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

Доброго времени суток!
Дана к экзамену простая задачка, но уже 2:00 ночи и нифига не соображаю smile

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

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

Заранее спасибо.

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

моск кипит

Alex

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

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

Загрузка ...

Эксперт

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

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

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

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

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

Slawanix

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

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

Загрузка ...

Бывалый

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

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

Спасибо, Alex! Тему можно считать закрытой smile

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

моск кипит

Дрюча

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

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 20.1.2005
Где: Delphi & Pasc al

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

А может лучше так:

Код


var
 i:real;
 y:real;
begin
 y:=0;
 i:=1;
 {предусловие}
 while i <= 2 do
  begin
   y:=y + sin(i);
   i:=i + 0,1;
  end;
 <...>
 y:=0;
 i:=1;
 {постусловие}
 repeat
  i:=i + 0,1;
  y:=y + sin(i);
 until i = 2;
end.

Это сообщение отредактировал(а) Дрюча - 21.1.2005, 11:59

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