pascal dan c ye

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb pascal dan c++ye

Bu konudaki kullanıcılar: 1 misafir

0
Cevap 679
Tıklama 0
Öne Çıkarma

1. sayfa

pascal dan c++ye

Cevap Yaz

saybek

19 yıl (312 mesaj)

Yüzbaşı

Konu Sahibi

'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

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

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

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb pascal dan c++ye