TUGAS PASCAL UNTUK CLUB PASCAL

Senin, 10 November 2008

Untuk club pascal SMA PGRI 2 DPS
Tugas pascal 2 kumpulkan disini.
Ketentuan tugas:
- Pogram yang dibuat bisa melakukan perhitungan matematik.
a. Perkalian
b. Pengurangan
c. Pembagian
- Gunakan tipe data yang sesuai agar program yang dibuat sedikit mengalami error.
- Buat dalam sebuah program.
- Isikan komentar pada program mengenai program yag dibuat.
- Kreasikan program yang dibuat agar kelihatan bagus.
- Kumpulkan juga hasil keluarannya.

Contoh:
===============================
program penambahan yang sederhana.
===============================
program penjumlahan;
uses crt;
var
a,b,c:integer;
begin
clrscr;
{Program Penjumlahan}
b:=4;
a:=3;
c:=a+b;
writeln('Hasil penjumlahan ',a,' + ',b,' = ', c);
readln;
end.
===============================
Hasil Keluarannya
===============================

Hasil penjumlahan 3 + 4 = 7

===============================

23 komentar:

Anonim mengatakan... 14 November 2008 pukul 21.01: program belajar_pascal;
uses crt;
begin
clrscr;
writeln('nama:gusti ayu era swandewi');
writeln('kelas:XI IPA 1');
readln;
writeln('pemrograman:pascal');
readln;
write('hobi:');
readln;
write('tinggi:');
readln;

end.
Anonim mengatakan... 14 November 2008 pukul 21.09: program latihan1;
uses crt;
var a:integer;
b:integer;
c:integer;
d:integer;
e:real;
begin
clrscr;
writeln('ERA SWANDEWI_LAT1_XIIPA1');
readln;
a:=6;
b:=3;
c:=a-b;
d:=a*b;
e:=a/b;

writeln('hasil dari ',a,'-',b,': ',c);
readln;
writeln('hasil dari ',a,'*',b,': ',d);
readln;
writeln('hasil dari ',a,'/',b,': ',e);
readln;

end.
Anonim mengatakan... 14 November 2008 pukul 21.11: program tugas1;
uses crt;
var a:integer;
b:integer;
c:integer;
d:integer;
e:real;
begin
clrscr;
a:=3;
b:=4;
c:=a-b;
d:=a*b;
e:=a/b;

writeln('tugas1_nining_pratiwi_XIIPA1');
readln;

writeln('hasil dari ',a,'-',b,': ',c);
readln;

writeln('hasil dari ',a,'*',b,': ',d);
readln;

writeln('hasil dari ',a,'/',b,': ',e);
readln;
end.
Anonim mengatakan... 14 November 2008 pukul 21.17: program_Turbo_Pascal_latihanII;

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

begin
clrscr;
writeln('Joni Satriya_XIIPA1');
readln;
a:=3;
b:=4;
c:=a-b;
d:=a*b;
e:=a/b;

writeln('hasil dari ',a,'-',b,': ',c);
readln;
writeln('hasil dari ',a,'*',b,': ',d);
readln;
writeln('hasil dari ',a,'/',b,': ',e);
readln;

end.
Anonim mengatakan... 14 November 2008 pukul 21.32: program belajar_pascal3;
uses crt;
var
a:integer;
b:integer;
c:integer;
d:integer;
e:real;
begin
clrscr;
writeln('nama: ni putu vivin wisnayanti_XI IPA 1');
readln;
a:=6;
b:=3;
c:=a-b;
d:=a*b;
e:=a/b;
writeln('hasil dari:',a,'-',b,'=',c);
readln;
writeln('hasil dari:',a,'*',b,'=',d);
readln;
writeln('hasil dari:',a,'/',b,'=',e);
readln;
end.
Anonim mengatakan... 14 November 2008 pukul 21.44: Nama: Novita
kelas: X7

program perhitungan;
uses crt;
var
a,b,c,d,e:integer;
begin
clrscr;
{program perhitungan}
a:=75;
b:=25;
c:=a*b;
d:=a-b;
e:=a div b;
writeln('hasil dari',a,'*',b,'=',c); readln;
writeln('hasil dari',a,'-',b,'=',d); readln;
writeln('hasil dari',a,'/',b,'=',e); readln;
end.
Anonim mengatakan... 14 November 2008 pukul 21.47: Nama: Ida Ayu Ismaya Sukrapratiwi
Kelas: X7

