Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Образовательный студенческий форум _ Информатика / Программирование _ задача в паскале по линейному алгоритму

Автор: иван 23 6.12.2009, 11:10

Дано А(альфа)=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 очень нужна помощь, заранее спасибо!

Автор: Евгений М. 6.12.2009, 11:23

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

Автор: иван 23 6.12.2009, 11:32

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

Автор: граф Монте-Кристо 6.12.2009, 13:26

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

Автор: иван 23 6.12.2009, 13:50

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

Автор: иван 23 6.12.2009, 14:00

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.

Автор: граф Монте-Кристо 6.12.2009, 14:14

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

Автор: иван 23 6.12.2009, 14:42

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

Автор: граф Монте-Кристо 6.12.2009, 14:52

Ну так же,как Вы остальные переменные определилиsmile.gif

Автор: иван 23 6.12.2009, 15:03

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

Автор: граф Монте-Кристо 6.12.2009, 15:24

AR:real;

Автор: иван 23 7.12.2009, 1:43

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

Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)