Составить одномерный массив из номеров столбцов, где на главной диагонали число Фибоначи

@tamara0900 · Регистрация: 19.01.2013

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

Дан двумерный массив.Составить одномерный массив из номеров столбцов,где на главной диагонали число Фибоначи.оформить в виде основной программы ПОМОГИТЕ РЕШИТЬ ПОЖАЙЛУСТА,БУДУ ОЧЕНЬ БЛАГОДАРНА

@Taftis · 20.01.2013, 13:06

Сообщение от tamara0900

где

может не где а если??

Добавлено через 33 секунды
что такое число фибоначи??

@Puporev · 20.01.2013, 13:29

Pascal

uses crt;
function Fib(n:integer):boolean;
var z,k:integer;
begin
z:=1;k:=0;
while z<n do
 begin
  z:=z+k;
  k:=z-k;
 end;
Fib:=z=n
end;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    b:array[1..nmax] of byte;
    m,n,i,j,imn,imx:byte;
begin
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(21)+1;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
m:=0;
for i:=1 to n do
if Fib(a[i,i]) then
 begin
  m:=m+1;
  b[m]:=i;
 end;
if m=0 then write('На главной диагонали нет чисел Фибоначчи')
else
 begin
  writeln('Номера столбцов, где на главной диагонали числа Фибоначчи');
  for i:=1 to m do
  write(b[i],' ');
 end;
end.

@tamara0900 0 / 0 / 0 Регистрация: 19.01.2013 Сообщений: 6
		1
	Составить одномерный массив из номеров столбцов, где на главной диагонали число Фибоначи 20.01.2013, 12:02. Показов 1251. Ответов 2 Метки нет (Все метки) Дан двумерный массив.Составить одномерный массив из номеров столбцов,где на главной диагонали число Фибоначи.оформить в виде основной программы ПОМОГИТЕ РЕШИТЬ ПОЖАЙЛУСТА,БУДУ ОЧЕНЬ БЛАГОДАРНА 0

@Taftis Pascal, Delphi, C++ 215 / 128 / 91 Регистрация: 01.12.2012 Сообщений: 628
	20.01.2013, 13:06	2
	Сообщение от tamara0900 где может не где а если?? Добавлено через 33 секунды что такое число фибоначи?? 0

Опции темы

Составить одномерный массив из номеров столбцов, где на главной диагонали число Фибоначи

Решение