Reklamlar
Pascal Ders 2

Pascal Ders 2 » Bu dersimizde size işlem yaptırmayı anlatacağım bakın eğer bir değişkeni bir şeye eşitlemek istiyorsanız yapacağınız şey şu önce eşitleyeceğiniz

Gönderen Konu: Pascal Ders 2  (Okunma sayısı 3764 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı administrator

  • Administrator
  • General
  • *****
  • İleti: 24517
  • Karma: +3/-1
    • Profili Görüntüle
    • Toplist Ekle Site Ekle

Pascal Ders 2
« : Nisan 30, 2009, 12:29:31 ÖS »
Bu dersimizde size işlem yaptırmayı anlatacağım
bakın eğer bir değişkeni bir şeye eşitlemek istiyorsanız yapacağınız şey şu
önce eşitleyeceğiniz değeri gireceksiniz sonra eşitlemek istediğiniz değer
mesela i yi 5+7 ye eşitliceksiniz veya i yi x+y ye eşitliceksiniz şöyle
i:=5+7; ve i:=x+7; bunlar ayrı şeyler karıştırmayın şimdi size bi hesap makinesi yapacağız ama diğer kodları bilmediğiniz için çok zorlamak istemiyorum onun için ayrı ayrı 4 program yazacağım:

TOPLAMA İŞLEMİ
uses crt;
var
i,x,y:integer;
begin
writeln('ilk değeri girin: ');
readln(x);
writeln('ikinci değeri girin');
readln(y);
writeln(x+y);
end.

ÇIKARMA İŞLEMİ
uses crt;
var
i,x,y:integer;
begin
writeln('ilk değeri girin: ');
readln(x);
writeln('ikinci değeri girin');
readln(y);
writeln(x-y);
end.

ÇARPMA İŞLEMİ
uses crt;
var
i,x,y:integer;
begin
writeln('ilk değeri girin: ');
readln(x);
writeln('ikinci değeri girin');
readln(y);
writeln(x*y);
end.

BÖLME İŞLEMİ
uses crt;
var
i,x,y:integer;
begin
writeln('ilk değeri girin: ');
readln(x);
writeln('ikinci değeri girin');
readln(y);
writeln(x div y);{div tam bölmek demek}
end.



Not: Konular İnternet Sitelerinden derlenerek alıntı yapılmıştır.








BilX.Net

 

Related Topics

  Konu / Başlatan Yanıt Son İleti
0 Yanıt
3182 Gösterim
Son İleti Nisan 30, 2009, 12:24:50 ÖS
Gönderen: administrator
2 Yanıt
14069 Gösterim
Son İleti Ekim 24, 2017, 09:25:11 ÖÖ
Gönderen: Yokohamasobo
0 Yanıt
3393 Gösterim
Son İleti Nisan 30, 2009, 12:30:06 ÖS
Gönderen: administrator
0 Yanıt
3167 Gösterim
Son İleti Nisan 30, 2009, 12:30:27 ÖS
Gönderen: administrator
0 Yanıt
3927 Gösterim
Son İleti Nisan 30, 2009, 12:32:47 ÖS
Gönderen: administrator