Programlama Sitesi Hazır Program | C++ Builder Java C/C++ Php .Net

Pascal programlama dilinde yazılmış bu program bir dizideki elemanlar arasında en uzun artan diziyi bulmaktadır. Örneğin; 2,5,1,6,9,10,3 şeklinde konsol üzerinden kullanıcıdan alınmış bir dizide en uzun artan dizi 1,6,9,10 olmaktadır.

Program Kodu:

uses crt;
var
dizi:array[1..100] of integer;
artnd:array[1..100]of integer;
i,a,b,j,k,l:integer;
tus:char;
 
 
begin
clrscr;
repeat
begin
 writeln('Dizi boyutunu giriniz .. [1..100]');
 readln(b);
 writeln('Dizi degerlerini giriniz .. ');
 
 for i:=1 to b do
 begin
 read(a);
 dizi[i]:=a;
 end;
 
j:=1;
k:=1;
l:=1;
while k<b do
begin
 if (dizi[k+1]-dizi[k])>0 then k:=k+1
  else begin artnd[l]:=j;l:=l+1;artnd[l]:=k;j:=k+1;k:=k+1;l:=l+1; end;
end;
 
 
l:=artnd[2]-artnd[1];j:=1;k:=2;i:=3;
 
while artnd[i]<>0 do
 begin
  a:=artnd[i+1]-artnd[i];
  if l<a then begin l:=a;j:=artnd[i];k:=artnd[i+1];i:=i+2; end
   else i:=i+2;
 end;
 
writeln('En uzun artan dizi: ');
for i:=j to k do
 write(' ',dizi[i]);
 
writeln(' ');
writeln('Programi sonlandirmak icin * karakterine basiniz');
tus:=readkey;
end;
until tus='*';
end.