Çevrimdışı

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
nd[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.