xPesimisTx
Üye
Toplama
Çıkarma
Çarpma
Bölme
[NOT]
1.İşlem Çıkışlarında Türkçe Karakter Kullanmadım.Çünkü Türkçe Karakter Kullansaydım Not Defterinden Pascal Uzantılı (.pas) Kayıt Ettikten Sonra Pascal Editöründe Açıldığı Zaman Karakterler Bozuk Çıkıyordu.
2.Verdiğim Kodların Bölme İşleminde Virgülden Sonra En Fazla Ekranda 2 Sayı Karakteri Gösterir.
Örnek:
41 i 40 A Böldüğümüzde Sonuç "1.025" yere "1.02" çıkar.[/NOT]
Kod:
Program Toplama;
USES CRT;
Var
sayi1,sayi2,sonuc:integer;
begin
clrscr;
Write('Ilk Sayiyi Giriniz: ');ReadLn(sayi1);
Write('Ikinci Sayiyi Giriniz: ');ReadLn(sayi2);
sonuc:= sayi1 + sayi2;
WriteLn('Sayilarin Toplami: ',sonuc);ReadLn;
end.
Kod:
Program Cikarma;
USES CRT;
Var
sayi1,sayi2,sonuc:integer;
begin
clrscr;
Write('Ilk Sayiyi Giriniz: ');ReadLn(sayi1);
Write('Ikinci Sayiyi Giriniz: ');ReadLn(sayi2);
sonuc:= sayi1 - sayi2;
WriteLn('Sayilarin Toplami: ',sonuc);ReadLn;
end.
Kod:
Program Carpma;
USES CRT;
Var
sayi1,sayi2,sonuc:integer;
begin
clrscr;
Write('Ilk Sayiyi Giriniz: ');ReadLn(sayi1);
Write('Ikinci Sayiyi Giriniz: ');ReadLn(sayi2);
sonuc:= sayi1 * sayi2;
WriteLn('Sayilarin Toplami: ',sonuc);ReadLn;
end.
Kod:
Program Bolme;
USES CRT;
Var
sayi1,sayi2,sonuc:real;
sonuc:real;
begin
clrscr;
Write('Ilk Sayiyi Giriniz: ');ReadLn(sayi1);
Write('Ikinci Sayiyi Giriniz: ');ReadLn(sayi2);
sonuc:= sayi1 / sayi2;
WriteLn('Sayilarin Toplami: ',sonuc:0:2);ReadLn;
end.[NOT]
1.İşlem Çıkışlarında Türkçe Karakter Kullanmadım.Çünkü Türkçe Karakter Kullansaydım Not Defterinden Pascal Uzantılı (.pas) Kayıt Ettikten Sonra Pascal Editöründe Açıldığı Zaman Karakterler Bozuk Çıkıyordu.
2.Verdiğim Kodların Bölme İşleminde Virgülden Sonra En Fazla Ekranda 2 Sayı Karakteri Gösterir.
Örnek:
41 i 40 A Böldüğümüzde Sonuç "1.025" yere "1.02" çıkar.[/NOT]
Son düzenleme:
