Untuk club pascal SMA PGRI 2 DPS
Tugas pascal 1 kumpulkan disini.
About Me
- Kadek Yartono
- Disini kamu bisa mendapatkan informasi yang bermanfaat, tutorial maupun tips dan trik serta alamat-alamat situs download.
Members
Tugas Pascal untuk club pascal
Minggu, 09 November 2008
Diposting oleh Kadek Yartono di 21.17
Label: tugas_pascal
Langganan:
Posting Komentar (Atom)
8 komentar:
nama: ....
Kelas:...
program belajar_pascal;
uses crt;
var a:string;
b:string;
begin
clrscr;
writeln ('Saya lagi belajar pascal');
readln;
writeln ('saya belajar nulis pakai writeln');
writeln('sukses belajar pascal'); writeln;
write('nama ');readln(a);
write('tinggi ');readln(b);
readln;
end.
nama:i gede wahyu surya dharma
kelas: x-2
program data_pribadi;
uses crt;
begin
clrscr;
writeln('nama: i Gede Wahyu Surya Dharma');
readln;
writeln('kelas: X-2');
readln;
writeln('no absen: 45');
readln;
writeln('sekolah: SMA PGRI 2 DENPASAR');
readln;
readln;
write('pemprograman:');read;write('pascal');
readln
write('hobi:');
readln;
write('tinggi:');
readln;
end.
NAMA : RISKA UMAMI
KELAS: X-7
program belajar_pascal;
uses crt;
var
Hobby:string;
Tinggi:integer;
begin
clrscr;
textcolor (yellow);
readln;
write ('Nama:Riska Umami');
readln;
writeln ('Kelas:X-7');
readln;
writeln ('Pemrograman:Pascal');
readln;
write ('Hobby:');
readln;
write ('Tinggi:');
readln;
end.
NAMA : PUTU AYU EKA RINI
KELAS: X-7
program belajar_pascal;
uses crt;
begin
clrscr;
write('nama: Putu Ayu Eka Rini');
readln;
writeln('kelas:X7');
readln;
writeln('pemrograman:pascal');
readln;
write('hobi:');
readln;
write('tinggi:');
readln;
end.
program belajar_Turbo_PascalI;
uses crt;
var
hobby:string;
tinggi:integer;
berat:real;
begin;
clrscr;
writeln ('Nama: Putu Joni Satriya Wibawa');
writeln ('Kelas: XI IPA_I');
readln;
write ('Hobby: ');
readln;
write ('Tinggi: ');
readln;
write ('Berat: ');
readln;
writeln ('Pemrograman: ');
readln;
end.
program belajar_pascal;
uses crt;
begin
clrscr;
writeln('nama:gusti ayu era swandewi');
writeln('kelas:XI IPA 1');
readln;
writeln('pemrograman');read;write('pascal')
readln;
write('hobi:');
readln;
write('tinggi:');
readln;
end.
Nama : Ida Ayu Ismaya Sukrapratiwi
Kelas : X7
Program belajar_pascal;
uses crt;
begin
clrscr;
write('Nama:Ida Ayu Ismaya Sukrapratiwi');
readln;
writeln('Kelas: X-7');
readln;
writeln('pemrograman: pascal');
readln;
write('Hobi:');
readln;
write('Tinggi:');
readln;
end.
Nama:Novita sari
Kelas: X7
program belajar_pascal;
uses crt;
begin
clrscr;
write('Nama: Novita Sari');
readln;
writeln('Kelas: X-7');
readln;
writeln('pemrograman : pascal');
readln;
write('hobby:');
readln;
write('tinggi:');
readln;
end.
Posting Komentar