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:09   #1
Çevrimdışı
Su Dağıtım Programı


-- Sponsor Baglantı --


Pascal programlama dilinde yazılmış bu programda bir su tankeri 100 litre su ile doludur. Bidonlara bu tankerden su doldurulacaktır. Bidon kapasiteleri programa veri olarak girilecektir. Veri girme işlemini bitirmek için 0 gözcü değeri kullanılacaktır. İstekte bulunanların hangilerinin tankerden istedikleri suyun tamamını, hangilerinin bir kısmını ve hangilerinin hiç alamayacaklarını gösterilmiştir.

Test İşlemi:
Girdi : 30 40 20 30 50 10 0
Sonuç: 3 bidon tamamen doldurulur. 2 bidon hiç doldurumaz. 4. bidonun 30 litreden 10 litresi doldurulur.

Program Kodu:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
uses crt; var bidon:array[1..100] of integer; dl:array[1..100] of integer; i,j,s,b,d,kalan:integer; begin clrscr; writeln('Bidon kapasitelerini giriniz...:'); s:=0;b:=0;d:=0; repeat readln(b);s:=s+1; bidon[s]:=b; until b=0; readln; for i:=1 to s-1 do dl[i]:=0; kalan:=100; for i:=1 to s-1 do begin kalan:= kalan-bidon[i]; if kalan >= 0 then dl[i]:=2 else if kalan < 0 then begin kalan:= kalan + bidon[i]; i:=s-1;end; end; j:=0; if kalan<>0 then begin for i:=1 to s-1 do begin if j=0 then if dl[i]<>2 then begin dl[i]:=1; j:=i;end; end; end; for i:=1 to s-1 do if dl[i]=0 then b:=b+1 else if dl[i]=2 then d:=d+1; writeln(''); writeln(d, ' bidon tamamen doldurulur.'); writeln(b, ' bidon hic doldurulmaz.'); if kalan<>0 then writeln(j, '. bidonun ', bidon[j], ' litreden ', kalan, ' litresi doldurulur.'); readln; end.

Pascal programlama dilinde yazılmış bu programda bir su tankeri 100 litre su ile doludur. Bidonlara bu tankerden su doldurulacaktır. Bidon kapasiteleri programa veri olarak girilecektir. Veri girme işlemini bitirmek için 0 gözcü değeri kullanılacaktır. İstekte bulunanların hangilerinin tankerden istedikleri suyun tamamını, hangilerinin bir kısmını ve hangilerinin hiç alamayacaklarını gösterilmiştir.

Test İşlemi:
Girdi : 30 40 20 30 50 10 0
Sonuç: 3 bidon tamamen doldurulur. 2 bidon hiç doldurumaz. 4. bidonun 30 litreden 10 litresi doldurulur.

Program Kodu:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
uses crt; var bidon:array[1..100] of integer; dl:array[1..100] of integer; i,j,s,b,d,kalan:integer; begin clrscr; writeln('Bidon kapasitelerini giriniz...:'); s:=0;b:=0;d:=0; repeat readln(b);s:=s+1; bidon[s]:=b; until b=0; readln; for i:=1 to s-1 do dl[i]:=0; kalan:=100; for i:=1 to s-1 do begin kalan:= kalan-bidon[i]; if kalan >= 0 then dl[i]:=2 else if kalan < 0 then begin kalan:= kalan + bidon[i]; i:=s-1;end; end; j:=0; if kalan<>0 then begin for i:=1 to s-1 do begin if j=0 then if dl[i]<>2 then begin dl[i]:=1; j:=i;end; end; end; for i:=1 to s-1 do if dl[i]=0 then b:=b+1 else if dl[i]=2 then d:=d+1; writeln(''); writeln(d, ' bidon tamamen doldurulur.'); writeln(b, ' bidon hic doldurulmaz.'); if kalan<>0 then writeln(j, '. bidonun ', bidon[j], ' litreden ', kalan, ' litresi doldurulur.'); 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
dağıtım, programı, su

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
C# - Asker dağıtım programı :) aSi C# 0 21 Temmuz 2013 11:39