учебная практика

[Ghetto]

Такая проблема на учебе возникла, программирование закончилось в прошлом семестре, а в этом семестре у нас стоит учебная практика, и надо сидеть самим делать программы по заданию которое раздали... проблема собственно в том что все что делал в том семестре вылетело напрочь из головы, и нуждаюсь в помощи написания программ, достаточно будет хотя бы код, с оформлением сам разрулю.
Сам учусь на дизайнера, без понятия зачем нам этим голову забивают. задач всего 12.

[Stilet]

Ну ниче сложного нет, колега:

procedure TForm1.Button1Click(Sender: TObject);
begin
caption:=Floattostr(strtofloat(LabeledEdit1.Text)*
 (StrToFloat(LabeledEdit3.Text)-StrToFloat(LabeledEdit2.Text)));
end;

[Ghetto]

за это спасибо, но еще вагон и маленькая тележка

возникла такая проблема при написании кода:

procedure TForm1.Button1Click(Sender: TObject);
var t,n,x,exp,k,y:real;
begin
n:=strtofloat(Edit1.text);
t:=strtofloat(Edit2.text);
k:=2*n;
x:=ln(t);
if (k=1) and (x<>0) then
y:=exp(x)(1/3*ln(sqr(sin(k*x)+abs(cos(x)-sqr(sin(x)))};
if (k<>1) and (abs(x)<1) then
y:=Ln(sqrt(sqr(sin(4*x)*sin(4*x))+sqr(cos(x)/(2+x))));
Edit3.text:=floattostr(y);
end;

end.

где выделено красным там делфи пишет :[Error] Unit1.pas(40): Missing operator or semicolon.


кто вкурсе какой оператор нужен ?

[alex_fcsm]

Пропущен оператор. Поставьте *

y:=exp(x)*(1/3*ln(sqr(sin(k*x)+abs(cos(x)-sqr(sin(x)));

Правда по картинке не понял в какую степень нужно возвести

[Stilet]

)))};

Это что за чепуха? Ану убери }.
И на будущее запомни что semicolor - это точка-с-запятой (каждый словарь по аглицкому скажет)

[Ghetto]

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

Пропущен оператор. Поставьте *

y:=exp(x)*(1/3*ln(sqr(sin(k*x)+abs(cos(x)-sqr(sin(x)));

Правда по картинке не понял в какую степень нужно возвести

кубический корень на картинке.

поставил я *, но после этого он пишет y:=exp*(x)*(1/3*ln(sqr(sin(k*x)+abs(cos(x)-sqr(sin(x)));

[Error] Unit1.pas(40): ')' expected but ';' found

если убираю точку с запятой, начинает ругаться на if (k<>1) and (abs(x)<1) then
с ошибкой [Error] Unit1.pas(41): Missing operator or semicolon

нид хелп

[maladoy]

вместо

y:=exp*(x)*(1/3*ln(sqr(sin(k*x)+abs(cos(x)-sqr(sin(x)));

вставь

y:=exp(x)*(1/3*ln(sqr(sin(k*x)+abs(cos(x)-sqr(sin(x)));

[Ghetto]

все равно ругается на ету строчку тогда

[alex_fcsm]

y:=exp(x)*(1/3*ln(sqr(sin(k*x)+abs(cos(x)-sqr(sin(x))))));

[Ghetto]

что б эту практику...

все равно ругается, хоть убейте, опять semicolon


скачайте сами, посмотрите на что он может еще ругаться