Ən Yüksək Ümumi Faktor Kalkulyatoru: 6 Addım

2024 Müəllif: John Day | [email protected]. Son dəyişdirildi: 2024-01-30 07:44

bir çox dostlarım və uşaqlarımın hər hansı bir dəstənin ən yüksək ümumi faktorunu (HCF) tapmaq problemi var. Bunun səbəbi, ölkəmdə təhsilin həqiqətən alt standart olmasıdır. Uşaqlar tez -tez ağıllı öyrənmə və sərt qaydalara müraciət edirlər.

Bu mənada HCF hesablayan bir proqram yaratdım.

bu əslində əllə edilə bilməsə də və HCF almaq üçün daha asan və sadə yollar olsa da şəxsən bunun ən primitiv və buna görə də texnikanın ən əsası olduğunu düşünürəm. Ümid edirəm ki, insanlar HCF -in mahiyyətini anlaya biləcəklər.

Bu gün yazacağım proqramlaşdırma dili konsol rejimində Microsoft studio 2010 -dur

hərflərə həssas olmadığı və istifadəçi dostu olduğu üçün yeni başlayanlar üçün idealdır.

Addım 1: Adım 1: Dəyişənlərin elan edilməsi

hər hansı bir proqramda manipulyasiya üçün hər hansı bir məlumat formasını saxlamaq istədiyimiz zaman dəyişənləri elan etməliyik. Proqramımda bir çox növ olmasına baxmayaraq yalnız yerli dəyişənlərdən istifadə etdim.

inteqral dəyişənləri formatda saxlayır

Dim x Tam ədəd olaraq

bu dəyişəni "x" adıyla tam bir məlumat növü olaraq etiketləyir

proqramda bu dəyişənləri elan etməliyik

İlk növbədə Sayı, ikincisi, TEMP, HCF kimi Tam ədəd

əsasən dəyişənlər üçün adları ilə saxladım: firstNum, secondNum, TEMP, HCF

Addım 2: Dəyişənlərin saxlanması

Dəyişən elan etdikdən sonra ona dəyər təyin etməliyik, əks halda faydasızdır.

Bunun üçün "=" operatorundan istifadə edirik

lakin onu istifadəçidən oxumaq üçün onu daxil etmək üçün bir yola ehtiyacımız var. "Console. ReadLine" funksiyasından istifadə edirik

bu, vizual əsas konsol rejiminin bir funksiyasıdır və bu konsola yazılmış xətti oxuyur

proqram belə gedir;

firstNum = Console. ReadLine

sonrakı dəyişənlə eyni şeyi edirik

secondNum = Console. ReadLine

bu proqram tərəfindən manipulyasiya üçün iki ədəd saxlayır

Addım 3: Müqayisə

Sonra iki dəyişəni müqayisə edirik və hansının daha kiçik olduğunu yoxlayırıq. daha böyük rəqəmi də istifadə edə bilərik, amma proqrama artıq yük yükləmək faydasız olar. lakin hər iki dəyişən bərabərdirsə, ya istifadə edə bilərik

müqayisə etmək üçün if ifadələrini istifadə edirik

Əgər şərt O zaman (şərt doğrudursa hərəkət)

Başqa bir halda

(şərt doğrudursa hərəkət)

Bitirsə

buna görə əslində belə görünür

Əgər birinciSayı <saniyəSayı Sonra

ElseIf FirstNum = SecondNum Sonra

TEMP = saniyə sayı

Bitirsə

Addım 4: HCF tapmaq

nəzəriyyədə HCF, verilən bütün ədədlərin qalan hissəsini tərk etmədən ayrı -ayrılıqda bölünə biləcəyi ən yüksək tam ədəddir. ya da kompüterin mənasında sıfırın qalan hissəsi

Proqramımda nömrələri bölməyə davam edirəm və qalanları buraxmadan bütün ədədləri bölən mümkün olan ən yüksək tamsayı əldə edənə qədər artırıram.

Bunun üçün "iteration loop" istifadə edəcəyəm

sintaksis gedir:

İ = (hər hansı bir nömrə) - (hər hansı bir ədəd) addım (artan ədəd) üçün

(funksiya)

Sonrakı

0 -a bölə bilmədiyim üçün 1 -dən başlayaraq ən kiçik rəqəmə keçməliyəm. Bunun səbəbi, HCF hər hansı bir rəqəmdən böyük ola bilməməsidir. Yadınızdadırsa, ən az sayını 'TEMP' dəyişənində saxladıq.

ədədləri müqayisə etmək üçün if ifadəsini istifadə edəcəyik.

Bu vəzifə üçün modul operatoru adlanan xüsusi bir operatordan da istifadə edəcəyik

bu bir hissədən qalanı qaytarır

onun sintaksisi belədir

(ədəd) mod (bölücü)

digər proqramlaşdırma dillərində, yəni C ++, mod faiz işarəsi ilə əvəz edilə bilər '%'

buna görə proqramımız üçün yazırıq

