Циклы

[Mr.KOHCEPBATOP]

1. Найти все трицифрови числа, равные сумме кубов своих цифр.
2. Найти Z = (h +3) (h +2.8) (h +2.6) (h +2.4 ).....( h +1).

[JUDAS]

задача 1

program Project1;
var i, a1,a2,a3 : integer;
begin
 for i:=100 to 999 do
 begin
   a1:= i div 100;
   a2:= (i-a1*100) div 10;
   a3:= i mod 10;
   if a1*a1*a1+a2*a2*a2+a3*a3*a3=i then
   writeln(i);
 end;
end.

задача 2

program Project2;
var Z,h,v : double;
begin
 writeln('введите h '); read (h);
 v:=3;  
 Z:=1;
 while v>=1 do
 begin
   z:=z*(h+v);
   v:=v-0.2;
 end;
 writeln('Z= ',z:6:2);
end.

[TinMan]

JUDAS, посмотри-ка сюда..
Вот протокол работы твоего кода (задача 2) с вставленной печатью параметра v перед вычислением произведения:

Running "d:\...\111005_JUDAS.exe "
введите h
1
 3.00000000000000E+000
 2.80000000000000E+000
 2.60000000000000E+000
 2.40000000000000E+000
 2.20000000000000E+000
 2.00000000000000E+000
 1.80000000000000E+000
 1.60000000000000E+000
 1.40000000000000E+000
 1.20000000000000E+000
Z= 68653.32

Замечаешь ошибку? Значения 1.0 в списке нет, до него не дошло.
Никогда нельзя сравнивать действительные переменные ТОЧНО. Обязательно нужно учитывать ошибки вычислений. Я недавно уже писал тут по этому поводу, поищи.

В данном случае (вычисления с шагом по действительной пременной) я рекомендую в условии окончания использовать конечное значение плюс половина шага:

 while v>0.9 do

Число 0.9 получилось так: 1 - 0.2/2
Успехов ).

[Вадим Мошев]

Замечаешь ошибку? Значения 1.0 в списке нет, до него не дошло.
Никогда нельзя сравнивать действительные переменные ТОЧНО. Обязательно нужно учитывать ошибки вычислений. Я недавно уже писал тут по этому поводу, поищи.

В данном случае (вычисления с шагом по действительной пременной) я рекомендую в условии окончания использовать конечное значение плюс половина шага:

Причиной тому является то, что все числа в компьютере представляются в двоичной системе счисления (что общеизвестно). А при работе с дробными числами в двоичной системе счисления иногда может возникнуть ситуация, что результат будет нельзя будет записать полностью, поскольку дробь может получится бесконечной. При усечении (или округлении) появляются ошибки. Виду этого результатом сравнения двух действительных числе на равенство чуть ли не всегда будет ЛОЖЬ, даже если эти числа равны.

Кстати, добавлю, что вторую задачу можно решить с помощью цикла FOR

[TinMan]

Сообщение от Вадим Мошев

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

Вадим.. скажи - ты правда думаешь, что если бы компьютеры были троичными, или там десятичными (на 3 или 10 уровнях сигнала, или еще как-то..), то этой проблемы бы не было?..

[JUDAS]

JUDAS, посмотри-ка сюда..

while v>=1 do
 begin
   v:=v-0.2;
 end;

Посмотри внимательней сам и старайся копировать код с форума а не набирать с клавиатуры делая ошибки
----
Пробовал на 701-м Паскале - тот же результат.
П.С. я обьявлял вещественные как double, а не как real. Может изза этого у тебя и ошибка
сопроцессор оперирует с extended и как альтернатива с double, остальные вещественные типы имеют свойство "сокращатся" тем или иным транслятором до какой то конкретной точности.
П.П.С. твой совет, умесен при сравнении результата n-ного ряда когда delta ==> 0 или когда задача требует определённой точности. Также, такой эффект проявляется в компиляторах конца 80-х годов, на которые подсаживают проеподы своих студентов исключительно потому, что новые технологии и среды разработки им впадлу изучать.
Поэтому на форуме имеется этот раздел, и подавляющее большинство начинающих пишут на Досовских версиях Паскаля.

[TinMan]

JUDAS, я тебе указал на твою ошибку и объяснил ее причины. Это серьезная ошибка, и особенно в таком вот случае. Каким образом реагировать на мою помощь - это твой вопрос. Можешь считать, что я на тебя наезжаю.
Удачи тебе.

P.S.
странно даже - ты правда думаешь, что я руками набираю?..

Фу-ты.. совсем с тобой крыша похала.. даже не заметил, что ты выводишь v после прибавления. А я ведь специально в том посте выделил болдом..
Короче, посмотри ВНИМАТЕЛЬНО. В твоей картинк е есть все та же ошибка. Правильный ответ
Z= 137306.64

[Serge_Bliznykov]

JUDAS
я не знаю, кто прав, кто виноват. сейчас голова другим забита..

просто хочу отметить, что Вы невнимательно прочитали текст сообщения

Сообщение от TinMan

Вот протокол работы твоего кода (задача 2) с вставленной печатью параметра v перед вычислением произведения:

а у Вас в примере - после!

[TinMan]

Серж, спасибо за поддержку.
Это, конечно, удачно вышло, что ошибка воспроизвелась.. Могла и не повториться. Но суть в том, что единственный опровергающий пример - будь он хоть real, хоть single - и все насмарку. И не спасут ни double, ни triple, ни millennium.. Потеря точности - это принципиальная черта вычислительной техники.
Ты постарайся понять это, JUDAS, и учитывать, если ты хочешь продолжать программировать.

[JUDAS]

TinMan скажи что обломался и не знаешь как себя выправдвть. ты писал что:

Никогда нельзя сравнивать действительные переменные ТОЧНО. Обязательно нужно учитывать ошибки вычислений. Я недавно уже писал тут по этому поводу, поищи.

Так вот, подумай сначала что за бред ты написал на досуге, потом советуй.
На последок - сначала сделатй сам чтото, потом лечи других. Ок ?
------------

Потеря точности - это принципиальная черта вычислительной техники.

чтобы игнорировать издержки процессоров конца 80-х, на компиляторах которых вы проверяете код, придумали сопросцессор+расширения XMM, SSE, SSE2 и потомки + кучу команд (опкод) с преффикосм comp, которые сравнивают те самые вещественные значения. Для них число 1.0 и (4.0-3.0) одна и то же субстанция.

П.С. в своём коде ошибку увидел, но форум устроен так, что я не могу поменять местами две строки внутри цикла.