Programlama | Programlama Dilleri | C Programlama Dili |C++

Hata
  • XML Parsing Error at 1:82. Error 9: Invalid character
Anasayfa Programlama Pascal Bir Dizideki Elemanlar Aras?nda En Uzun Artan Diziyi Bulan Program


Bir Dizideki Elemanlar Aras?nda En Uzun Artan Diziyi Bulan Program

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:

  1. uses crt;
  2. var
  3. dizi:array[1..100] of integer;
  4. artnd:array[1..100]of integer;
  5. i,a,b,j,k,l:integer;
  6. tus:char;
  7.  
  8.  
  9. begin
  10. clrscr;
  11. repeat
  12. begin
  13.  writeln('Dizi boyutunu giriniz .. [1..100]');
  14.  readln(b);
  15.  writeln('Dizi degerlerini giriniz .. ');
  16.  
  17.  for i:=1 to b do
  18.  begin
  19.  read(a);
  20.  dizi[i]:=a;
  21.  end;
  22.  
  23. j:=1;
  24. k:=1;
  25. l:=1;
  26. while k<b do
  27. begin
  28.  if (dizi[k+1]-dizi[k])>0 then k:=k+1
  29.   else begin artnd[l]:=j;l:=l+1;artnd[l]:=k;j:=k+1;k:=k+1;l:=l+1; end;
  30.  
  31.  
  32. l:=artnd[2]-artnd[1];j:=1;k:=2;i:=3;
  33.  
  34. while artnd[i]<>0 do
  35.  begin
  36.   a:=artnd[i+1]-artnd[i];
  37.   if l<a then begin l:=a;j:=artnd[i];k:=artnd[i+1];i:=i+2; end
  38.    else i:=i+2;
  39.  end;
  40.  
  41. writeln('En uzun artan dizi: ');
  42. for i:=j to k do
  43.  write(' ',dizi[i]);
  44.  
  45. writeln(' ');
  46. writeln('Programi sonlandirmak icin * karakterine basiniz');
  47. tus:=readkey;
  48. until tus='*';

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
 
404 Not Found

404

Not Found

The resource requested could not be found on this server!


Proudly powered by LiteSpeed Web Server

Please be advised that LiteSpeed Technologies Inc. is not a web hosting company and, as such, has no control over content found on this site.