İ = 1 üçün TEMP Addım 1

Əgər ((birinciSayı Mod i = 0) Və (ikinciSayı Modu i = 0)) Sonra

HCF = i

Növbəti halda bitirin

hər dəfə daha böyük bir dəyişən tapıldıqda nömrələri "HCF" dəyişəninə saxlayırıq

əgər hər iki ədədin bir faktoru varsa, o zaman dəyişən HCF -də saxlanılır

Addım 5: Çıxışın göstərilməsi

çıxışı konsol ekranında göstərmək üçün "console.write ()" və ya "console.writeline ()" əmrindən istifadə edirik.

Yazılan sözlərin apostroflarla ("") daxil edilməsinin vacib bir qayda var. Dəyişənlərin apostrof daxil edilməsinə ehtiyac yoxdur

xətləri birləşdirmək üçün "&" operatorundan da istifadə edə bilərik və işarənin hər iki tərəfinə boşluq qoymağı unutmayın

beləliklə proqram gedir

Console. WriteLine ("Ən yüksək ümumi faktor" & HCF)

Təəssüf ki, kompüter adətən istifadəçini gözləmir. istifadəçinin nəticəni oxumasına icazə vermək üçün başqa bir proqram xətti əlavə edirik.

Console. WriteLine ("Çıxmaq üçün hər hansı bir düyməni basın")

Console. ReadKey ()

Addım 6: Asanlıq üçün

bu kömək üçün şərhləri olan proqramlaşdırma versiyamdır.

Modul Modulu1 Alt Əsas ()

'hər hansı bir proqramda dəyişənləri elan etməliyik

Dim firstNum, secondNum, TEMP, HCF Integer '' Integer kimi 'bu dəyişənlər üçün verilənlərin xarakterinin tam ədədlər olduğunu simvollaşdırır

'Əvvəlcə istifadəçini təlimatlarla tanış edirik

Console. WriteLine ("ən yüksək ümumi faktor üçün iki ədəd daxil edin") 'sonra istifadəçidən bir sıra daxil etməsini xahiş edirik Console. WriteLine ("ilk nömrəni daxil edin")' rəqəmi dəyişir firstNum firstNum = Console. ReadLine ' sonra istifadəçidən ikinci bir nömrə daxil etməyi təklif edirik Console. WriteLine ("ikinci nömrəni daxil edin") 'eynilə bunu da saxlayırıq, amma fərqli bir dəyişəndə' birincinin üzərinə yazılmasını istəmirik secondNum = Console. ReadLine

'hansının daha böyük olduğunu müqayisə edirik və müvəqqəti saxlama "TEMP" də saxlayırıq

FirstNum secondNum Sonra TEMP = SecondNum

Altındakı bənddə, birinci və ikinci ədədlər bərabər olsa da, TEMP -də bir dəyər saxladıq

Bunun səbəbi, nə olursa olsun "ən yüksək" sayına ehtiyacımız olduğuna görə idi.

ElseIf firstNum = secondNum Sonra

TEMP = saniyə say bitərsə

'proqramlaşdırmanın həqiqətən başladığı yer budur

'mod funksiyası tamsayı bir ədədə bölür və qalanını qaytarır' bu faydalıdır, bu yolla hansı ədədlərin qalan sıfır olduğunu yoxlaya bilərik

'burada işi yerinə yetirmək üçün "İTERASYON İLGİSİ" ndən istifadə edirik

'i' dəyişənini yaradırıq və hər döngədən sonra 1 artırırıq

İ = 1 üçün TEMP Addım 1 'üçün "Addım 1" hər döngədən sonra 1 artım olduğunu göstərir

'Gördüyünüz kimi bir AND funksiyasından da istifadə etdik

Bunun səbəbi, hər iki dəyişəni qalan sıfır verən ədədlərə ehtiyacımız olduğu üçün idi

Başqa bir vacib qeyd, 0 -dan başlaya bilməyəcəyimizdir

0 -a bölünən hər şey sonsuzluğa səbəb ola bilər, çünki ((birinciSayı Mod i = 0) Və (ikinciSayı Mod i = 0)) O zaman

nömrələri "HCF" dəyişəninə saxlayırıq

'hər dəfə daha böyük bir dəyişən tapıldıqda HCF üzərinə yazılır HCF = i Next Next

Console. Clear () 'bu əmr konsol ekranında yazılan hər şeyi təmizləyir

Console. WriteLine ("ən yüksək ümumi faktor =" & HCF) 'bu əmr konsol ekranında mesajı göstərir

Altındakı əmrlər konsol ekranından çıxmağa imkan verir

Console. WriteLine () Console. WriteLine ("Çıxmaq üçün hər hansı bir düyməni basın") Console. ReadKey ()

'P. S

Proqramlaşdırma zamanı, sintaksisləri pozmadığınız müddətcə, proqramın daha az qarışıq görünməsi üçün boşluqlar, nişanlar və ya boş sətirlər qoya bilərsiniz.

Alt Alt

Bitmə Modulu