Вниз
Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.009 c
14-89030
MaximatorVeter
2002-05-23 17:47
2002.06.27
Что ещё предстоит сделать программистам?


1-88854
Дельфятник
2002-06-17 17:25
2002.06.27
Можно ли уменьшить размер заголовка TTabSheet, и если да, то как?


1-88799
dimonf
2002-06-16 18:11
2002.06.27
Подскажите, где можно скачать компонент Async Pro v. 3.0 и выше?


14-88996
Esu
2002-05-24 12:41
2002.06.27
Тема девушек становится популярной, так что предлагаю


3-88717
savc
2002-06-01 12:22
2002.06.27
Как в таблицу(заполнененую) добавить новое поле




   Наверх