Как сделать чтобы проверялся весь столбец - Pascal ABC

Формулировка задачи:

Дан прямоугольный массив А[1..M,1..N]. Получить номера столбцов, элементы которых являются частью последовательности Фибоначчи. как сделать чтобы проверялся весь столбец
uses crt;
Const M=6; N=7;
var A:array[1..100,1..100] of integer;       F:array [1..100] of integer;
    i,j,k,t,y,u,s:integer;
Begin
writeln('введите эл м');
for i:=1 to m do
for j:=1 to n do
 begin
    A[i,j]:=random(5);
    end;
 
writeln('массив');
for j:=1 to n do
 begin
  for i:=1 to m do
  write(A[i,j]:4);
  writeln
 end;
 writeln('числа последовательности Фибоначчи');
    F[1]:=0; F[2]:=1;
  for i:=3 to n do
   F[i]:=F[i-1]+F[i-2];
     for i:=1 to n do
   Writeln (F[i]:6);
          writeln('/////');
           for i:=1 to m do
          if  f[i]=A[i,1] then  begin u:=i;  writeln('в ',u,'-ом столбце найден элемент последовательности =',f[i]);
 
          end;
 
 
 end.


textual

Код к задаче: «Как сделать чтобы проверялся весь столбец - Pascal ABC»

uses crt;
const n=6; m=4;
function fibonachi(chislo:longint):boolean;
var i,j,k:integer;
begin
  i:=1;
  j:=1;
  k:=1;
  while k<chislo do
  begin
    k:=j+i;
    i:=j;
    j:=k;
  end;
fibonachi:=(chislo=1)or(k=chislo);
end;
var i,j,k,p:integer;
    a:array[1..n,1..m] of integer;
begin
writeln('Введите элементы матрицы по столбцам, в том числе столбцы из чисел Фибоначчи');
for j:=1 to m do
 begin
  writeln('Столбец ',j);
  for i:=1 to n do
   begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
   end;
 end;
clrscr;
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
writeln('Номера столбцов из чисел Фибоначчи');
k:=0;
for j:=1 to m do
 begin
  p:=0;
  i:=1;
  while(i<=n)and(p=0) do
  if not fibonachi(a[i,j]) then p:=1
  else i:=i+1;
  if p=0 then
   begin
    k:=1;
    write(j,' ');
   end;
 end;
if k=0 then write('Таких столбцов нет');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.778 из 5

Источник
Похожие ответы