program perhitungan;
uses crt;
var
a,b,c,d,e:integer;
begin
clrscr;
{program perhitungan}
a:= 10;
b:= 5;
c:= a-b;
d:= a*b;
e:= a div b;
writeln('hasil dari',a,'-',b,'=',c);
readln;
writeln('hasil dari',a,'*',b,'=',d);
readln;
writeln('hasil dari',a,'/',b,'=',e);
readln;
end.
Anonim mengatakan... 14 November 2008 pukul 21.56: program beljar_pascal;
uses crt;
var
a:integer;
b:integer;
c:integer;
d:integer;
e:real;
begin
clrscr;
writeln ('nama : i nyoman agus sudiatma pratama_XI IPA 1');
readln;
a:=8;
b:=2;
c:=a-b;
d:=a*b;
e:=a/b;
writeln ('hasil dari:',a,'-',b,'=',c);
readln;
writeln ('hasil dari:',a,'*',b,'=',d);
readln;
writeln ('hasil dari:',a,'/',b,'=',e);
readln;
end.
Anonim mengatakan... 14 November 2008 pukul 22.00: Nama : Putu Ayu Eka Rini
Kelas : X-7

program perhitungan;
uses crt;
var
a,b,c,d,e:integer;
begin
clrscr;
{program perhitungan};
a:=36;
b:=4;
c:=a-b;
d:=a*b;
e:=a div b;
writeln('hasil dari',a,'-',b,'=',c);
readln;
writeln('hasil dari',a,'*',b,'=',d);
readln;
writeln('hasil dari',a,'/',b,'=',e);
readln;
end.
Anonim mengatakan... 14 November 2008 pukul 22.02: Nama : Yunita Sari
Kelas : X-7

program perhitungan;
uses crt;
var
a,b,c,d,e:integer;
begin
clrscr;
{program perhitungan}
a:=18;
b:=2;
c:=a-b;
d:=a*b;
e:=a div b;
writeln('hasil dari',a,'-',b,'=',c);
readln;
writeln('hasil dari',a,'*',b,'=',d);
readln;
writeln('hasil dari',a,'/',b,'=',e);
readln;
end.
Anonim mengatakan... 15 November 2008 pukul 21.33: NAMA : RISKA UMAMI
KELAS : X-7

program peritungan;
uses crt;
var
a,b,c,d:integer;
e:real;
begin
clrscr;

{program perkalian,pengurangan,pembagian}
a:= 5;
b:= 2;
c:= a*b;
d:= a-b;
e:= a/b;

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

end.
Anonim mengatakan... 15 November 2008 pukul 21.57: program latihan_pascal;
uses crt;
var
a:integer;
b:integer;
c:integer;
d:integer;
e:real;
begin
clrscr;
a:=4;
b:=5;
c:=a-b;
d:=a*b;
e:=a/b;

