Кому порешать задачи - пишите сюда

[Пух]

язык: Turbo Prolog

Условие: написать программу, которая вычисляет число Фиббоначчи по введенному порядковому номеру последовательности Фиббоначчи. Использовать хвостовую рекурсию.

Без хвостовой рекурсии написал, а с ней-хз... Подскажите пожалуйста!
п.с. охи язык...

 

[Glu4it]

я же прошу программу , сам код

 

[dreamer]

язык: Turbo Prolog

Условие: написать программу, которая вычисляет число Фиббоначчи по введенному порядковому номеру последовательности Фиббоначчи. Использовать хвостовую рекурсию.

Без хвостовой рекурсии написал, а с ней-хз... Подскажите пожалуйста!
п.с. охи язык...

You must be registered for see links

 

[ViRT]

язык: 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).

 

[Glu4it]

Re: Turbo Pascal

помогите пжлста... Нада сделать прогу в граф.режиме:
На экран выводится таблица с числами(1,2,3,5,6,7,10,11,13,14,17,12). Вопрос:
Как сделать чтоб на экран выводилось максимальное число и мнимальное с помощью массива? лучше напишите код с коментами. заранее всем спс.
ЗЫ я начинающий(очень начинающий)

решите задачу плиз

 

[Cris]

Re: Turbo Pascal

решите задачу плиз

в граф это там де окно 80х25 или именно с использованием модуля graph?, еси второе и ты напсиал ...(очень начинающий)..., куда там тебе графика, как спросят так нече и неответиш, даже если будут коменты

 

[Stasian]

Язык: Паскаль.
Тема: Двумерный массив
Условие: В заданной матрице заменить К-юстрокуи L -йстолбец нулями, кроме
элемента, расположенного на их пересечении.

Язык: Паскаль
Тема: Одномерный массив
Условие: Дан одномерный массив действительных чисел, состоящий из 10
элементов. Определить среднее арифметическое отрицательных элементов
массива.

Язык: Паскаль
Тема: Строки
Условие: Дана строка, состоящая из слов, разделенных пробелами. Напишите
программу, удаляющуюлишниепробелы. Пробелсчитаетсялишним, еслион
стоитвначалестроки; стоитвконцестроки; следуетзапробелом.


Помогите, если кто может!
Зранее спасибо!

 

[Glu4it]

Re: Turbo Pascal

в граф это там де окно 80х25 или именно с использованием модуля graph?, еси второе и ты напсиал ...(очень начинающий)..., куда там тебе графика, как спросят так нече и неответиш, даже если будут коменты

с модулем graph (экран 640-480)

 

[hariks]

Тема: Одномерный массив
Условие: Дан одномерный массив действительных чисел, состоящий из 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.

 

[dreamer]

Re: Turbo Pascal

помогите пжлста... Нада сделать прогу в граф.режиме:
На экран выводится таблица с числами(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;