procedure Func;
var
{ S:Extended; а нужно так}
S : array [1..8] of Extended;
X:Integer;
{ Нужно еще }
I:Integer;
R:Extended;
begin
R := 6.4;
I := 1;
For X := 4 to 9 do
begin
S := (X*X*X+1)/(Cos(R-2)*Cos(R-2)+1);
I := I + 1;
end;
X := 4;
I := 1;
while X <= 9 do
begin
S := (X*X*X+1)/(Cos(R-2)*Cos(R-2)+1);
X := X + 1;
I := I + 1;
end;
X := 4;
I := 1;
repeat
S := (X*X*X+1)/(Cos(R-2)*Cos(R-2)+1);
X := X + 1;
I := I + 1;
until X <= 9
end;
Паскаль
Кто-нить может кинуть пару решений задач на паскале:???:
Цитата:
Originally posted by MatveY
Кто-нить может кинуть пару решений задач на паскале:???:
Кто-нить может кинуть пару решений задач на паскале:???:
Может и кинуть и даже не пару. Знать бы каких задач.
Цитата:
Originally posted by AlexandrVSmirno
Может и кинуть и даже не пару. Знать бы каких задач.
Может и кинуть и даже не пару. Знать бы каких задач.
ооочень простых:
s(x)=(x*x*x+1)/((cos(r-2)*cos(r-2)+1)
r=6,4
диапазон изменения аргумента функции:4<=x<=9
число значений функции 8
нужно решить через for, while,repeat
заранее благодарен
Цитата:
Originally posted by MatveY
ооочень простых:
s(x)=(x*x*x+1)/((cos(r-2)*cos(r-2)+1)
r=6,4
диапазон изменения аргумента функции:4<=x<=9
число значений функции 8
нужно решить через for, while,repeat
заранее благодарен
ооочень простых:
s(x)=(x*x*x+1)/((cos(r-2)*cos(r-2)+1)
r=6,4
диапазон изменения аргумента функции:4<=x<=9
число значений функции 8
нужно решить через for, while,repeat
заранее благодарен
Блин давно на паскале не писал вот ошики и делаю
Код:
А то лупил все в одно место
Цитата:
Originally posted by AlexandrVSmirno
Код:
procedure Func;
var
S:Extended;
X:Integer;
R:Extended;
begin
R := 6.4;
For X := 4 to 9 do
begin
S := (X*X*X+1)/(Cos(R-2)*Cos(R-2)+1);
end;
X := 4;
while X <= 9 do
begin
S := (X*X*X+1)/(Cos(R-2)*Cos(R-2)+1);
X := X + 1;
end;
X := 4;
repeat
S := (X*X*X+1)/(Cos(R-2)*Cos(R-2)+1);
X := X + 1;
until X <= 9
end;
var
S:Extended;
X:Integer;
R:Extended;
begin
R := 6.4;
For X := 4 to 9 do
begin
S := (X*X*X+1)/(Cos(R-2)*Cos(R-2)+1);
end;
X := 4;
while X <= 9 do
begin
S := (X*X*X+1)/(Cos(R-2)*Cos(R-2)+1);
X := X + 1;
end;
X := 4;
repeat
S := (X*X*X+1)/(Cos(R-2)*Cos(R-2)+1);
X := X + 1;
until X <= 9
end;
а+кубический корень из с, при а<=sin(c)
z{
a-кубический корень из с. при А>sin(c)
Цитата:
Originally posted by MatveY
а+кубический корень из с, при а<=sin(c)
z{
a-кубический корень из с. при А>sin(c)
а+кубический корень из с, при а<=sin(c)
z{
a-кубический корень из с. при А>sin(c)
Слушай стандартной арфиметической функции корень кубический я что-то в Паскале не помню, а вспоминать алгоритм вычисления дюже долго. Скажем есть функция CubicRoot(var x:Extended):extended;, которая вычисляет кубический корень.
Код:
function Z(a:extended;c:extended):extended
begin
if a <= Sin(c) then
Result := a + CubicRoot(c);
else
Result := a - CubicRoot(c);
end;
begin
if a <= Sin(c) then
Result := a + CubicRoot(c);
else
Result := a - CubicRoot(c);
end;
ЗЫ: Может ты сразу все задачки выложишь?
Цитата:
Originally posted by AlexandrVSmirno
Слушай стандартной арфиметической функции корень кубический я что-то в Паскале не помню, а вспоминать алгоритм вычисления дюже долго. Скажем есть функция CubicRoot(var x:Extended):extended;, которая вычисляет кубический корень.
ЗЫ: Может ты сразу все задачки выложишь?
Слушай стандартной арфиметической функции корень кубический я что-то в Паскале не помню, а вспоминать алгоритм вычисления дюже долго. Скажем есть функция CubicRoot(var x:Extended):extended;, которая вычисляет кубический корень.
Код:
function Z(a:extended;c:extended):extended
begin
if a <= Sin(c) then
Result := a + CubicRoot(c);
else
Result := a - CubicRoot(c);
end;
begin
if a <= Sin(c) then
Result := a + CubicRoot(c);
else
Result := a - CubicRoot(c);
end;
ЗЫ: Может ты сразу все задачки выложишь?
p=sin((a5)/a5-1))*sin((a5)/a5-1)), a5=2.345
Составить два варианта линейной программы
для вычисления значения выражения:
1):
исходные данные задаются в операторах присваивания;
2):
исходные данные при выполнении программы вводятся с клавиатуры;
вроде бы корень кубический можно заменить как степень 1/3 ( только не знаю как exp или ln)
Очень вас прошу, уважаемые программисты, помогите с решением задачки в паскале.
Вычислить сумму бесконечно сходящегося ряда
S=1-3/2*x^2+...+(-1)^n*((2n^2+1)/((2n)!))*x^2n
Диапазон изменения аргумента
0.1<=X<=1
^ - знак степени
<= -меньше или равно
Заранее спасибо.
Вычислить сумму бесконечно сходящегося ряда
S=1-3/2*x^2+...+(-1)^n*((2n^2+1)/((2n)!))*x^2n
Диапазон изменения аргумента
0.1<=X<=1
^ - знак степени
<= -меньше или равно
Заранее спасибо.
Программисты, Ау-у.
Неужели никто не знает как это решить???
Неужели никто не знает как это решить???