Plc asal sayı belirleyen program

ReIoaded

Üye
Katılım
9 Eyl 2019
Mesajlar
5
Puanları
1
Yaş
22
0 dan 100e sayan ve arasındakileri belirleyen bir program ladderlarla yazılabilir mi? Nasıl yapabilirim yardımcı olur msuunuz
*Arasındaki asal sayıları belirleyen
 
Moderatör tarafında düzenlendi:

elektronikmuh

Yönetici
Yönetici
Yönetici
Katılım
13 Ocak 2007
Mesajlar
1,914
Puanları
1,768
Yaş
42
 

eemyazgan

Üye
Katılım
25 Kas 2018
Mesajlar
27
Puanları
3
Yaş
23
counter , matematiksel komutlar ile bu programı yazabilirsin. 2 tane hmi 'a girilecek değer gönder . sonrasında o değerleri counter a at. alt limitte saymaya başlasın üst limittede programı sonlandırsın gelen asalları da word'e atarsan sorun çözülür sanırım. akşama yapmaya çalışayım, yaparsan nasıl yaptığımı anlatırım ama projeyi sen yapacaksın projeyi atmam :D
 

elektronikmuh

Yönetici
Yönetici
Yönetici
Katılım
13 Ocak 2007
Mesajlar
1,914
Puanları
1,768
Yaş
42
Kod:
PROGRAM PLC_PRG
VAR
    sayac, sayi: INT;
    sonuc:ARRAY[0..100] OF  INT;
END_VAR
Kod:
    FOR sayac:=0 TO (sayi-1) DO
        IF sayac >1 THEN
            IF sayac = 2 OR sayac = 3 OR sayac = 5  THEN
                sonuc[sayac] := sayac;
            ELSE
                IF (sayac MOD 2) = 0 OR (sayac MOD 3) = 0 OR (sayac MOD 10) = 5   THEN
                    ;
                ELSE
                    sonuc[sayac] := sayac;
                END_IF;
            END_IF;
        END_IF;
    END_FOR;
 
Son düzenleme:

elektronikmuh

Yönetici
Yönetici
Yönetici
Katılım
13 Ocak 2007
Mesajlar
1,914
Puanları
1,768
Yaş
42
Kod:
IF HesaplamaBasla THEN   (* HesaplamaBasla(bool) komutuyla hesaplamaya baslanır *)

    FOR i:=0 TO 100 DO   (* Daha önce hesaplama varsa tüm Array içi önce sıfırlanır *)
        sonuc[i]  := 0;
    END_FOR

    HesaplamaOK    := FALSE;
    HesaplamaBasla := FALSE;
    j := 0;

    FOR sayac:=0 TO (sayi-1) DO  (* sayi degeri 100'e ayarlanmalı, hesaplamaya başlamadan önce *)
        IF sayac >1 THEN    (* Asal sayılar aranır *)
            IF sayac = 2 OR sayac = 3 OR sayac=5 THEN
                sonuc[j] := sayac;  (* 2,3 ve 5 sayıları aşağıdaki formulden bağımsız zaten asaldır *)
                j := j +1;
            ELSE
               (* Sayı>5 durumunda 2,3 veya 5 e bölünüyorsa Array içine yazılmaz! *)
                IF (sayac MOD 2) = 0 OR (sayac MOD 3) = 0 OR   (sayac MOD 10) = 5   THEN
                    ;
                ELSE
                    sonuc[j] := sayac;
                    j := j +1;
                END_IF;
            END_IF;
        END_IF;
    END_FOR;

    HesaplamaOK := TRUE;
END_IF  (* HesaplamaBasla komutu if sonu *)
 
Son düzenleme:

Sponsor Bağlantı

Yeni mesajlar

Forum istatistikleri

Konular
107,708
Mesajlar
759,577
Kullanıcılar
399,982
Son üye
yunus3147

Yeni konular

Üst