Pascalda 4 rəqəmli natural ədədin rəqəmlərini ayırmaq

Salam. Bele bir sualda qalmışam 4 rəqəmli natural ədədin rəqəmlərini ayırmaq üçün proqram tərtib etməli. Pascalda yazmaq lazımdı


Yadda saxlama
Kateqoriya: Proqramlaşdırma . . Qısa keçid.

Verilmiş cavablar və yazılan şərhlər (8 cavab var)

(22:30, 19/05/2012 ) #15599

Məsələn, ədədimiz 4357 olsun. Onda

var n: integer; teklik, onluq, yuzluk, minlik: ShortInt;
begin
writeln('n = '); readln(n);
teklik:=n mod 10; //4357 mod 10 = 7 edir.
writeln('teklik = ', teklik:1:1);
onluq:=((n-teklik) div 10) mod 10; 
// 4357 - 7 = 4350; 4350 div 10 = 435; 435 mod 10 = 5 edir.
writeln('onluq = ', onluq:1:1);
yuzluk:=((n-10*onluq-teklik) div 100) mod 10;
// 4357 - 10*5 - 7 = 4300; 4300 div 100 = 43; 43 mod 10 = 3 edir.
writeln('yuzluk = ', yuzluk:1:1);
minlik:=(n-100*yuzluk-10*onluq-teklik) div 1000;
// 4357 - 100*3 - 10*5 - 7 = 4000; 4000 div 1000 = 4 edir.
writeln('minlik = ', minlik:1:1);
writeln('Ededin ozu = ', n:4:4);
end;

Ədədin rəqəmlərinin sayını da oxşar (ancaq az fərqli) qayda ilə də tapmaq olar.

Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

(22:41, 19/05/2012 ) #15603

Təşəkkür edirəm

Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

(22:47, 19/05/2012 ) #15605

Proqramda sehvlik çıxdı. 1:1 lər nə deməkdi?

Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

    (22:48, 19/05/2012 ) #15606

    Onları silə də bilərsən, səhv etmirəmsə, çap üçün ayrılmış yerlər olmalıdır, ancaq bundan istifadə qaydasını hələ də bilmirəm. Sil onları 🙂

    Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

    (22:54, 19/05/2012 ) #15608

    Bu cür yaz:

    var n: integer; teklik, onluq, yuzluk, minlik: ShortInt;
    begin
      writeln('n = '); readln(n);
    
      teklik:=n mod 10; //4357 mod 10 = 7 edir.
      writeln('teklik = ', teklik);
    
      onluq:=((n-teklik) div 10) mod 10;
    // 4357 - 7 = 4350; 4350 div 10 = 435; 435 mod 10 = 5 edir.
      writeln('onluq = ', onluq);
    
      yuzluk:=((n-10*onluq-teklik) div 100) mod 10;
    // 4357 - 10*5 - 7 = 4300; 4300 div 100 = 43; 43 mod 10 = 3 edir.
      writeln('yuzluk = ', yuzluk);
    
      minlik:=(n-100*yuzluk-10*onluq-teklik) div 1000;
    // 4357 - 100*3 - 10*5 - 7 = 4000; 4000 div 1000 = 4 edir.
      writeln('minlik = ', minlik);
    
      writeln('Ededin ozu = ', n);
    end;
    
    Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

(22:58, 19/05/2012 ) #15609

İşlədi. Çoxsağol

Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

    (01:43, 20/05/2012 ) #15614

    Bir az fikirləşdim və bir az da sadə yazmaq olardı:

    var n: integer; teklik, onluq, yuzluk, minlik: ShortInt;
    begin
      writeln('n = '); readln(n);
     
      teklik:=n mod 10;
    //4357 mod 10 = 7 edir.
      writeln('teklik = ', teklik);
     
      onluq:=(n div 10) mod 10;
    // 4357 div 10 = 435; 435 mod 10 = 5 edir.
      writeln('onluq = ', onluq);
     
      yuzluk:=(n div 100) mod 10;
    // 4357 div 100 = 43; 43 mod 10 = 3 edir.
      writeln('yuzluk = ', yuzluk);
     
      minlik:=n div 1000;
    // 4357 div 1000 = 4 edir.
      writeln('minlik = ', minlik);
     
      writeln('Ededin ozu = ', n);
    end;
    
    Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

(16:12, 20/05/2012 ) #15643

Təşəkkür edirəm. Bu daha aydındır

Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

Bu suala aid öz sualım var:
Sual verin
Bu suala cavab vermək istəyirəm:
Cavab verin

Cavab verin


Cavab yazmaq üçün lütfən sağ sütundan və ya buradan hesaba daxil olun.

Üzvlər üçün giriş

Qeydiyyat

Elan qutusu

Son cavablar və şərhlər

MiMov cavab verdi - Özəl ip tv qurmaq (4 gün əvvəl)

MiMov cavab verdi - iptv onlayn paket almaq (4 gün əvvəl)

E. Hacı cavab verdi - 300$ Gömrük Limitini keçdim (10 gün əvvəl)

Software Developer cavab verdi - Aliexpress gömrük rüsumu nəyə görə hesablanır? (12 gün əvvəl)

AliyevYT cavab verdi - Honeygain, passiv gelir (13 gün əvvəl)

Sıradan biri cavab verdi - IMEI qeydiyyatı (15 gün əvvəl)

Fariz Huseynli cavab verdi - cerimenin öyrənilməsi (18 gün əvvəl)

Software Developer cavab verdi - cerimenin öyrənilməsi (19 gün əvvəl)

Software Developer cavab verdi - Kapital bank rekvizit payoneer (19 gün əvvəl)

Software Developer cavab verdi - Hər hansı kompyuter proqramının (EXE faylı) etibarlı olub olmaması yəni qanuni və ya saxta olduğunu necə bilmək olar ? (19 gün əvvəl)

txmn cavab verdi - Hərbi biletsiz, möhlətsiz iş (22 gün əvvəl)

Galaxy cavab verdi - X-də (Twitter) premium abunəliklə bağlı çətinlik (22 gün əvvəl)

Rsad Ncfli cavab verdi - Payonner 2024 ilə bağlı sual (28 gün əvvəl)

Software Developer cavab verdi - Payonner 2024 ilə bağlı sual (28 gün əvvəl)

Rsad Ncfli cavab verdi - Payonner 2024 ilə bağlı sual (28 gün əvvəl)

Software Developer - 615 xal

E. Hacı - 607 xal

Onar Alili - 526 xal

Dilsuz - 448 xal

Cabbarov Sübhan - 434 xal

Maqa - 346 xal

Ruslan Butdayev - 328 xal

Namiq Bəndəli - 297 xal

U.Tarlan - 244 xal

Meherremoff - 234 xal

Sistemə daxil olmuş 23229 sualdan 92%-dən çoxu cavablandırılmışdır.

Proyekt haqqında

E-Haci.net istehsalı. © 2010-2024