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

Son cavablar və şərhlər

sahib.musayeva cavab verdi - Sancaq insana nə edə bilər (7 saat əvvəl)

neo13 cavab verdi - Ubuntu haqqında suallarım var. (8 saat əvvəl)

neo13 cavab verdi - windows 10 internetden (9 saat əvvəl)

neo13 cavab verdi - Skrill-də debit kart təsdiqləmə (9 saat əvvəl)

neo13 cavab verdi - Aliexpress, ünvan (9 saat əvvəl)

nick123123 cavab verdi - Aliexpress bazarlıq. (9 saat əvvəl)

faiqalizade cavab verdi - Mobil application ideyası (10 saat əvvəl)

Maqa cavab verdi - Visaelectron kartina pul gəlmeyib (11 saat əvvəl)

Maqa cavab verdi - Sizcə bu balla zərbəçi spendiyası almaq olar? (11 saat əvvəl)

PROHuseyn cavab verdi - windows 10 internetden (12 saat əvvəl)

World-Wide-Web cavab verdi - SHA 256 Decryption, şifrələməni açmaq. (14 saat əvvəl)

E. Hacı cavab verdi - SHA 256 Decryption, şifrələməni açmaq. (1 gün əvvəl)

ibrahimaliyevf cavab verdi - Parolsuz WiFi-nin parolunu necə dəyişmək və ya necə yeni parol qoymaq olar ? (1 gün əvvəl)

World-Wide-Web cavab verdi - SHA 256 Decryption, şifrələməni açmaq. (1 gün əvvəl)

selef cavab verdi - Skrill hesabımı qeydiyyatdan keçirə bilmirəm. (1 gün əvvəl)

E. Hacı - 571 xal

Software Developer - 571 xal

Onar Alili - 526 xal

Dilsuz - 448 xal

Cabbarov Sübhan - 414 xal

Ruslan Butdayev - 328 xal

Namiq Bəndəli - 297 xal

U.Tarlan - 244 xal

Meherremoff - 234 xal

Bextiyar Azeroglu - 217 xal

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

Proyekt haqqında

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