Wednesday, March 5, 2008

Tugas Program Input Email

Buat program dengan dimana user bisa meng-inputkan data-data pribadi seperti email.

7 comments:

Ni MAde Dwi Purwati on April 10, 2009 at 10:31 PM said...

{NI MADE DWI PURWATI,X7}
Program Sign_in;
USES Crt;
Var
My_name,First_Name,Last_Name,Gender,Month,I_Live_in,Yahoo_ID_and_Email,
Password,Re_type_Password,Day,Year,Postal_Code: String;
BEGIN
ClrScr;
Write('1.Tell us about your self!');Readln;
Write('My_Name:');Readln(My_Name);
Write('First_Name:');Readln(First_Name);
Write('Last_Name:');Readln(Last_Name);
Write('Gender:');Readln(Gender);Readln;
Write('Birthday!');Readln;
Write('Month:');Readln(Month);
Write('Day:');Readln(Day);
Write('Year:');Readln(Year);Readln;
Write('I_Live_in:');Readln(I_Live_in);
Write('Postal_Code:');Readln(Postal_Code);Readln;
Write('2.Select an ID and password!');Readln;
Write('Yahoo_ID_and_Email:');Readln(Yahoo_ID_and_Email);
Write('Password:');Readln(Password);
Write('Re_type_Password:');Readln(Re_type_Password);

ClrScr;
Writeln('...You have been enlisted as member yahoo...!');
Writeln('1.Tell us about your self!');
Writeln('My_Name:',My_Name);
Writeln('First_Name:',First_Name);
Writeln('Last_Name:',Last_Name);
Writeln('Gender:',Gender);
Writeln('Birthday!');
Writeln('Month:',Month);
Writeln('Day:',Day);
Writeln('Year:',Year);
Writeln('I_Live_in:',I_Live_in);
Writeln('Postal_Code:',Postal_Code);
Writeln('2.Select an ID and password!');
Writeln('Yahoo_ID_and_Email:',Yahoo_ID_and_Email);
Writeln('Password:',Password);
Writeln('Re_type_Password:',Re_type_Password);
Writeln('....Thank You....');
readln;
END.

Hanifah Jawas on April 30, 2009 at 9:33 PM said...

{ Program Belanja
Nama : Hanifah Jawas
Kelas : X.4
No : 16 }


PROGRAM Registrasi;
Uses Crt;

VAR
Nama,tglLahir,alamat,email : string;
Tinggi,berat : integer;

BEGIN
Clrscr;
WriteLn ('masukkan data diri anda');
Write ('nama:'); ReadLn (nama);
Write ('tanggal lahir:'); ReadLn (tglLahir);
Write ('tinggi badan:'); ReadLn (Tinggi);
Write ('berat badan:'); ReadLn (berat);
Write ('alamat:'); ReadLn (alamat);
Write ('email:'); ReadLn (email);

Clrscr;
WriteLn ('anda sudah teregistrasi');
WriteLn ('nama:',nama);
WriteLn ('tanggal lahir:',tglLahir);
WriteLn ('tinggi badan:',Tinggi);
WriteLn ('Berat badan:',berat);
WriteLn ('alamat:',alamat);
WriteLn ('email:',email);
ReadLn;
END.

Ni Wayan Ina Sukma Dewi on April 30, 2009 at 9:43 PM said...

{Program Tugas
Nama : NI WAYAN INA SUKMA DEWI
Kelas : X.4
No : 18 }


Program Regristrasi_Email;
Uses Crt;
VAR
Nama,TglLahir,Alamat,Email : String;
Tinggi,Berat : Integer;
BEGIN
Clrscr;
WriteLn ('Masukkan Data Diri Anda');
Write ('Nama:');
ReadLn (Nama);
Write ('Tanggal Lahir:');
ReadLn (TglLahir);
Write ('Tinggi Badan:');
ReadLn (Tinggi);
Write ('Berat Badan:');
ReadLn (Berat);
Write ('Alamat:');
ReadLn (Alamat);
Write ('Email:');
ReadLn (Email);

Clrscr;
WriteLn ('Anda Sudah Teregistrasi');
WriteLn ('Nama:',Nama);
WriteLn ('Tanggal Lahir:',TglLahir);
WriteLn ('Tinggi Badan:',Tinggi);
WriteLn ('Berat Badan:',Berat);
WriteLn ('Alamat:',Alamat);
WriteLn ('Email:',Email);
ReadLn;
END.

Cok Istri Indraswari Pemayun on April 30, 2009 at 9:55 PM said...

{nama : COK ISTRI INDRASWARI PEMAYUN
Kelas : X.8
No : 19 }


Program Regristrasi_Email;
Uses Crt;
VAR
Nama,Tgl­_Lahir,Alamat,Email,kode : String;
Tinggi,Berat : Integer;
BEGIN

