IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Mobil Sohbet, Sohbet ve Sohbet Odaları




Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Temmuz 2014, 11:12   #1
Çevrimdışı
Bir Dizideki Elemanlar Arasında En Uzun Artan Diziyi Bulan Program


-- Sponsor Baglantı --


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.
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.
__________________
şah hatayi'm muhabbete bakarım
ben doluyum ben dolana akarım


Maya
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Cevapla

Etiketler
arasında, artan, bîr, bulan, dizideki, diziyi, elemanlar, en, program, uzun

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Bir Cümle İçinde Geçen Her Karakterin Tekrar Sayısını Bulan Program Swat Programlama 0 11 Temmuz 2014 11:12
Cümledeki Kelime Sayısını Bulan Program Swat Programlama 0 11 Temmuz 2014 11:10
Bir Dizinin İkinci En Büyük Elemanını Diziyi Sıralamadan Bulan Program Swat Programlama 0 11 Temmuz 2014 11:02
Figüranlar Diziyi Gerçek Sandı Thetis Haber Arşivi 0 30 Haziran 2012 18:55
Harf notlarının sayısını bulan program aSi C ve C++ 0 17 Şubat 2012 23:56