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

Un-know (2012-05-20 16:12:13)
Təşəkkür edirəm. Bu daha aydındır

Mehman Elxanoglu (2012-05-20 01:43:46)
Bir az fikirləşdim və bir az da sadə yazmaq olardı: [code] 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; [/code]

Un-know (2012-05-19 22:58:21)
İşlədi. Çoxsağol

Mehman Elxanoglu (2012-05-19 22:54:03)
Bu cür yaz: [code] 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; [/code]

Mehman Elxanoglu (2012-05-19 22:48:58)
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ı :)

Un-know (2012-05-19 22:47:12)
Proqramda sehvlik çıxdı. 1:1 lər nə deməkdi?

Un-know (2012-05-19 22:41:04)
Təşəkkür edirəm

Mehman Elxanoglu (2012-05-19 22:30:12)
Məsələn, ədədimiz 4357 olsun. Onda [code] 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; [/code] Ədədin rəqəmlərinin sayını da oxşar (ancaq az fərqli) qayda ilə də tapmaq olar.

Sual və cavabları tam formada göstər

Mövzu üzrə bənzər suallara da baxa bilərsiniz.

Massiv orta elementləri – Pascal.

Paskal proqramlaşdırma dilində yaxşı ideya axtarışındayam.

Pascalda müəyyən addımlarla iç-içə dövrlər

Pascal proqramlaşdırma dilindә massivin emalı

Pascal ABC ni nece yukleyim?

Pascalda həqiqi ədədlərin çıxışa verilməsi