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 

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

Cənab cavab verdi - Azərbaycandakı supermarket kassalarında işlədilən proqram (8 saat əvvəl)

E. Hacı cavab verdi - Proqramlaşdırma - fəlsəfə (1 gün əvvəl)

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

Cənab cavab verdi - kurs diplomu ilə işləyə bilərəm? (3 gün əvvəl)

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

E. Hacı cavab verdi - Proqramlaşdırma - fəlsəfə (5 gün əvvəl)

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

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

E. Hacı cavab verdi - Proqramlaşdırma - fəlsəfə (7 gün əvvəl)

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

Aysu2009 cavab verdi - Azərbaycan əsgər mahnısının sözlərini ingilis dilinə tərcümə etmək (9 gün əvvəl)

Aysu2009 cavab verdi - Atestat almaq üçün ne etmeliyem? (9 gün əvvəl)

Aysu2009 cavab verdi - Azərbaycan əsgər mahnısının sözlərini ingilis dilinə tərcümə etmək (9 gün əvvəl)

Software Developer cavab verdi - Xamaya başqa nə deyirlər? 6 hərflidir (14 gün əvvəl)

Erol34 cavab verdi - Xamaya başqa nə deyirlər? 6 hərflidir (15 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ş 23295 sualdan 92%-dən çoxu cavablandırılmışdır.

Proyekt haqqında

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