Tugas Pascal ke 3

Minggu, 16 November 2008

Kumpul tanggal akhir 22.
- Bisa melakukan penjumlahan, pengurangan, pembagian, perkalian.
- User bebas mengisi/input angkanya.

Diposting oleh Kadek Yartono di 22.27  

Label:

15 komentar:

Anonim mengatakan...
19 November 2008 pukul 17.07  

Nama : Riska Umami
Kelas : x-7

program perhitungan;
uses crt;
var
a,b,c,d,e:integer;
f:real;
begin
clrscr;
{calculator}
write ('Masukkan Nilai Pertama : ');
readln(a);
write ('Masukkan Nilai Kedua : ');
readln(b);

c:= a + b;
d:= a - b;
e:= a * b;
f:= a / b;

writeln ('Hasil Penjumlahan ',a,' + ',b,' = ',c);
readln(c);
writeln ('Hasil Pengurangan ',a,' - ',b,' = ',d);
readln(d);
writeln ('Hasil Perkalian ',a,' * ',b,' = ',e);
readln(e);
writeln ('Hasil Pembagian ',a,' / ',b,' = ',f);
readln(f);


end.

 
Anonim mengatakan...
19 November 2008 pukul 17.10  

Nama : Yunita Sari
Kelas : x-7

uses crt;
var
a,b,c,d,e:integer;
f:real;
begin
clrscr;
{calculator}
write ('Masukkan Nilai Pertama : ');
readln(a);
write ('Masukkan Nilai Kedua : ');
readln(b);
c:= a + b;
d:= a - b;
e:= a * b;
f:= a / b;
writeln ('Hasil Penjumlahan ',a,' + ',b,' = ',c);
readln(c);
writeln ('Hasil Pengurangan ',a,' - ',b,' = ',d);
readln(d);
writeln ('Hasil Perkalian ',a,' * ',b,' = ',e);
readln(e);
writeln ('Hasil Pembagian ',a,' / ',b,' = ',f);
readln(f);


end.

 
Anonim mengatakan...
19 November 2008 pukul 18.59  

