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 695
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

< 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