Şimdi Ara

pascal dan c++ye

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
2
Cevap
0
Favori
451
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • 'bunu c++ ye çevirebilecek babayiğit var mı?

    Millet Vekili Secim Programi.




    uses crt;
    var
    a,b,...,n=real;
    P=byte;
    N=longint;
    M=integer;
    i=integer;
    j=integer;
    begin
    clrscr;
    i=1;
    for i:=1 to N do
    begin
    i:=i+1;
    write('Hangi partiye oy verildigini parti numarasini girerek belirtiniz.')
    read(j);
    j:=1,2,...,P
    if j:=1 then begin a:=0; a:=a+1; end;

    if j:=2 then begin a:=0; b:=b+1; end;

    ...

    if j:=p then begin n:=0; n:=n+1; end;

    end;
    clrscr;

    if 10:<=(a/N)*100 then a:=0; writeln('1 numara ile aday parti baraji gecememistir.');
    if 10:>=(a/N)*100 then writeln('1 numara ile aday parti 'a' oy ile baraji gecmistir ve millet vekili sayisi'M*(a/(a+b+...+n))'kisidir.');
    if 10:=(a/N)*100 then writeln('1 numara ile aday parti baraja takilmistir.');


    if 10:<=(b/N)*100 then b:=0 writeln('2 numara ile aday parti baraji gecememistir.');
    if 10:>=(b/N)*100 then wrriteln('2 numara ile aday parti 'b' oy ile baraji gecmistir ve millet vekili sayisi'M*(b/(a+b+...+n))'kisidir.');
    if 10:=(b/N)*100 then wrriteln('2 numara ile aday parti baraja takilmistir.');

    ...

    if 10:<=(n/N)*100 then n:=0 writeln('
    end



    < Bu mesaj bu kişi tarafından değiştirildi saybek -- 22 Aralık 2007; 0:15:22 >







  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.