Дано А(альфа)=14, V0=750м/с. Найти: t=2*V0*sin(AR)/g; h=SQR(V0)*SQR(sin(AR))/2*g; L=SQR(V0)*SQR(sin(AR))/g; R1=SQR(V0)/g*cos(AR); R2=SQR(V0)*cos(AR)/g очень нужна помощь, заранее спасибо!

Правила форума: http://www.prepody.ru/ipb.html?act=boardrules
Где ваши наработки? Что у вас там не так?

есть наработки, тока я не знаю как из паскаля их вам показать, вообщем не понял как скопировать можно

Откройте блокнотом файл с программой.

не получается, папку паскаля открываю, а тм пусто. а если вам напишу сюда прост?

Program window;
Const g=9.81;
Var t,h,l,r1,r2:real;
v0, A: integer;
Begin
Readln (A, v0);
AR:=pi*A/180;
t:=2*V0*sin(AR)/g;
h:=SQR(V0)*SQR(sin(AR))/2*g;
L:=SQR(V0)*SQR(sin(AR))/g;
R1:=SQR(V0)/g*cos(AR);
R2:=SQR(V0)*cos(AR)/g;
Writeln (r1,r2);
End.

AR у Вас не определено. Кроме того,стоит прописать в конце перед end'ом readln,чтобы можно было посмотреть,что на вывод идёт.

а сможете подсказать как AR определить? пожалуйста

Ну так же,как Вы остальные переменные определили(IMG:style_emoticons/default/smile.gif)

ничего не понимаю) сможете показать наглядно, а то я с этой прогой уже давно мучаюсь, все перепробовал- не запускается и все(

AR:real;

спасииибо вам огромное)))) запустилась прога