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

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

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

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

Triste cavab verdi - Google Adsense vergi (6 gün əvvəl)

E. Hacı cavab verdi - Xif mn kodu (14 gün əvvəl)

Khagrov cavab verdi - Axtardığım mahnını tapa bilmirəm kömək edin (33 gün əvvəl)

E. Hacı cavab verdi - Dünəndən Kompüterlə Twitter/X və Pinterest -ə girə bilmirəm. (40 gün əvvəl)

orkhanrza cavab verdi - AZ9095də bağlama qalıb (45 gün əvvəl)

Ismayil1997 cavab verdi - İndiki dövrdə İngilis dili müəllimliyi ixtisasını seçməyə dəyər? (54 gün əvvəl)

revan orucov cavab verdi - Bakıda evə 100mbps+ internet verən provayder var? (58 gün əvvəl)

E. Hacı cavab verdi - WordPress sistemli saytda Facebook və İnstagram platformalarına özəl target_blank tənzimlənməsi haqqında... (60 gün əvvəl)

Jurnalist cavab verdi - WordPress sistemli saytda Facebook və İnstagram platformalarına özəl target_blank tənzimlənməsi haqqında... (60 gün əvvəl)

asssa1 cavab verdi - Riyazi proqramlar üçün proqram (62 gün əvvəl)

Aleks cavab verdi - İndiki dövrdə İngilis dili müəllimliyi ixtisasını seçməyə dəyər? (68 gün əvvəl)

E. Hacı cavab verdi - İndiki dövrdə İngilis dili müəllimliyi ixtisasını seçməyə dəyər? (68 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ş 23288 sualdan 92%-dən çoxu cavablandırılmışdır.

Proyekt haqqında

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