Показать сообщение отдельно

  #2  
Старый 24.12.2009, 23:19
n1ghtstalker
Познающий
Регистрация: 28.09.2008
Сообщений: 65
Провел на форуме:
152084

Репутация: 8
По умолчанию

Цитата:
Сообщение от P.A.U.L  
Помогите плз доделать лабу...

В коде чего то не хватает для нормальной работы программы, но только понять не могу чего...

Здача:
Составить функцию, которая возвращает значение 0, если в последовательности целых чисел а1,а2,...аn отсутствуют три соседних нечетных числа, или номер первого числа встретившейся тройки таких чисел...

Код:

Код:
program proverka;
uses crt;
const n=10;
var c,i:integer;

function proverk (var a:array of integer):integer;
  var i,j:integer;
  begin
    for i:=1 to n-2 do 
      if b[i] mod 2 <> 0 then
	if b[i+1] mod 2 <> 0 then
	  if b[i+2] mod 2 <> 0 then
	    begin
	     proverk:=i;
	     exit;
	    end;
      proverk:=0;
  end;
begin
 clrscr;
  for i:= 1 to n do begin
  readln(a[i]);
  c:=proverk(a[i]);
  write('   ',c);
  writeln;
  end;
end.
во первых зачем тебе n? если она у тебя константового типа и =10 .
во вторых откуда взялся массив b?
при том надо прописать случай else.
при том в основном варе не объявлен массив , то что он присутсвует в функции это не значит
что он будет в основной программе.

ps мне интересно каким образом ты эту программу компилировал и таких косяков не нашёл?

Последний раз редактировалось n1ghtstalker; 24.12.2009 в 23:33..
 
Ответить с цитированием