writeln ('Nama : M. Azman Maricar’);
writeln (‘Kelas : XI IPA 1’)
readln;

writeln('hasil dari ',a,'-',b,': ',c);
readln;

writeln('hasil dari ',a,'*',b,': ',d);
readln;

writeln('hasil dari ',a,'/',b,': ',e);
readln;
end.
Anonim mengatakan... 15 November 2008 pukul 22.00: program latihan_pascal;
uses crt;
var
a:integer;
b:integer;
c:integer;
d:integer;
e:real;
begin
clrscr;
a:=6;
b:=7;
c:=a-b;
d:=a*b;
e:=a/b;

writeln ('Nama : Reza Aditya U.’);
writeln (‘Kelas : XI IPA 2’)
readln;

writeln('hasil dari ',a,'-',b,': ',c);
readln;

writeln('hasil dari ',a,'*',b,': ',d);
readln;

writeln('hasil dari ',a,'/',b,': ',e);
readln;
end.
Anonim mengatakan... 16 November 2008 pukul 07.50: program tugas_pascal;
uses crt;
var
a:integer;
b:integer;
c:integer;
d:integer;
e:real;
begin
clrscr;
a:=10;
b:=5;
c:=a-b;
d:=a*b;
e:=a/c;
writeln ('nama: rudy kurniawan XI A1');
readln;
writeln ('hasil dari:',a,'-',b,'=',c);
readln;
writeln ('hasil dari:',a,'*',b,'=',d);
readln;
writeln ('hasil dari:',a,'/',b,'=',e);
readln;
end.
Anonim mengatakan... 16 November 2008 pukul 17.10: program latihan_pascal;
uses crt;
var
a:integer;
b:integer;
c:integer;
d:integer;
e:real;
begin
clrscr;
a:=6;
b:=7;
c:=a-b;
d:=a*b;
e:=a/b;

writeln ('Nama : I Putu karyana eka putra’);
writeln (‘Kelas : XI IPA 1’)
readln;

writeln('hasil dari ',a,'-',b,': ',c);
readln;

writeln('hasil dari ',a,'*',b,': ',d);
readln;

writeln('hasil dari ',a,'/',b,': ',e);
readln;
end.
Anonim mengatakan... 16 November 2008 pukul 20.21: program latihan1;
uses crt;
var a:integer;
b:integer;
c:integer;
d:integer;
e:real;
begin
clrscr;
writeln('A.A Istri Diah Apsari_LAT1_XIIPA1');
readln;
a:=6;
b:=3;
c:=a-b;
d:=a*b;
e:=a/b;

writeln('hasil dari ',a,'-',b,': ',c);
readln;
writeln('hasil dari ',a,'*',b,': ',d);
readln;
writeln('hasil dari ',a,'/',b,': ',e);
readln;

end.
Anonim mengatakan... 16 November 2008 pukul 21.10: resti dewi,
XI ipa 1

program penjumlahan;
uses crt;
var
a,b,c:integer;
begin
clrscr;
{Program Penjumlahan}
b:=4;
a:=3;
c:=a+b;
writeln('Hasil penjumlahan ',a,' + ',b,' = ', c);
readln;
end.
Anonim mengatakan... 16 November 2008 pukul 21.11: program penjumlahan;
uses crt;
var
a,b,c:integer;
begin
clrscr;
{Program Penjumlahan}
b:=4;
a:=3;
c:=a+b;
writeln('Hasil penjumlahan ',a,' + ',b,' = ', c);
readln;
end.

nama : mirah diana putri
Kelas : XI IPA 1
Anonim mengatakan... 16 November 2008 pukul 21.32: program Perhitungan_Pascal;
uses crt;
var
a,b,c:integer;

begin
clrscr;
write('IDA BAGUS SANTIKA');
Write('Kls XI IPA 1');
write('masukan angka pertama' ,'a');
readln(a);
Write('masukan angka kedua' ,'b');
readln(b);
a:=9;
b:=3;
c:=a-b;
write('pengurangan,',a,' - ',b,'=',c);
readln;
c:=a*b;
write('perkalian,',a,' * ',b,'=',c);
readln;
write('pembagian,',a,' / ',b,'=',c);
readln;

end.
Anonim mengatakan... 16 November 2008 pukul 21.34: program Perhitungan_Pascal;
uses crt;
var
a,b,c:integer;

begin
clrscr;
write('IDA BAGUS SANTIKA');
Write('Kls XI IPA 1');
readln;
write('masukan angka pertama' ,'a');
readln(a);
Write('masukan angka kedua' ,'b');
readln(b);
a:=9;
b:=3;
c:=a-b;
write('pengurangan,',a,' - ',b,'=',c);
readln;
c:=a*b;
write('perkalian,',a,' * ',b,'=',c);
readln;
write('pembagian,',a,' / ',b,'=',c);
readln;

end.
Anonim mengatakan... 19 November 2008 pukul 23.47: nama : dody surya
kls : X-2

program latihan_2;
uses crt;
var
a: Integer;
b: integer;
c: integer;
d: integer;
e: integer;
f: real;
begin
b:=4;
a:=3;
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
writeln('hasil penjumlahan ',a,'+',b,'=',c);
readln;
writeln('hasil penjumlahan ',a,'-',b,'=',d);
readln;
writeln('hasil penjumlahan ',a,'*',b,'=',e);
readln;
writeln('hasil penjumlahan ',a,'/',b,'=',f);
readln;
end.
Anonim mengatakan... 20 November 2008 pukul 01.17: nama : Febi Khoirunisah
kelas : x.4

program tugas_pascal2;
uses crt;
var
a:integer;
b:integer;
c:integer;
d:integer;
e:real;
begin
clrscr;
a:=18;
b:=9;
c:=a-b;
d:=a*b;
e:=a/b;
writeln ('hasil dari:',a,'-',b,'=',c);
readln;
writeln ('hasil dari:',a,'*',b,'=',d);
readln;
writeln ('hasil dari:',a,'/',b,'=',e);
readln;

end.
Anonim mengatakan... 22 November 2008 pukul 21.56: program latihfn1;
uses crt;
var
x:integer;
y:integer;
q:integer;
w:integer;
e:real;
t:real;
r:integer;
begin
clrscr;
writeln('Wahyu surya_lat1_X-2');
readln;
x:=9;
y:=5;
q:=x-y;
w:=x*y;
e:=x/y;
r:=x+y;
writeln('hasil dari ',x,'+',y,':',r);
readln;
writeln('hasil dari ',x,'-',y,': ',q);
readln;
writeln('hasil dari ',x,'*',y,': ',w);
readln;
writeln('hasil dari ',x,'/',y,': ',e:0:3);
readln;

end.

TUGAS - TUGAS

About Me

Members

TUGAS PASCAL UNTUK CLUB PASCAL

23 komentar:

Posting Komentar

Posting