Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2002.06.27;
Скачать: [xml.tar.bz2];

Вниз

У меня наверное ошибка в ДНК?   Найти похожие ветки 

 
Sergo   (2002-05-24 09:34) [0]

Суть такая, вот прога:
program kurs;
i:integer;
A,Y: array [0..20] of real;
begin
for i:=1 to 20 do
Y[i]:=i;
A[i]:=(sgr(Y[i])*Y[i])-sqr(Y[i])+5*Y[i]-10;
При выводе массива А выводится 20 нулей и последним некое число. Я точно знаю, что такого быть не может, а где не правильно не пойму.


 
MBo   (2002-05-24 09:44) [1]

наверно, неправильно в выводе массива


 
Sergo   (2002-05-24 09:46) [2]

Вывожу вот так:
for i:=0 to 20 do
writeln (A[i]:8:2);
end;


 
wicked   (2002-05-24 09:48) [3]

хехе... :) цитирую с отступами:

for i:=1 to 20 do
Y[i]:=i;
A[i]:=(sgr(Y[i])*Y[i])-sqr(Y[i])+5*Y[i]-10;

под циклом for у тебя выполняется только Y[i]:=i;, а A[i] вычисляется только один раз - в конце... :)


 
wicked   (2002-05-24 09:49) [4]

может надо так?

> for i:=1 to 20 do begin
> Y[i]:=i;
> A[i]:=(sgr(Y[i])*Y[i])-sqr(Y[i])+5*Y[i]-10;
> end;


PS всем - ребята, ФОРМАТИРУЙТЕ СВОЙ КОД... это не только красиво, но и полезно... :)


 
Praco   (2002-05-24 09:50) [5]

Дык, напиши, как ты его выводишь.
Кстати, зачем нужен массив Y?


 
Lord Warlock   (2002-05-24 09:52) [6]


> wicked © (24.05.02 09:49)
написал верное решение, не было begin...end
больше обсуждать нечего




 
Sergo   (2002-05-24 09:56) [7]

Спасибо!!!
Все говорит о том, что пить надо МЕНЬШЕ!!!


 
vopros   (2002-05-24 10:05) [8]

И еще в цикле где присваеваеш с единицы начинаешь..а где выводишь..с 0.


 
Sergo   (2002-05-24 10:11) [9]

>vopros ©
Это просто я ошибся когда писал :))
Вчера отмечали день моей специальности, вот и руки трясуться и голова ни хрена не соображает :))


 
Anatoly Podgoretsky   (2002-05-24 10:45) [10]

A[i]:=(sgr(Y[i])*Y[i])-sqr(Y[i])+5*Y[i]-10;
Вот здесь I имет случайное значение, зависящие от версии компилятора.
И еще смущает, что массив от 0 до 20Б а цикл от 1 до 20
И куда выводится и как выводится совсем неясно.


 
Sergo   (2002-05-24 10:49) [11]

>Anatoly Podgoretsky ©
for i:=1 to 20 do begin
считать недействительным я просто ошибся когда набирал этот вопрос :))
В смысле i случайное значение? Разве оно не принимает значение указанное в цикле?




 
vopros   (2002-05-24 10:51) [12]

>Sergo © (24.05.02 10:49)
Примет значение 20. Поетому и выводил тебе последним некое число.


 
Sergo   (2002-05-24 10:56) [13]

>vopros ©
Я хотел спросить у >Anatoly Podgoretsky © какого рода эта сучайность?


 
Alx2   (2002-05-24 11:41) [14]

Случайность эта обуславливается особенностями компилятора и оптимизатора кода. Но в данном примере значение i практически детерминированно :)



Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2002.06.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.006 c
14-89016
allrussia
2002-05-21 09:03
2002.06.27
COBMECTuMOCTb


1-88878
Сатир
2002-06-13 15:57
2002.06.27
class function


1-88826
tamerlan311
2002-06-17 11:07
2002.06.27
Помогите создать безхозный процесс


1-88802
abitur
2002-06-15 16:26
2002.06.27
Запись в файл(Глюки?)


1-88818
lipskiy
2002-06-16 01:17
2002.06.27
Как узнать место в коде, где происходит исключение?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский