Riyazi Hesablamalar

[AliZairov]

Hamıya salam. Delphi ilə riyazi hesablamalar mümkün olduğunu yəqin ki, bilirsiniz. Saytda olan 4CD-lik Delphi 7 üçün dərslik var. Mən onu çoxdan yükləmişəm. İndi həvəsə düşmüşəm öyrənməyə başlamışam. Nümunə olaraq bəzi hesablamalar etdim. Amma Integer dəyişkəni ilə yalnız -2147483648..2147483647 arası hesablamalar etmək mümkündür. Buna nümunə olaraq bunları hazırladım. (Toplama = +, Çıxma = -, Vurma = *, Bölmə = div)

 

Toplama:

 

procedure TForm1.Button1Click(Sender: TObject);

var

T1: Integer;

T2: Integer;

Cavab: Integer;

begin

T1 := StrToInt(Edit1.Text); // 1

T2 := StrToInt(Edit2.Text); // 2

Cavab := T1 + T2;

Edit3.Text := (IntToStr(Cavab)); // 3

end;

 

Çıxma:

 

procedure TForm1.Button2Click(Sender: TObject);

var

C1: Integer;

C2: Integer;

Cavab: Integer;

begin

C1 := StrToInt(Edit4.Text); // 1

C2 := StrToInt(Edit5.Text); // 2

Cavab := C1 - C2;

Edit6.Text := (IntToStr(Cavab)); // 3

end;

 

Vurma:

 

procedure TForm1.Button3Click(Sender: TObject);

var

V1: Integer;

V2: Integer;

Cavab: Integer;

begin

V1 := StrToInt(Edit7.Text); // 1

V2 := StrToInt(Edit8.Text); // 2

Cavab := V1 * V2;

Edit9.Text := (IntToStr(Cavab)); // 3

end;

 

Bölmə:

 

procedure TForm1.Button4Click(Sender: TObject);

var

B1: Integer;

B2: Integer;

Cavab: Integer;

begin

B1 := StrToInt(Edit10.Text); // 1

B2 := StrToInt(Edit11.Text); // 2

Cavab := B1 div B2;

Edit12.Text := (IntToStr(Cavab)); // 3

end;

 

Qeyd: 1,2 ədədlər və 3 alınan cavab.

[TΛNNΞЯ]

Paylasim ucun sagol

[ZAUR_033]

Əziyyət çəkmisən sağ ol

[zeus]

Təşəkkürlər

[Maksim_252]

Əziyyətə görə təşəkkürlər və uğurlar

[AliZairov]

Tanner, ZAUR_033, zeus, Maksim_252 dəyməz.

 

Bunuda yazım lazımınız ola bilər. Faizlə bağlıdı.

 

Sual: 20 ədədinin 30% tapın?

 

procedure TForm1.Button1Click(Sender: TObject);

var

Eded: Integer;

Faiz: Integer;

Cavab: Integer;

begin

Eded := StrToInt(Edit1.Text); // 1

Faiz := StrToInt(Edit2.Text); // 2

Cavab := Eded * Faiz div 100; // Düsdur

Edit3.Text := (IntToStr(Cavab)); // 3

end;

 

Sual: 20% 80 olan ədədi tapın?

 

procedure TForm1.Button2Click(Sender: TObject);

var

Faiz: Integer;

Eded: Integer;

Cavab: Integer;

begin

Faiz := StrToInt(Edit4.Text); // 1

Eded := StrToInt(Edit5.Text); // 2

Cavab := Eded * 100 div Faiz; // Düsdur

Edit6.Text := (IntToStr(Cavab)); // 3

end;

 

Sual: 25% gəlirlə 160 AZN satılan televizorun ilkin qiyməti nə qədərdir?

 

procedure TForm1.Button3Click(Sender: TObject);

var

Faiz: Integer;

Qiymet: Integer;

Cavab: Integer;

begin

Faiz := StrToInt(Edit7.Text); // 1

Qiymet := StrToInt(Edit8.Text); // 2

Cavab := Qiymet * 100 div ( Faiz + 100); // Düsdur

Edit9.Text := (IntToStr(Cavab)); // 3

end;

 

Sual: 30% ziyanla 490 AZN satılan soyuducunun ilkin qiyməti nə qədərdir?

 

procedure TForm1.Button4Click(Sender: TObject);

var

Faiz: Integer;

Qiymet: Integer;

Cavab: Integer;

begin

Faiz := StrToInt(Edit10.Text); // 1

Qiymet := StrToInt(Edit11.Text); // 2

Cavab := Qiymet * 100 div ( 100 - Faiz); // Düsdur

Edit12.Text := (IntToStr(Cavab)); // 3

end;

 

Sual: Telefonun qiyməti 120 AZN. Mağaza 5% gəlir əldə edir. Kredit müddəti 3 ay. Ayda nə qədər pul vericəm?

 

procedure TForm1.Button6Click(Sender: TObject);

var

Qiymet: Integer;

Faiz: Integer;

Ay: Integer;

Kredit: Integer;

begin

Qiymet := StrToInt(Edit16.Text); // 1

Faiz := StrToInt(Edit17.Text); // 2

Ay := StrToInt(Edit18.Text); // 3

Kredit := ( Qiymet + ( Qiymet * Faiz div 100 ) ) div Ay; // Düsdur

Edit19.Text := (IntToStr(Kredit)); // 4

end;

 

Qeyd: 1,2 ədədlər 3 və 4 cavab. Krediti hesablayanda qəpikləri göstərmir. Səbəb Dəyişkən yalnız məs. -1 və 1 dəstəkləyir. nöqtə və vergülü dəstəkləmir. Ona görədə bəzi hesablamaları etmək hələlik mümkün deyil. Hissə və Ucuzlaşmanı və s. Bu hesablara uyğun dəyişkən yəqinki var. Hələki mənbunları bildiyimə görə paylaşdım. Hə bunuda nəzərinizə çatdırım ki, Edit xanalarına AZN və % işarələrini yazmayın. Yalnız rəqəmləri. Suallarda nümunə olaraq vermişəm. Başa düşmək üçün. Riyaziyyatı normal bilənlər bu hesablamanı özləri etsinlər sonra proqramda düzgün olub olmadığına baxsınlar. Mən etdim düz alındı.

[===]

Təşəkkür

[AliZairov]

=== tşk.

[Hacker-8km]

tsk

[AliZairov]

Hacker-8km salam. Dəyməz.

[Elvin Məlikov]

Lazımlıdır.Təşəkkür.

[My-Comp yek]

Əziyyətə görə təşəkkürlər

[AliZairov]

mayak18, GANG_STAR, My-Comp yek dəyməz.