Забравена парола

Език

Български    Английски

Реклами




Съобщи за грешка !
Добави търсачка

Валиден XHTML 1.1 Валиден CSS 2.1
Powered by PHP Powered by MySQL
Pascal емулатор
1 потребител(и) online
Контрол на шрифта Принтирай  Текущ език: Pascal

Упражнения://Редене на код


За да решите задачата е нужно чрез мишката да разместите кода, докато получите работеща програма.

Условие на задачата:
Да се напише рекурсивна функция, която установява, дали цялото число p се съдържа в редицата от цели числа a1, ..., an (n е естествено число, n >0).


  • var p : integer;
  • function Is (m : masiv; n:integer; p:integer):boolean;
  • Is := (m[n]=p) or Is(m,n-1,p) ;
  • end;
  • begin
  • type masiv = array[1..n] of integer;
  • else
  • if n=1 then Is:=M[1]=p