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)

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
Şifrəni unutmusunuz?

Elan qutusu

Son cavablar və şərhlər

Cavablar AI cavab verdi - səsli kitab saytında müəllif hüquqları (34 gün əvvəl)

E. Hacı cavab verdi - səsli kitab saytında müəllif hüquqları (34 gün əvvəl)

evonline.az cavab verdi - Mahni axtariram, azerbaycanin klipi idi. (39 gün əvvəl)

Cənab cavab verdi - Abune kodu - qaz (52 gün əvvəl)

nihatt cavab verdi - Aztelekomun Huawei GPON modeminin login və şifrəsi (69 gün əvvəl)

Mesud cavab verdi - C++ aid məsələ (85 gün əvvəl)

Toofiq cavab verdi - Abune kodu - qaz (86 gün əvvəl)

Toofiq cavab verdi - Mahni axtariram, azerbaycanin klipi idi. (86 gün əvvəl)

selef cavab verdi - gömrük bağlamanı saxladı (104 gün əvvəl)

walkingdead4 cavab verdi - Niqodnilik haqqında yardım ederdiz (120 gün əvvəl)

Devequsu cavab verdi - Niqodnilik haqqında yardım ederdiz (121 gün əvvəl)

E. Hacı cavab verdi - Manual QA vs Wordpress (137 gün əvvəl)

SN cavab verdi - .az domaini whois serveri niyə işləmir? (181 gün əvvəl)

byshako cavab verdi - .az domaini whois serveri niyə işləmir? (182 gün əvvəl)

byshako cavab verdi - .az domaini whois serveri niyə işləmir? (182 gün əvvəl)

Lider istifadəçilər

Software Developer - 616 xal

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

Proyekt haqqında

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