Помогите переделать код из Basicа для Delphi

[Oksanalis69]

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

Это не ошибки. Это информация для справки мол "Переменная <такая-то> описана. но в программе не применена".

То есть, если я оставлю, программа будет работать?

Какие?

private
{ Private declarations }
public
{ Public declarations }
end;
procedure model1(); //Unsatisfied forward or external declaration: 'model1'
var
Form1: TForm1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas'; //[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

[Stilet]

То есть, если я оставлю, программа будет работать?

Будет, если других ошибок не будет.

procedure model1(); //Unsatisfied forward or external declaration: 'model1'

Напиши:

private
{ Private declarations }
public
{ Public declarations }
procedure model1();
end;

Потом стань курсором на этот procedure model1(); и нажми CTRL+SHIFT+C.
Делфи создаст тело процедуры. В него и кидай ее код.

[Oksanalis69]

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

Будет, если других ошибок не будет.

Напиши:

private
{ Private declarations }
public
{ Public declarations }
procedure model1();
end;

Потом стань курсором на этот procedure model1(); и нажми CTRL+SHIFT+C.
Делфи создаст тело процедуры. В него и кидай ее код.

Спасибо за совет. Все ошибки исправляются. Но не могли бы мне помочь?

S:=0.0;
for j:=1 to Tk do S:=S+P[j];
Pcp:= S / Tk;
Currentx := 500;
Currenty := 1500;
Print 'P'; // missing operator or semicolon
Currentx := 6500;
Currenty := 3500;
Print 'T'; // missing operator or semicolon
Currentx := 650;
Currenty := 3300 - Pcp * mash;
Print 'Pcp'; // missing operator or semicolon
Xk := 600 + Tk * Dx;
Ycp := 3500 - Pcp * mash;
image1.Canvas.Pen.Color:=98765;
image1.Canvas.Pen.Width:=2;
LineTo (x1, Ycp)-(Xk, Ycp);
for j:= 1 to Tk - 1 do
x2 := x1 + Dx;
y2 := 3500 - P[j] * mash;
LineTo (x1,y1)-(x2,y2);
x1 := x2;
y1 := y2;
{ j; //???}

Я дописала код. Если вставить 'Print' в uses, то все ошибки исправляются, но запрашивает приложение 'Print.dcu', который я не создавала и по сути не нужен. Эти буквы должны быть видны на графике(как на оси координат x и y). Не подскажите каким кодом заменить?

[Vanta11a]

Ляпть. Вам слово "Print" ни о чем не говорит? Например о том, что это вывод значений?
Каким тут боком uses? В паскале отродясь вывод через write или writeln был.

[Stilet]

Print 'P'; // missing operator or semicolon

Заменяется на writeln('p');
Остальное тоже.

[Oksanalis69]

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

Заменяется на writeln('p');
Остальное тоже.

Спасибо исправила, мне попадалось такое решение, но почему-то подумала что слишком просто, пустая голова
Вот бьюсь над новыми ошибками, подскажите

image1.Canvas.Pen.Color:=98765;
image1.Canvas.Pen.Width:=2;
LineTo (x1,Ycp)-(Xk,Ycp); // incompatible tybes 'HDC' and 'extended'
for j:= 1 to Tk - 1 do //';' expected but 'FOR' found
x2 := x1 + Dx;
y2 := 3500 - P[j] * mash;
LineTo (x1,y1)-(x2,y2);
x1 := x2;
y1 := y2;

По первой все значения в extended. во второй точно должен быть 'for'

[\\Dima//]

Оксана здравствуй!Можно у тебя узнать ты доделала эту программу?дело в том что у меня сейчас встала такая же проблема..если сделала напиши пожалуйста.

[\\Dima//]

Уважаемые программисты вы можете меня как нибудь соединить с этим человеком"Oksanalis69"..почту ее дать ну или ей сказать чтоб зашла?нужна она мне очень...если не затруднит помогите пожалуйста!

[Serge_Bliznykov]

Уважаемые программисты вы можете меня как нибудь соединить с этим человеком"Oksanalis69"..

это только админы могут её почту увидеть.
А сама она на форуме с марта месяца не появлялась.
Поэтому, я бы на вашем месте не очень на Оксану расчитывал, пробуйте без неё проблему решить.

[\\Dima//]

это только админы могут её почту увидеть.
А сама она на форуме с марта месяца не появлялась.
Поэтому, я бы на вашем месте не очень на Оксану расчитывал, пробуйте без неё проблему решить.Это очень плохо..а как бы она мне сейчас пригодилась))