Переделать программу, что бы была основная программа и процедуры или функции

@viktoriya95 · Регистрация: 21.02.2014

Студворк — интернет-сервис помощи студентам

помогите, пожалуйста, переделать эту программу, что бы она была с процедурами и функциями:Найти первое число Фибоначчи, которое больше заданного натурального m

Pascal

Program Fibonatti;
var
    M, f1, f2: integer;
begin
    write('vvedite M = '); readln(M);
    f1 := 0;
    f2 := 1;
    repeat
        f2 := f1 + f2;
        f1 := f2 - f1;
    until (f2>m);
    writeln('F = ', f2);
  readln;
end.

@FedorBoom · 26.02.2014, 16:30

Pascal

Program Fibonatti;
 
procedure fibonacci (x: integer; var b : integer);
var a: integer;
 begin
  a := 0;
  b := 1;
  repeat
   b := a + b;
   a := b - a;
  until (b>x);
 end;
 
var
M, f2: integer;
 begin
  write('vvedite M = '); readln(M);
  fibonacci(m,f2);
  writeln('F = ', f2);
  readln;
 end.

@viktoriya95 · 26.02.2014, 16:38 **[ТС]**

большое спасибо!

@viktoriya95 9 / 0 / 0 Регистрация: 21.02.2014 Сообщений: 80
	26.02.2014, 16:38 [ТС]	3
	большое спасибо! 0

Опции темы