var
x0, x1, xN, xBuf, i : Integer;
begin
x0 := 1;
x1 := 1;
xN := 1;
for i := 2 to 40 do begin
xBuf := xN;
xN := x0 + x1;
x0 := x1;
x1 := xBuf;
end;
// вывод xN
end;
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПО ТУРБО ПАСКАЛЮ
1.Найти 40-е число фибоначи.
2Найти первое число фибаначи которое привысит число м, м ввести с клавиатуры
3.Найти сумму всех тех чисел фибаначи <1000.
ПОМОГИТЕН РЕШИТЬ СРОЧНО. ЗАРАНЕЕ СПАСИБО..
2Найти первое число фибаначи которое привысит число м, м ввести с клавиатуры
3.Найти сумму всех тех чисел фибаначи <1000.
ПОМОГИТЕН РЕШИТЬ СРОЧНО. ЗАРАНЕЕ СПАСИБО..
Цитата:
Originally posted by fynjy
1.Найти 40-е число фибоначи.
1.Найти 40-е число фибоначи.
А можно по-конкретнее: что есть числа фибоначи? Давненько я учился :)...
Задачка простая, главное - формулу в студию!
Код:
Код:
var
x0, x1, xN, xBuf, i : Integer;
sum: Integer;
begin
x0 := 1;
x1 := 1;
xN := 1;
sum := 1;
while(xN < 1000)do begin
sum := sum + xN;
xBuf := xN;
xN := x0 + x1;
x0 := x1;
x1 := xBuf;
end;
// вывод sum
end;
x0, x1, xN, xBuf, i : Integer;
sum: Integer;
begin
x0 := 1;
x1 := 1;
xN := 1;
sum := 1;
while(xN < 1000)do begin
sum := sum + xN;
xBuf := xN;
xN := x0 + x1;
x0 := x1;
x1 := xBuf;
end;
// вывод sum
end;
Даны действительные числа f, t. Составить программу вычисления выражения f(t,-2s,1.17)+f(2.2,t,s-t),гдеf(a,b,c)=(2a-b-sin(c))/(5+|c|)
решите задачу ПОЖАЛУЙСТА!!!!!!!!!!!!!!
решите задачу ПОЖАЛУЙСТА!!!!!!!!!!!!!!
Какие проблемы?Функция определена,остаётся только реализовать
Рискну предположить,что даны числа [COLOR="Red"]s[/COLOR] и t[Highlight=Pascal]…
Function f(a,b,c:Real):Real;
Begin
Result:=(2*a-b-Sin(c))/(5+Abs(c))
End;
…
Write('Результат:',f(t,-2*s,1.17)+f(2.2,t,s-t);[/Highlight]Ввод данных и всё остальное напишешь сам
И вообще,лучше новую тему открывать
Рискну предположить,что даны числа [COLOR="Red"]s[/COLOR] и t[Highlight=Pascal]…
Function f(a,b,c:Real):Real;
Begin
Result:=(2*a-b-Sin(c))/(5+Abs(c))
End;
…
Write('Результат:',f(t,-2*s,1.17)+f(2.2,t,s-t);[/Highlight]Ввод данных и всё остальное напишешь сам
И вообще,лучше новую тему открывать
@pixo $oft спасибо респект тебе
Составить программу, которая создаст файл, состоящий из 15-ти целых чисел из диапазона от 0 до 30.Затем выведет на экран все элементы созданного файла и сумму чётных элементов этого файла. Решите пожалуйста у кого не отминет это много времени!!!!!!!!!!!!!!
Помогите решить задачу в Турбо Поскале.
В одномерном массиве, состоящем из n целочисленных элементов, вычислить: минимальный по модулю элемент массива
В одномерном массиве, состоящем из n целочисленных элементов, вычислить: минимальный по модулю элемент массива
Цитата: zhenya17
Помогите решить задачу в Турбо Поскале.
В одномерном массиве, состоящем из n целочисленных элементов, вычислить: минимальный по модулю элемент массива
В одномерном массиве, состоящем из n целочисленных элементов, вычислить: минимальный по модулю элемент массива
функция взятия модуля - abs. какие тут еще могут быть проблемы?
Цитата: Alm3n
функция взятия модуля - abs. какие тут еще могут быть проблемы?
нужно составить програму
Цитата: zhenya17
нужно составить програму
а самому совсем-совсем думать не хочется, да? мне просто интересно, ничего против не имею.
Цитата:
функция взятия модуля - abs. какие тут еще могут быть проблемы?
ЛЕНЬ!!))) ГЫ-ГЫ
Цитата: Alm3n
а самому совсем-совсем думать не хочется, да? мне просто интересно, ничего против не имею.
Спасибо за помощь
ЛЮДИ ПОМОГИТЕ ПОЖАЛУЙСТА решить задачу в Турбо Паскале нужна программа
В одномерном массиве, состоящем из n целочисленных элементов, вычислить: минимальный по модулю элемент массива
В одномерном массиве, состоящем из n целочисленных элементов, вычислить: минимальный по модулю элемент массива
Женя не тормоз, он просто медленный газ.