язык: Turbo Prolog
Условие: написать программу, которая вычисляет число Фиббоначчи по введенному порядковому номеру последовательности Фиббоначчи. Использовать хвостовую рекурсию.
Без хвостовой рекурсии написал, а с ней-хз... Подскажите пожалуйста!
п.с. охи язык...
По старой памяти:язык: Turbo Prolog
Условие: написать программу, которая вычисляет число Фиббоначчи по введенному порядковому номеру последовательности Фиббоначчи. Использовать хвостовую рекурсию.
Без хвостовой рекурсии написал, а с ней-хз... Подскажите пожалуйста!
п.с. охи язык...
predicates
fibonachi(integer,real)
fibonachi(integer,real,integer,real,real)
clauses
fibonachi(N,FIB):-fibonachi(N,FIB,1,1,0).
fibonachi(N,FIB,N,_,FIB):-!.
fibonachi(N,FIB,Nc,C,A):-DNc=Nc+1,Dc=A+C,Da=C,
fibonachi(N,FIB,DNc,Dc,Da).
решите задачу плизпомогите пжлста... Нада сделать прогу в граф.режиме:
На экран выводится таблица с числами(1,2,3,5,6,7,10,11,13,14,17,12). Вопрос:
Как сделать чтоб на экран выводилось максимальное число и мнимальное с помощью массива? лучше напишите код с коментами. заранее всем спс.
ЗЫ я начинающий(очень начинающий)
в граф это там де окно 80х25 или именно с использованием модуля graph?, еси второе и ты напсиал ...(очень начинающий)..., куда там тебе графика, как спросят так нече и неответиш, даже если будут коментырешите задачу плиз
с модулем graph (экран 640-480)в граф это там де окно 80х25 или именно с использованием модуля graph?, еси второе и ты напсиал ...(очень начинающий)..., куда там тебе графика, как спросят так нече и неответиш, даже если будут коменты
Тема: Одномерный массив
Условие: Дан одномерный массив действительных чисел, состоящий из 10
элементов. Определить среднее арифметическое отрицательных элементов
массива.
uses crt;
var a:array[1..10] of real; i,k:byte; s:real;
begin
clrscr;
s:=0;
k:=0;
for i:=1 to 10 do begin
write('Vvedite ', i, '-oe 4islo ');
readln(a[i]);
if a[i]<0 then begin
s:=s+a[i];
k:=k+1;
end;
end;
if s<0 then writeln('Srednee = ', s/k:0:2)
else writeln('Otricatelnyh 4isel nety! I ne bydet!');
readln;
end.
Для начала точно опиши задачу. Что надо сделать, откуда берутся числа, как их надо вывести (таблицей? с одной строкой чтоли? в графическом режиме? как именно?).помогите пжлста... Нада сделать прогу в граф.режиме:
На экран выводится таблица с числами(1,2,3,5,6,7,10,11,13,14,17,12). Вопрос:
Как сделать чтоб на экран выводилось максимальное число и мнимальное с помощью массива? лучше напишите код с коментами. заранее всем спс.
ЗЫ я начинающий(очень начинающий)
procedure findExtremals(var data:array[1..N] of datatype; var min, max:datatype);
var i:word;
begin
min := data[1];
max := data[1];
for i := 2 to N do begin
if data[i] > max then max := data[i];
if data[i] < min then min := data[i];
end;
end;