Помогите допилить до нормального состояния исходник

Страница 1 из 1 1
Модератор форума: Berestovskiy

http://primat.org/publ/8-1-0-405 вот исходник.
Первое:

Code

function normal(s:string):string;
var i11:integer;
Begin
   i11:=1;
   while i11 begin
           ...

методом тыка, добавил это: "<=length(s) do" после "while i11".
Второе:

Quote

while (i3 and (s[i3]='^')) do

тут я просто убрал "i3"
Теперь прога запускается, но график не чертит к сожалению. Помогите допилить пожалуйста.

№1 | Автор: Osatur | 2011-05-30, 19:14 | Изменено: Osatur - Пн, 2011-05-30, 19:16 | Репутация: [ + 0 ]

А сам исходник не работает что-ли?:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№2 | Автор: Berestovskiy | 2011-05-30, 19:50 | Репутация: [ + 211 ]

нет, к сожалению, а так не постил бы здесь тему

№3 | Автор: Osatur | 2011-06-01, 20:12 | Репутация: [ + 0 ]

прикладная математика