ÜYELERİMİZİN VE ZİYARETÇİLERİMİZİN SİTEMİZE DOSYA VE DÖKÜMAN EKLEMESİ ÖNEMLE RİCA OLUNUR. AYRICA İSTEYEN ÜYELERİMİZ SİTEMİZDE MODERATÖR OLABİLİRLER . TEŞEKKÜRLER...
Content Top

Hukuki desteklerinden ötürü Karakum Avukatlık Bürosunun kurucusu Av. Mustafa KARAKUM 'a şükranlarımı sunarım. TEŞEKKÜRLER...
Gönder 
 
Değerlendir:
  • 0 Oy - 0 Yüzde
  • 1
  • 2
  • 3
  • 4
  • 5
pascal
Yazar Mesaj
ozi1 Çevrimdışı
elimdeki dosyaları siteye atarım
**

Mesajlar: 1
Üyelik Tarihi: Dec 2010
Rep Puanı: 0
Mesaj: #1
pascal
kullanıcıdan 10 tane sayı ıstenıcek bu sayıların encok hangısı veya hangılerı en cok tekrarlanmıs onlar ekrana yazdırılıcak esıtlık goz onune alınarak mesela en cok 4 rakımı yazıldı 5 defa yazdı ekrana 5 defa 4 yazılmıstır dıyecek bı pascal programı lazım acıl yardımcı olursanız cok sevınırım
12-26-2010 22:16
Tüm Mesajlarını Bul Alıntı Yaparak Cevapla
daisy Çevrimdışı
Moderator
*****

Mesajlar: 2,010
Üyelik Tarihi: Aug 2010
Rep Puanı: 66
Mesaj: #2
RE: pascal
cevabı için yarın arkadaşlarla bakarım

http://www.jetnetworking.com.tr/index.ph...e/JN125973
Her Üye Kaydına 20 TL. Kazan!!!
jetnetworking üyelik için linki tıklayıp bilgilerinizi girin
sistem hakkında


bir teşekkürü çok görmeyin!
12-26-2010 22:31
Tüm Mesajlarını Bul Alıntı Yaparak Cevapla
daisy Çevrimdışı
Moderator
*****

Mesajlar: 2,010
Üyelik Tarihi: Aug 2010
Rep Puanı: 66
Mesaj: #3
RE: pascal
uses crt;
var
i,j,a,b,c,d: integer;
dizi: array [1..10]of integer;
sayi: array [1..10]of integer;
begin
for i:=1 to 10 do begin
writeln (i, '.sayıyı girin');
readln (dizi[i]);
end;

for i:=1 to 9 do begin
for j:=i+1 to 10 do begin
if dizi[i]=dizi[j] then
a:=a+1;
sayi[i]:=a;
d:=dizi[i];
end;
end;
for b:=1 to 9 do begin
if sayi[b]>sayi[b+1] then
c:=sayi[b];
end;
writeln('Girilen sayıların içinde', d , 'sayısı', c , 'kere tekrar edilmiştir.');
readln();
End.

dizilerle yaptık ama deneme imkanımız olmadı umarım doğru çalışır

http://www.jetnetworking.com.tr/index.ph...e/JN125973
Her Üye Kaydına 20 TL. Kazan!!!
jetnetworking üyelik için linki tıklayıp bilgilerinizi girin
sistem hakkında


bir teşekkürü çok görmeyin!
12-27-2010 21:33
Tüm Mesajlarını Bul Alıntı Yaparak Cevapla
katip389 Çevrimdışı
elimdeki dosyaları siteye atarım
**

Mesajlar: 1
Üyelik Tarihi: May 2012
Rep Puanı: 0
Mesaj: #4
RE: pascal
(12-27-2010 21:33 )daisy Yazılan:  uses crt;
var
i,j,a,b,c,d: integer;
dizi: array [1..10]of integer;
sayi: array [1..10]of integer;
begin
for i:=1 to 10 do begin
writeln (i, '.sayıyı girin');
readln (dizi[i]);
end;

