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

> 

Начальные контакты ТОЛЬКО через личку!!

 
 Ответить  Открыть новую тему 
> Простенька задача на паскале, Написать программу для вычисления заданного выражения и вывода на экра
сообщение
Сообщение #1


Гость






Написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор

оператор: repeat

выражение: -0,5 + 0,7 – 0,9 +...+ 0,23

Оплата Webmoney
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Начинающий


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

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


Цитата(Ausar @ 17.06.2007 8:15) *

выражение: -0,5 + 0,7 – 0,9 +...+ 0,23


Ausar, по-моему ты неправильно записал условие.

Вот код для вычисление суммы последовательности "-0,5 + 0,7 – 0,9 +...+ 2,3":


var
i,d,s:real;
begin
s:=0;
i:=-0.5;
d:=0.8;
repeat
s:=s+i;
d:=d+0.4;
i:=i+d*(i/abs(i))*(-1);
until round(i*10)/10=2.3;
s:=s+i;
writeln(s:5:2);
readln;
end.



Сообщение отредактировано: Urnix -


--------------------
Интернет, как смерть - забирает лучших...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Цитата(Urnix @ 17.06.2007 10:53) *

Ausar, по-моему ты неправильно записал условие.

Вот код для вычисление суммы последовательности "-0,5 + 0,7 – 0,9 +...+ 2,3":


var
i,d,s:real;
begin
s:=0;
i:=-0.5;
d:=0.8;
repeat
s:=s+i;
d:=d+0.4;
i:=i+d*(i/abs(i))*(-1);
until round(i*10)/10=2.3;
s:=s+i;
writeln(s:5:2);
readln;
end.





Нет условие верно, еще раз проверил. Спасибо за вариант решения. Вот и я сижу и бъюсь над тем что 0,23 никак понять не могу. Но условие однозначно верно.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

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


ну добавь что, пока число больше 1, его надо делить на 10.

Добавлено через 34 сек.
и вообще, действительные числа лучше через "=" не сравнивать. может зациклиться.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Начинающий


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

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


Цитата(мисс_граффити @ 17.06.2007 13:43) *

ну добавь что, пока число больше 1, его надо делить на 10.

Добавлено через 34 сек.
и вообще, действительные числа лучше через "=" не сравнивать. может зациклиться.



var
i,d,s:real;
begin
s:=0;
i:=-0.5;
d:=0.8;
repeat
s:=s+i;
d:=d+0.4;
i:=i+d*(i/abs(i))*(-1);
until abs(i)>1;
i:=i/10;
d:=d/10;
repeat
s:=s+i;
d:=d+0.04;
i:=i+d*(i/abs(i))*(-1);
until (i>0.22) and (i<0.24); {round(i*100)/100=0.23;}
s:=s+i;
writeln(s:5:2);
readln;
end.



Так?


--------------------
Интернет, как смерть - забирает лучших...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Да чето не то последовательность на экран не выводитса только sad.gif Прбовл корректировать но без успешно
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






Повторяю еще раз, для того, кому сказанное здесь:
Turbo Pascel Генерация последовательности
непонятно... Вот тут Генерация последовательности чисел по правилу лежит решение задачи, не забрасывай ВСЕ форумы одними и теми же условиями, где задал, там получил ответ...

Копипастить везде и всюду не очень охота...
 К началу страницы 
+ Ответить 

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

 





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