Clrscr;
Writeln ('Selamat Datang');
Readln;
WriteLn ('Masukkan Data Pribadi Anda');
Write ('Nama:');
ReadLn (Nama);
Write ('Tanggal Lahir:');
ReadLn (Tgl_Lahir);
Write ('Tinggi Badan:');
ReadLn (Tinggi);
Write ('Berat Badan:');
ReadLn (Berat);
Write ('Alamat:');
ReadLn (Alamat);
Write ('Email:');
ReadLn (Email);
write ('Password:');
readln (kode);

Clrscr;
WriteLn ('Anda Sudah Beregistrasi');
WriteLn ('Nama:',Nama);
WriteLn ('Tanggal Lahir:',TglLahir);
WriteLn ('Tinggi Badan:',Tinggi);
WriteLn ('Berat Badan:',Berat);
WriteLn ('Alamat:',Alamat);
WriteLn ('Email:',Email);
ReadLn;
writeln ('Terima Kasih');
Readln;
END.

adi pranata on April 30, 2009 at 10:51 PM said...

Program yahoo_mail;
{ Nama : I Wayan Adi Pranata
Kelas : x5
Nomor : 03}
USES Crt;
Var
My_name,First_Name,Last_Name,Gender,Month,I_Live_in,Yahoo_ID_and_Email,
Password,Re_type_Password,Day,Year,Postal_Code: String;
BEGIN
ClrScr;
Write('1.Tell us about your self!');Readln;
Write('My Name: ');Readln(My_Name);
Write('First Name:');Readln(First_Name);
Write('Last Name:');Readln(Last_Name);
Write('Gender:');Readln(Gender);Readln;
Write('Birthday!');Readln;
Write('Month:');Readln(Month);
Write('Day:');Readln(Day);
Write('Year:');Readln(Year);Readln;
Write('I Live in:');Readln(I_Live_in);
Write('Postal Code:');Readln(Postal_Code);Readln;
Write('2.Select an ID and password!');Readln;
Write('Yahoo ID and Email:');Readln(Yahoo_ID_and_Email);
Write('Password:');Readln(Password);
Write('Re type Password:');Readln(Re_type_Password);

ClrScr;
Writeln('...You have been enlisted as member yahoo...!');
Writeln('1.Tell us about your self!');
Writeln('My Name:',My_Name);
Writeln('First Name:',First_Name);
Writeln('Last Name:',Last_Name);
Writeln('Gender:',Gender);
Writeln('Birthday!');
Writeln('Month:',Month);
Writeln('Day:',Day);
Writeln('Year:',Year);
Writeln('I Live in:',I_Live_in);
Writeln('Postal Code:',Postal_Code);
Writeln('2.Select an ID and password!');
Writeln('Yahoo ID and Email:',Yahoo_ID_and_Email);
Writeln('Password:',Password);
Writeln('Re type Password:',Re_type_Password);
Writeln('....Thank You....');
readln;
END.

muhamad on May 15, 2009 at 1:34 AM said...

Program sign_up;
( Nama : Muhamad ainun yaqin
Kelas : X5
Nomor : 31)
USES Crt;
Var
Nama,TglLahir,tinggal,email,kode :string;
Tinggi,Berat :integer ;
BEGIN

ClrScr;
Writeln('Masukan profil anda');
Write('nama: ');Readln(nama);
Write('TglLahir:');Readln(TglLahir);
Write('tinggal:');Readln(tinggal);
Write('tinggi:');Readln(tinggi);
Write('berat: ');Readln(berat);
Write('email:');Readln(email);
Write('kode:');Readln(kode);

ClrScr;
Writeln('anda sudah teregistrasi');
Writeln('nama:',nama);
Writeln('TglLahir:',TglLahir);
Writeln('tinggal:',tinggal);
Writeln('tinggi:',tinggi);
Writeln('berat:',berat);
Writeln('email:',email);
Writeln('kode:',kode);
readln;
end.

tody on June 10, 2009 at 9:40 PM said...

Program yahoo_mail;
{ Nama : ketut tody kresna wijaya )
Kelas : x8
Nomor : 41}
USES Crt;
Var
My_name,First_Name,Last_Name,Gender,Month,I_Live_in,Yahoo_ID_and_Email,
Password,Re_type_Password,Day,Year,Postal_Code: String;
BEGIN
ClrScr;
Write('1.Tell us about your self!');Readln;
Write('My Name: ');Readln(My_Name);
Write('First Name:');Readln(First_Name);
Write('Last Name:');Readln(Last_Name);
Write('Gender:');Readln(Gender);Readln;
Write('Birthday!');Readln;
Write('Month:');Readln(Month);
Write('Day:');Readln(Day);
Write('Year:');Readln(Year);Readln;
Write('I Live in:');Readln(I_Live_in);
Write('Postal Code:');Readln(Postal_Code);Readln;
Write('2.Select an ID and password!');Readln;
Write('Yahoo ID and Email:');Readln(Yahoo_ID_and_Email);
Write('Password:');Readln(Password);
Write('Re type Password:');Readln(Re_type_Password);

