Turbo Pascal

[PLaTiNuM]

Ответ: Turbo Pascal

Ребята помогите пожалуйста вот что мне нужно сделать:

Записать формулы на языке Turbo Pascal:

1) S=V(нулевое)tcos(альфа);

gt(в квадрате)
2) h=V(нулевое)tsin(альфа) - -------------------- ;
2


2V(нулевое)sin(альфа)
3) t=----------------------- ;
g

4)An = a1 + d (n-1);

180
5) An = 2Rsin ----------- .
n



-------- => Это линия дроба!


Подобрать для переменных значение.

Заранее благодарен!

 

[AkeL.php]

Ответ: Turbo Pascal

1.
S:= V0*t*cos(alpha);
sqr(g*t);
2.
h= (V0*t*sin(alpha)) / 2;
3.
2*V0*sin(alpha)/g;
4.
An = a1 + d (n-1);
5.
Фт = (2*R*sin(alpha))/n;
.....
Блин, или я не догоняю или ты что-то неправильно объясняешь. Тут же проще простого.

 

[Пух]

Ответ: Turbo Pascal

1.
sqr(g*t);

имелась в виду формула gt^2, тоесть g*sqr(t) (только в физике, насколько я знаю, есть формула (gt^2)/2 )

 

[PLaTiNuM]

Ответ: Turbo Pascal

Ребята спасибо огромное !

 

[S-DIMAN]

Ответ: Turbo Pascal

Помогите пожалуйста с задачей. Я ее решил через цикл,как оказалось ее нужно решить через div или mod.

Пожалуйста,помогите

Условие задачи

Дано натуральное число которое меньше 1000. Используя операции div и mod, определить, сколько цифр в этом числе ???

То есть нужно найти кол-во разрядов.

Заранее благодарен.

 

[AkeL.php]

Ответ: Turbo Pascal

while(chislo >=10 ) do
begin
chislo := chislo div 10;
count := count+1;
end
Типа такого :-D

 

[Hamster]

чёт бред какойто

count:=1; k:=1;
while X div 10^(k-1) <>0 do begin inc(count) ; inc(k); end;
10^(k-1) сам напишешь правильно.

 

[AkeL.php]

Ответ: Turbo Pascal

Таким образом я переводил число из десятичной системы в двоичную. Способом безостаточного деления.

 

[[Spider]]

Вычисление степени числа

10^(k-1) сам напишешь правильно

Действительно, в Turbo Pascal`е нет ни операторов, ни стандартных функций для вычисления степени числа, поэтому для вычисления числа приходится выкручиваться. Код для вычисления a^b будет иметь вид:

exp(b*ln(a))

Соответственно, для вычисления 10^(k-1) код будет таким:

exp((k-1)*ln(10))

 

[Hamster]

Re: Ответ: Turbo Pascal

Таким образом я переводил число из десятичной системы в двоичную. Способом безостаточного деления.

Не знаю , чего ты там переводил, но твой цикл в зависимости от i будет либо работать бесконечно, увеличая каунт ,либо не разу не выполниться.