random/randomize

[Ya_Aston]

помогите пожалуйста сделать задачу... слишком уж она стремная.... с помощью команд random и randomize

[Niro]

А что там надо делать через random?
Решить задачу могу помочь за wmr

[Mad_Cat]

a:=-1;b:=3; n:=40;h:=(b-a)/n;
for i:=1 to n do begin
y:=1/(a*a-a+1)
writeln(a:6:3,y:6:3);
a:=a+h;
end;

[Niro]

Единственная поправка

a:=a+i*h;

и i начинаем с нуля

[Ya_Aston]

спасибо вам конечно большое, но там надо еще как то в колнки вывести... хз как....

[andrewpalkin]

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

спасибо вам конечно большое, но там надо еще как то в колнки вывести... хз как....

А ты на лекциях вообще что делал/а ? Ты хоть что-то , сам/а можешь написать ?

[Mad_Cat]

2 Niro

a:=a+i*h;

а чего тупите то???
все у меня верно написано
проверьте!
по вашему что будет на 3-ей итерации? чему буит равно a?
у меня

1-a=-1
2-a=-0.9
3-a=-0.8
4-ф=-0.7

у вас

0- a=-1,
1- a=-0.9
2-a=-0,7 // куда -0.8 девалось
3-a=-0.4// ---где -0.5 и -0.6

надо еще как то в колнки вывести

а в столбики он и так выводит)

[Ya_Aston]

andrewpalkin
если не хочешь помогать, тогда вообще не заходи в тему.

[andrewpalkin]

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

andrewpalkin
если не хочешь помогать, тогда вообще не заходи в тему.

Это не помощь , это называется сделайте за меня

Да и еще , в какие темы мне заходить я решу сам !