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

Məsələ Turbo Paskalda

Hər kəsə salamlar.
Xahiş edirəm bilənlər kömək eləsin!!!
Turbo Paskala aid 2 məsələ var.

1.Polindromik sabitin əvvəldən və sondan eyni oxunduğu məlum olduğu halda, x ədədinin polindromik ədəd olub-olmadığını təyin edən proqram.

2. m – ə böldükdə qalıqda h olan ədədin tapilmasi ücün proqram.


Kateqoriya: Sual . , , . Qısa keçid.

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

(20:49, 25/04/2016 ) #62800

Salam
Polindromik ədəd bildiyimə görə hər iki tərəfdən eyni olan ədəddir. Məsələn 101 kimi. Belə ədədlərin tapılması üçün proqram aşağıdakı şəkildə ola bilər:

Program Cavablar_Net;
var eded,eded2,tersi:integer;
qaliq:integer;
i: integer;
begin
tersi:=0;
writeln('Ededi daxil edin:');
readln(eded);
eded2:=eded;
while(eded>0) do begin
qaliq:=eded mod 10;
eded:=eded div 10;
tersi:=tersi*10+qaliq;
end;
if(eded2=tersi) then begin
writeln('Daxil olunan eded polindromik ededdir.');
end
else begin
writeln('Daxil olunan eded polindromik eded deyil.');
end;
readln;
end.

2-ci proqram isə çox sadədir. Sadəcə mod instruksiyasından istifadə etməklə qalığı tapmaq lazımdır. Kod aşağıdakı şəkildə olur:

Program Cavablar_Net;
var bolunen,m,h:integer;
begin
writeln('Boluneni daxil edin:');
readln(bolunen);
writeln('M-i daxil edin:');
readln(m);
h:=bolunen mod m;
writeln('Bolunmeden alinan qaliq:', h);
readln;
end.
Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır


(08:14, 26/04/2016 ) #62806

m -ə bölündükdə qalıada h olanı tapmaq tələb olunursa başlanğıc məlumat olaraq m və h daxil olunmalıdır, h-ı proqram hesablamalı deyil. Məncə cavab aşağıdakı kimi olmalıdır:

eger (m <= h) onda
capet ( m – ə bölünəndə qalıqda h olan ədəd mövcud deyil)
eks halda
capet m*k+h
// k istənilən tam ədəddir 1,2,3, …

Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

Cavab verin


Cavab yazmaq üçün lütfən sağ sütundan və ya buradan hesaba daxil olun.

Üzvlər üçün giriş

Qeydiyyat

Elan qutusu

Software Developer - 571 xal

E. Hacı - 560 xal

Onar Alili - 526 xal

Dilsuz - 448 xal

Cabbarov Sübhan - 411 xal

Ruslan Butdayev - 328 xal

Namiq Bəndəli - 297 xal

U.Tarlan - 244 xal

Meherremoff - 234 xal

Bextiyar Azeroglu - 214 xal

Sistemə daxil olmuş 17346 sualdan 94%-dən çoxu cavablandırılmışdır.

Proyekt haqqında

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