program belajar_pascal4;
uses crt;
var
a:integer;
b:integer;
c:integer;
d:integer;
e:integer;
f:real;
begin
clrscr;
writeln('Ni Putu Vivin Wisnayanti_XI IPA 1');
readln;
write('masukkan nilai pertama :');
readln(a);
write('masukkan nilai kedua :');
readln(b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
write('hasil dari',a,'+',b,'=',c);
readln;
write('hasil dari',a,'-',b,'=',d);
readln;
write('hasil dari',a,'*',b,'=',e);
readln;
write('hasil dari',a,'/',b,'=',f);
readln;

end.

 
Anonim mengatakan...
19 November 2008 pukul 19.01  

program tugas_3;
uses crt;
var
z:integer;
x:integer;
n:integer;
o:integer;
v:integer;
a:real;
begin
clrscr;
writeln('nining_XI ipa 1calculator'); readln;
write('tulis angka pertama:'); readln(z);
write('tulis angka kedua:'); readln(x);
write(''); readln;
n:=z+x;
o:=z-x;
v:=z*x;
a:=z/x;
writeln('hasil dari',z,'+',x,'=',n); readln;
writeln('hasil dari',z,'-',x,'=',o); readln;
writeln('hasil dari',z,'*',x,'=',v); readln;
writeln('hasil dari',z,'/',x,'=',a); readln;



end.

 
Anonim mengatakan...
19 November 2008 pukul 19.07  

program latihan_Turbo_Pascal_latihanIII;
uses crt;
var
a:integer;
b:integer;
c:integer;
d:integer;
e:integer;
f:real;

begin clrscr;
writeln ('Putu Joni Satriya Wibawa_XIIPAI');
readln;
write ('masukan angka:');
readln(a);
write ('masukan angka:');
readln(b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
write ('hasil dari',a,'+',b,'=',c);
readln;
write ('hasil dari',a,'-',b,'=',d);
readln;
write ('hasil dari',a,'*',b,'=',e);
readln;
write ('hasil dari',a,'/',b,'=',f);
readln;

end.

 
Anonim mengatakan...
19 November 2008 pukul 23.51  

nama : dody surya
kls : x-2

program tugas_3;
uses crt;
var
z,x,n,o,v:integer;
a:real;
begin
clrscr;
{dody x 2}
writeln('surya_kakulator');
readln;
write('tulis angka pertama:');
readln(z);
write('tulis angka kedua:');
readln(x);
readln;
n:=z+x;
o:=z-x;
v:=z*x;
a:=z/x;
writeln('hasil dari',z,'+',x,'=',n);
readln;
writeln('hasil dari',z,'-',x,'=',o);
readln;
writeln('hasil dari',z,'*',x,'=',v);
readln;
writeln('hasil dari',z,'/',x,'=',a);
readln;



end.

 
Anonim mengatakan...
20 November 2008 pukul 01.07  

me : ulfa nursiam
at : x.4

program tugas_pascal3;
uses crt;
var
h,i,j,k,l:integer;
n:real;
begin
clrscr;
{kalkulator ribett}
write('ketik angka pertama: ');
readln(h);
write('ketik angka kedua: ');
readln(i);
readln;
j:=h+i;
k:=h-i;
l:=h*i;
n:=h/i;
writeln('hasil dari',h,'+',i,'=',j);
readln;
writeln('hasil dari',h,'-',i,'=',k);
readln;
writeln('hasil dari',h,'*',i,'=',l);
readln;
writeln('hasil dari',h,'/',i,'=',n);
readln;


end.

 
Anonim mengatakan...
20 November 2008 pukul 01.22  

nama : Febi Khoirunisah
kelas : x.4

program tugas_pascal3;
uses crt;
var
a,b,c,d,e:integer;
x:real;
begin
clrscr;
{pussiiing}
write('ketik angka pertama:');
readln(a);
write('ketik angka kedua:');
readln(b);
readln;
c:=h+i;
d:=h-i;
e:=h*i;
x:=h/i;
writeln('hasil dari',a,'+',b,'=',c);
readln;
writeln('hasil dari',a,'-',b,'=',d);
readln;
writeln('hasil dari',a,'*',b,'=',e);
readln;
writeln('hasil dari',a,'/',b,'=',x);
readln;


end.

 
Anonim mengatakan...
21 November 2008 pukul 21.23  

program lat3;
uses crt;
var
q:integer;
w:integer;
e:integer;
r:integer;
t:integer;
y:real;
begin
clrscr;
writeln('GUSTI AYU ERA SWANDEWI_XI IPA 1');
readln;
write('masukkan angka pertama:');
readln(q);
write('masukkan angka kedua:');
readln(w);
e:=q+w;
r:=q-w;
t:=q*w;
y:=q/w;
write('hasil dari ',q,'+',w,'=',e);
readln;
write('hasil dari ',q,'-',w,'=',r);
readln;
write('hasil dari ',q,'*',w,'=',t);
readln;
write('hasil dari ',q,'/',w,'=',y);
readln;
end.

 
Anonim mengatakan...
21 November 2008 pukul 21.24  

program lat3;
uses crt;
var
a:integer;
b:integer;
c:integer;
d:integer;
e:integer;
f:real;
begin
clrscr;
writeln('KARYANA EKA PUTRA');
readln;
write('masukkan angka pertama:');
readln(a);
write('masukkan angka kedua:');
readln(b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
write('hasil dari ',a,'+',b,'=',c);
readln;
write('hasil dari ',a,'-',b,'=',d);
readln;
write('hasil dari ',a,'*',b,'=',e);
readln;
write('hasil dari ',a,'/',b,'=',f);
readln;
end.

 
Anonim mengatakan...
21 November 2008 pukul 21.24  

program mansu_calculator;
uses crt;
var
m:integer;
a:integer;
n:integer;
s:integer;
o:integer;
e:real;
begin
clrscr;
writeln('i nyoman agus sudiatma pratama');
readln;
write('masukkan angka pertama:');
readln(m);
write('masukkan angka kedua:');
readln(a);
n:=m+a;
s:=m-a;
o:=m*a;
e:=m/a;
write('hasil dari ',m,'+',a,'=',n);
readln;
write('hasil dari ',m,'-',a,'=',s);
readln;
write('hasil dari ',m,'*',a,'=',o);
readln;
write('hasil dari ',m,'/',a,'=',e);
readln;
end.

 
Anonim mengatakan...
22 November 2008 pukul 20.35  

Nama: Ida Ayu Ismaya Sukrapratiwi
Kelas: X7

program perhitungan;
uses crt;
var
a,b,c,d,e:integer;
f:real;
begin
clrscr;
{calculator}
write('masukkan nilai pertama:');
readln(a);
write('masukkan nilai kedua:');
readln(b);

c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;

writeln('hasil penjumlahan',a,'+',b,'=',c);
readln;
writeln('hasil pengurangan',a,'-',b,'=',d);
readln;
writeln('hasil perkalian',a,'*',b,'=',e);
readln;
writeln('hasil pembagian',a,'/',b,'=',f);
readln;
end.

 
Anonim mengatakan...
22 November 2008 pukul 20.40  

Nama: Novita Sari
Kls : X-7

program perhitungan;
uses crt;
var
p,q,r,s,t:integer;
u:real;
begin
clrscr;
{calculator}
write('masukkan nilai pertama:');
readln(p);
write('masukkan nilai kedua:');
readln(q);

r:=p+q;
s:=p-q;
t:=p*q;
u:=p/q;

writeln('hasil penjumlahan',p,'+',q,'=',r);
readln;
writeln('hasil pengurangan',p,'-',q,'=',s);
readln;
writeln('hasil perkalian',p,'*',q,'=',t);
readln;
writeln('hasil pembagian',p,'/',q,'=',u);
readln;
end.

 
Anonim mengatakan...
22 November 2008 pukul 22.07  

program tugas_4;
uses crt;
var
r:integer;
x:integer;
n:integer;
b:integer;
v:integer;
a:real;
begin
clrscr;
writeln('Wahyu surya_lat1_X-2');
readln;
writeln('MY_calculator'); readln;
write('tulis angka yang pertama:'); readln(r);
write('tulis angka yang kedua:'); readln(x);
n:=r+x;
b:=r-x;
v:=r*x;
a:=r/x;
readln;
writeln('hasil dari',r,'+',x,'=',n); readln;
writeln('hasil dari',r,'-',x,'=',b); readln;
writeln('hasil dari',r,'*',x,'=',v); readln;
writeln('hasil dari',r,'/',x,'=',a:0:3); readln;


end.

 
Anonim mengatakan...
23 November 2008 pukul 02.13  

Nama :Putu Ayu Eka Rini
Kelas :X-7

program perhitungan;

uses crt;

var

a,b,c,d,e:integer;
f:real;

begin

clrscr;

{calculator}
write ('Masukkan Nilai Pertama : ');
readln(a);
write ('Masukkan Nilai Kedua : ');
readln(b);

c:= a + b;
d:= a - b;
e:= a * b;
f:= a / b;

writeln ('Hasil Penjumlahan ',a,' + ',b,' = ',c);
readln(c);
writeln ('Hasil Pengurangan ',a,' - ',b,' = ',d);
readln(d);
writeln ('Hasil Perkalian ',a,' * ',b,' = ',e);
readln(e);
writeln ('Hasil Pembagian ',a,' / ',b,' = ',f);
readln(f);


end.

 

Posting Komentar

Langganan: Posting Komentar (Atom)
 
 
 
 
Copyright © TUGAS - TUGAS