SUAL VERİN

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ı

Sualı verdi: Un-know (19/05/2012)

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

view source
print?
1var n: integer; teklik, onluq, yuzluk, minlik: ShortInt;
2begin
3writeln('n = '); readln(n);
4teklik:=n mod 10; //4357 mod 10 = 7 edir.
5writeln('teklik = ', teklik:1:1);
6onluq:=((n-teklik) div 10) mod 10;
7// 4357 - 7 = 4350; 4350 div 10 = 435; 435 mod 10 = 5 edir.
8writeln('onluq = ', onluq:1:1);
9yuzluk:=((n-10*onluq-teklik) div 100) mod 10;
10// 4357 - 10*5 - 7 = 4300; 4300 div 100 = 43; 43 mod 10 = 3 edir.
11writeln('yuzluk = ', yuzluk:1:1);
12minlik:=(n-100*yuzluk-10*onluq-teklik) div 1000;
13// 4357 - 100*3 - 10*5 - 7 = 4000; 4000 div 1000 = 4 edir.
14writeln('minlik = ', minlik:1:1);
15writeln('Ededin ozu = ', n:4:4);
16end;

Ə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:

    view source
    print?
    1var n: integer; teklik, onluq, yuzluk, minlik: ShortInt;
    2begin
    3  writeln('n = '); readln(n);
    4 
    5  teklik:=n mod 10; //4357 mod 10 = 7 edir.
    6  writeln('teklik = ', teklik);
    7 
    8  onluq:=((n-teklik) div 10) mod 10;
    9// 4357 - 7 = 4350; 4350 div 10 = 435; 435 mod 10 = 5 edir.
    10  writeln('onluq = ', onluq);
    11 
    12  yuzluk:=((n-10*onluq-teklik) div 100) mod 10;
    13// 4357 - 10*5 - 7 = 4300; 4300 div 100 = 43; 43 mod 10 = 3 edir.
    14  writeln('yuzluk = ', yuzluk);
    15 
    16  minlik:=(n-100*yuzluk-10*onluq-teklik) div 1000;
    17// 4357 - 100*3 - 10*5 - 7 = 4000; 4000 div 1000 = 4 edir.
    18  writeln('minlik = ', minlik);
    19 
    20  writeln('Ededin ozu = ', n);
    21end;
    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ı:

    view source
    print?
    1var n: integer; teklik, onluq, yuzluk, minlik: ShortInt;
    2begin
    3  writeln('n = '); readln(n);
    4  
    5  teklik:=n mod 10;
    6//4357 mod 10 = 7 edir.
    7  writeln('teklik = ', teklik);
    8  
    9  onluq:=(n div 10) mod 10;
    10// 4357 div 10 = 435; 435 mod 10 = 5 edir.
    11  writeln('onluq = ', onluq);
    12  
    13  yuzluk:=(n div 100) mod 10;
    14// 4357 div 100 = 43; 43 mod 10 = 3 edir.
    15  writeln('yuzluk = ', yuzluk);
    16  
    17  minlik:=n div 1000;
    18// 4357 div 1000 = 4 edir.
    19  writeln('minlik = ', minlik);
    20  
    21  writeln('Ededin ozu = ', n);
    22end;
    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
Şifrəni unutmusunuz?

Elan qutusu

Son cavablar və şərhlər

E. Hacı cavab verdi - Elektron servis xidmətləri (3 gün əvvəl)

cavaninsan cavab verdi - Amerika səhmləri (12 gün əvvəl)

Software Developer cavab verdi - Amerika səhmləri (12 gün əvvəl)

SN cavab verdi - Kripto vergi (21 gün əvvəl)

Nicat97 cavab verdi - ilkaddimlar.com-a nə oldu? (28 gün əvvəl)

nicatmemmedli cavab verdi - Proqramlaşdırma - fəlsəfə (32 gün əvvəl)

nicatmemmedli cavab verdi - ilkaddimlar.com-a nə oldu? (32 gün əvvəl)

Software Developer cavab verdi - ilkaddimlar.com-a nə oldu? (42 gün əvvəl)

E. Hacı cavab verdi - Adsense ya görə VÖEN gəlir vergisi 20% istəyirlər (51 gün əvvəl)

Triste cavab verdi - Adsense ya görə VÖEN gəlir vergisi 20% istəyirlər (53 gün əvvəl)

E. Hacı cavab verdi - Adsense ya görə VÖEN gəlir vergisi 20% istəyirlər (53 gün əvvəl)

Triste cavab verdi - Adsense ya görə VÖEN gəlir vergisi 20% istəyirlər (53 gün əvvəl)

E. Hacı cavab verdi - Telefon almışam kamerasında ləkə var qaytarmaq istəyirəm, mağaza qaytarmır (54 gün əvvəl)

Software Developer cavab verdi - Rus dili yatırımı (54 gün əvvəl)

Cənab cavab verdi - Rus dili yatırımı (54 gün əvvəl)

Lider istifadəçilər

Software Developer - 615 xal

E. Hacı - 608 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ş 23309 sualdan 92%-dən çoxu cavablandırılmışdır.

Proyekt haqqında

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