for i:=1 to 9 do begin
for j:=i+1 to 10 do begin
if dizi[i]=dizi[j] then
a:=a+1;
sayi[i]:=a;
d:=dizi[i];
end;
end;
for b:=1 to 9 do begin
if sayi[b]>sayi[b+1] then
c:=sayi[b];
end;
writeln('Girilen sayıların içinde', d , 'sayısı', c , 'kere tekrar edilmiştir.');
readln();
End.

dizilerle yaptık ama deneme imkanımız olmadı umarım doğru çalışır
arkadaşlar banada bu konuda yardımcı olursanız sevinirim

1.N tane kişiye bir toplumsal konudaki eğilimlerini belirlemek üzere 7 tane soru sorulmuştur. Kişiler sorulara 1 ile 5 arasında cevaplar vermişlerdir. Ankette her soru için ÇOK OLUMLU görüşünü bildirmek isteyenler 1, OLUMLU görüşünü bildirmek isteyenler 2, TARAFSIZ görüşte olanlar 3, OLUMSUZ diyenler 4 ve ÇOK OLUMSUZ diyenler 5 kodlamışlardır. Her soru için cevapların yüzdelerini tablolayan bir program yazınız.
2.Verilen bir dizideki değerlerin ortalamasına en yakın olan değeri ve hangi sırada bulunduğunu hesaplayan bir program yazınız.
05-26-2012 18:01
Tüm Mesajlarını Bul Alıntı Yaparak Cevapla
« Önceki | Sonraki »
Cevapla 


Benzeyen Konular
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  turbo pascal TC kimlik No Bulma programı daisy 0 2,618 12-26-2010 18:43
Son Mesaj: daisy
  turbo pascal KOVALAMACA OYUNU alttireyedi 0 2,682 12-26-2010 1:36
Son Mesaj: alttireyedi
  turbo pascal Klavyeden Girilen İfadeyi Farklı Biçimlerde Yazan Program alttireyedi 0 2,067 12-26-2010 1:34
Son Mesaj: alttireyedi
  turbo pascal 'da Negatif-Pozitif Sayıyı Bulma alttireyedi 0 2,289 12-26-2010 1:26
Son Mesaj: alttireyedi
  turbo pascal case örneği girilen notun harf karşılığını bulan program alttireyedi 0 3,474 12-26-2010 1:23
Son Mesaj: alttireyedi
  Turbo Pascal 'da Banka Programı alttireyedi 0 2,060 12-26-2010 1:22
Son Mesaj: alttireyedi
  Turbo Pascal 'da Döviz Programı alttireyedi 0 2,041 12-26-2010 1:20
Son Mesaj: alttireyedi
  turbo pascal program örnekleri alttireyedi 0 3,875 12-26-2010 1:19
Son Mesaj: alttireyedi
  turbo pascal sayıların ortalamasını alma alttireyedi 0 2,501 12-26-2010 1:09
Son Mesaj: alttireyedi
  turbo pascal Hesap Makinesi Renk Kod Tablosu Çarpım Tablosu Kronometre prog alttireyedi 0 3,862 12-26-2010 1:08
Son Mesaj: alttireyedi

Konu ile Alakalı Anahtar Kelimeler

pascal indir, pascal Videosu, pascal online izle, pascal Bedava indir, pascal Yükle, pascal Hakkında, pascal nedir, pascal Free indir, pascal oyunu, pascal download

  • Paylaş
  • Yazdırılabilir Sürüm
  • Bu Konuyu Arkadaşına Gönder
  • Konuya Abone Ol
Forum'a Git:


Konuyu görüntüleyenler: 1 Misafir

Zaman: 07-18-2018, Saat: 12:08

Türkçe Çeviri: MyBB Türkiye
Üretici: MyBB, © 2002-2018 MyBB Group.


sınıf , kitap cevapları sınıf , kitap cevapları