
24.12.2009, 23:19
|
|
Познающий
Регистрация: 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..
|
|
|