ClrScr;
Writeln('...You have been enlisted as member yahoo...!');
Writeln('1.Tell us about your self!');
Writeln('My Name:',My_Name);
Writeln('First Name:',First_Name);
Writeln('Last Name:',Last_Name);
Writeln('Gender:',Gender);
Writeln('Birthday!');
Writeln('Month:',Month);
Writeln('Day:',Day);
Writeln('Year:',Year);
Writeln('I Live in:',I_Live_in);
Writeln('Postal Code:',Postal_Code);
Writeln('2.Select an ID and password!');
Writeln('Yahoo ID and Email:',Yahoo_ID_and_Email);
Writeln('Password:',Password);
Writeln('Re type Password:',Re_type_Password);
Writeln('....Thank You....');
readln;
END.

Yang mau donasi, silahkan disini ....

Bagi para donatur yang ingin melakukan donasi ke webblog ini, silahkan klik tombol Donate. Atau pilih jenis donasi yang lainnya....

Entri Populer

Daftar Pay Per View (PPV / CPM) disini dapatkan penghasilan $2 s/d $4 per CPM

Get paid To Promote at any Location

All Post

Antivirus - Avira/Antivir - Dowload Master (1) Antivirus - Avira/Antivir - Update Manual (1) Antivirus - Kaspersky - Download Update (1) Antivirus - Smadav (1) AP01 - Dasar-Dasar Adobe Photoshop (13) AP02 - Free Download Brush (3) AP04 - Efek Teks (1) AP05 - Kreasi Foto (5) AP07 - Download Frame / Bingkai Foto (40) AP08 - Wallpaper (4) AP09 - Kartu Ucapan (5) AP10 - Desainku (11) AP11 - Gallery Photo (1) Aplikasi lucu (2) Artikel Internet (3) Download Tutorial (6) Email Gmail (1) Email Yahoo (1) Forum Diskusi (6) Game Facebook (1) Game Online - IKARIAM (1) Game Pokemon Emerald GBA (11) Games - Farm Frenzy Pizza Party (1) Games - GBA - Map Pokemon Leaf Green (6) Games - Mini Flash - Packman (1) Games - Mini Flash - Play Aim Fire Game (1) Games Online (11) Games Online - Naruto Arena (1) Games Online - Pokemon Black (1) Games Online - Pokemon TPPCRPG (1) Games Online - Thecrims (1) Games Online - Travian (7) Games Online - www.pokemonbattlearena.net (1) Games Online LORDS OF WAR ANE MONEY (19) Internet (1) Karya Anak Design Grafish (Extra Desain) (3) Kata Kata Mutiara untuk Motivasi (1) Kesehatan - Bahaya zat kimia (2) Kesehatan - Rokok (3) Kesehatan - Test Buta Warna (7) Lain-lain (2) Link Site Bagus (2) Lirik Lagu - Indonesai - Armanda (1) Lirik Lagu - Indonesai - BCL (1) Lirik Lagu - Indonesai - DMasiv (1) Lirik Lagu - Indonesai - Geisha (1) Lirik Lagu - Indonesai - Gita Gutawa (1) Lirik Lagu - Indonesai - Kotak (1) Lirik Lagu - Indonesai - Nindy (1) Lirik Lagu - Indonesai - SHE (4) Lirik Lagu - Indonesai - Warteg Boys (1) LordWM 04 Battle (3) Map Game Pokemon Emerald GBA (11) Pemrograman (2) Perbaikan (1) Perjalanan dan Objek Wisata (1) Pertanyaan Seputar TIK (1) Ramalan - Kecocokan Pasangan (1) Ramalan - Watak Manusia (2) SMA - Kelas X - Materi TIK (6) SMA - Kelas X - Remidi (1) SMA - Kelas X - Tugas (8) SMA - Kelas X - Tugas Extra Pascal (5) Software - Browser - Mozila Firefox (3) Software - Downloader - Orbit (3) Software - Multimedia - K-Lite Mega Codec (1) Software - WinRAR (1) Tugas Desain Grafis (2) Tutorial (4) Tutorial - Adobe Photoshop (18) Tutorial - Macromedia Flash (4) Tutorial - Microsoft Word (3) Tutorial - Microsoft Word 2007 (2) Tutorial - WinRar (1) Tutorial Blogger (8) Tutorial Blogger - AdsenseCamp (3) Tutorial Delphi (4) Tutorial Facebook (2) Tutorial Microsoft Office PowerPoint 2007 (3) Tutorial Microsoft Office Word 2007 (1) Uang Gratis (4) Uang Gratis - Adsense Camp (3) Uang Gratis - Paid per View (CPM/PPV) (5) Uang Gratis - Pay Per Click or CPM - Iklan (2) Uang Gratis - Paypal (1) Uang Gratis - Ziddu (1) Ucapan Hari Raya / Peringatan (1) ucapan hari raya nyepi (2) Upload File (1) Website (2) website-Alexa Site Info (1)
 

FeedBurner FeedCount

Followers

Full Tutorial 's Fan Box

* Tutorial * on Facebook
Full Tutorial Copyright © 2009 Blogger Template Designed by Bie Blogger Template