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:06   #1
Çevrimdışı
N Basamaklı Bir Sayıdan K Tane Rakam Silindiğinde Kalabilecek En Büyük Sayı


-- Sponsor Baglantı --


Pascal programlama dilinde yazılmış bu programda kullanıcıdan alınan N basamaklı bir sayıdan k tane rakamı silersek kalabilecek en büyük sayıyı bulan program yapılmıştır.

Örnek : Sayı -> 2 4 5 2 6
K=1 -> En büyük sayı = 6542

K=2 -> En büyük sayı = 654

K=3 -> En büyük sayı = 65

K=4 -> En büyük sayı = 6


Not : Sayı dizi olarak programa verilmelidir ve k sayısı dizinin eleman sayısının 1 eksiğinden büyük olmamalıdır.

Program Kodu:

Ör:

Sayının Uzunluğunu Giriniz: 5

3

5

6

2

1

Silinmesini İstediğiniz Rakam Sayısını Giriniz:2

Sayiniz : 653

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
uses crt; var a:array[1..100] of integer; z:array[1..100] of integer; i,j,k,b,c,max:integer; Tus:char; bl:boolean; begin clrscr; repeat writeln('Sayi uzunlugunu giriniz...: [1..100])'); readln(b); writeln('Sayi degerlerini giriniz..'); for i:=1 to b do begin readln(c); a[i]:=c; end; write('Sayiniz : ');for i:= 1 to b do write(a[i]); writeln(''); writeln('Silinmesini istediginiz rakam sayisini giriniz.. : '); readln(c); c:=b-c; (*kalan eleman sayısı*) bl:=false; for j:=1 to c do begin bl:=false; max:=a[1]; k:=1; for i:=2 to b do begin if max < a[i] then begin max:=a[i]; k:=i; bl:=true; end; end; if not bl then begin for i:=2 to b do begin if max = a[i] then k:=i; end; end; a[k]:=-1; z[j]:=max; (*write('Sayiniz : ');for i:= 1 to b do write(a[i]); writeln('');*) end; write('Sayiniz : ');for i:= 1 to c do write(z[i]); writeln(''); writeln('Cikmak icin * karakterine basiniz..'); Tus:=readkey; Until Tus='*'; readln; end.

Pascal programlama dilinde yazılmış bu programda kullanıcıdan alınan N basamaklı bir sayıdan k tane rakamı silersek kalabilecek en büyük sayıyı bulan program yapılmıştır.

Örnek : Sayı -> 2 4 5 2 6
K=1 -> En büyük sayı = 6542

K=2 -> En büyük sayı = 654

K=3 -> En büyük sayı = 65

K=4 -> En büyük sayı = 6


Not : Sayı dizi olarak programa verilmelidir ve k sayısı dizinin eleman sayısının 1 eksiğinden büyük olmamalıdır.

Program Kodu:

Ör:

Sayının Uzunluğunu Giriniz: 5

3

5

6

2

1

Silinmesini İstediğiniz Rakam Sayısını Giriniz:2

Sayiniz : 653

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
uses crt; var a:array[1..100] of integer; z:array[1..100] of integer; i,j,k,b,c,max:integer; Tus:char; bl:boolean; begin clrscr; repeat writeln('Sayi uzunlugunu giriniz...: [1..100])'); readln(b); writeln('Sayi degerlerini giriniz..'); for i:=1 to b do begin readln(c); a[i]:=c; end; write('Sayiniz : ');for i:= 1 to b do write(a[i]); writeln(''); writeln('Silinmesini istediginiz rakam sayisini giriniz.. : '); readln(c); c:=b-c; (*kalan eleman sayısı*) bl:=false; for j:=1 to c do begin bl:=false; max:=a[1]; k:=1; for i:=2 to b do begin if max < a[i] then begin max:=a[i]; k:=i; bl:=true; end; end; if not bl then begin for i:=2 to b do begin if max = a[i] then k:=i; end; end; a[k]:=-1; z[j]:=max; (*write('Sayiniz : ');for i:= 1 to b do write(a[i]); writeln('');*) end; write('Sayiniz : ');for i:= 1 to c do write(z[i]); writeln(''); writeln('Cikmak icin * karakterine basiniz..'); Tus:=readkey; Until Tus='*'; readln; 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
basamaklı, bîr, bÜyÜk, en, kalabilecek, rakam, sayı, sayıdan, silindiğinde, tane

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
Bilinen En Büyük Asal Sayı Violent Matematik 0 02 Aralık 2013 21:22
Okunabilen En Büyük Sayı Süslü Serbest Kürsü 0 09 Kasım 2010 13:41
Okunabilen en büyük sayı Lady Ekstra 1 01 Temmuz 2010 22:56