0 oy
Programlama/Kod kategorisinde tarafından soruldu
tarafından tekrar etiketlendi
klavyeden girilen 20 tane sayını tek olanların toplamınu bulup çift olanların  toplamına bölen programı blup sonucu ekrana yazan programı bulunuz
(10.3k puan) tarafından yorumlandı
Hangi dilde olduğunu da söyleseydin?

1 cevap

0 oy
(10.3k puan) tarafından cevaplandı
tarafından düzenlendi

C++

 

#include <iostream>
using namespace std;

int main() {
float tekToplam = 0.0; // Tek sayilarin toplamini tutmak icin, baslangic degeri 0
float ciftToplam = 0.0; // Cift sayilarin toplamini tutmak icin, baslangic degeri 0
int sayi; // Kullanicinin girdigi, test edip toplayacagimiz sayi
float sonuc = 0.0; // bolme islemi sonucu bu degiskene atanacak

// Dongu kullanip 20 sayi alip degiskenlerde toplayalim
int sayac = 1; // Dongude kullanacagimiz sayac
while (sayac <= 20) {
// kullanicidan rakam iste
cout << sayac << ". rakami gir: ";
// girilen sayiyi sayi degiskenine ata
cin >> sayi;
if (sayi % 2 == 0) { // cift sayi
ciftToplam = ciftToplam + sayi;
} else { // tek sayi
tekToplam = tekToplam + sayi;
}
sayac++; // sayaci bir artir
}

sonuc = (tekToplam / ciftToplam);
// Verileri ve sonucu ekrana yazdir
cout << "Tek sayilarin toplami " << tekToplam << endl;
cout << "Cift sayilarin toplami " << ciftToplam << endl;
cout << "Bolme islemi: Tek Sayilarin Toplami/Cift Sayilarin Toplami " << sonuc << endl;

return 0;

}

PYTHON

not: indentler bozuluyor buraya yapıştırınca, düzeltmeyi unutma

tekToplam = 0.0
ciftToplam = 0.0
sonuc = 0.0
sayac = 1
sayi = 0

while (sayac <= 20):
    try:
    sayi = int(input(str(sayac) + ". sayiyi girin: "))
if sayi % 2 == 1:
    tekToplam = tekToplam + sayi
else :
    ciftToplam = ciftToplam + sayi
sayac = sayac + 1
except ValueError:
    print("Lutfen bir rakam girin")

sonuc = tekToplam / ciftToplam
print("Sonuc: " + str(sonuc))

PERL

#!/usr/bin/perl -w

use strict;
my $tekToplam = 0.0;
my $ciftToplam = 0.0;
my $sayac = 1;
my $sayi = 0;
my $sonuc = 0.0;
while ($sayac <= 20) {
    print $sayac.
    ". sayiyi girin: ";
    $sayi = < STDIN > ;
    chomp($sayi);
    if ($sayi = ~/\D/) {
        print "Lutfen bir sayi girin\n";
    } else {
        if ($sayi % 2 == 0) {
            $ciftToplam += $sayi;
        } else {
            $tekToplam += $sayi;
        }
        $sayac++;
    }
}
$sonuc = $tekToplam / $ciftToplam;
print $sonuc;

 

tarafından yorumlandı
tarafından taşındı
adımlayarak yapcaz 1-2-3 diye 1-başla öyle
(10.3k puan) tarafından yorumlandı
tarafından düzenlendi
Çok emin değilim ama herhalde şöyle birşey olur:
1. BAŞLA
2. SAYAÇ = 1
3. SAYI = 0
4. ÇİFT = 0
5. TEK = 0
6. SONUÇ = 0
7. SAYAÇ<=20 olduğu sürece tekrarla
7a. SAYI OKU
7b. SAYI ÇİFT İSE ÇİFT=ÇİFT+SAYI
7c. SAYI TEK İSE TEK=TEK+SAYI
7d. SAYAÇ = SAYAÇ + 1
8. DÖNGÜ SONU
9. SONUÇ = TEK/ÇİFT
10. SONUÇ YAZ
11. SON

edit: sayacı artırmayı unutmuşuz :) +7d
...