Pascal İle Toplama, Çıkarma, Çarpma

 

(* Coded by Rawkmetal - Rawkmetal@Linuxmail.org*)

Uses crt;
Var
a,b,c:integer;
sec :byte;
Begin (* Baslayalim *)
clrscr;
write('Bir Sayi Gir Arkadasim : ');
Readln(a);
write('ikinci Sayi'yida Söyle Bakiim :');
readln(b);
writeln;
Writeln('Navigator');
writeln('--------------');
writeln('1-Toplayalim abi');
writeln('2-Cikarma yapalim');
writeln('3-Çarpalim bide');
writeln('4-Çikis');
writeln;
Writeln('Sec bakalim Aslanim(1/2/3/4/):');
readln(sec);
if sec=1 then Begin
c:=a+b;
writeln('Topladim Sonuc : ',c);
end;
if sec=2 then Begin
c:=a-b;
writeln('Cikardim Sonuc : ',c);
end;
if sec=3 the Begin (*aksin*)
c:=a*b;
writeln('Çarptim Sonuç : ',c);
end;
if sec=4 hen Exit;
end.

 

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

pascal � le toplama � ıkarma � arpma