nama nama hari


TUGAS PASCAL
SOAL 11

Nama: Miftachul Bahri // 153600033
             Rifqi Nazrudin //153600034

Tujuan:
    Buat program dengan deklarasi constanta dalam aplikasi string , tentang nama-nama hari. 

Program:
uses wincrt;
const
hari: array[1..7] of string=('senin','selasa','rabu','kamis','jumat','sabtu','minggu');
var
   n:integer;
Begin
   writeln('Nama-nama hari');
   writeln;
   n:=1;
   repeat
         writeln('Hari ke = ',n,' = ',hari[n]);
         n:=n+1;
   until n=8;
  End.

Proyek:


Komentar

Posting Komentar

Postingan populer dari blog ini

Lampu Meteor

TUGAS  Lampu meteor Nama: Miftachul Bahri // 153600033              Rifqi Nazrudin //153600034 Tujuan:      Led menyala dari arah kanan ke kiri secara bergantiandengan selang waktu 0,1 sekon. Program: Int led[] = {2,3,4,5,6,7}; Void setup() { Int n; For (n=0; n<6; n++){                 digitalWrite (led[n],HIGH);                 delay(tunda);                 digitalWrite (led[n],LOW); } } Proyek: Add caption
Baca selengkapnya

Motor servo

Percobaan 19 Motor Servo Nama: Miftachul Bahri // 153600033             Rifqi Nazrudin // 153600034 Tujuan:       Mengerakan motor servo dengan sudut tertentu Program: Servo myservo;  int pos = 0;   void setup() {   myservo.attach(9); } void loop() {   for (pos = 0; pos <= 90; pos += 1) {     myservo.write(pos);                 delay(15);                        }   for (pos = 90; pos >= 0; pos -= 1) {     myservo.write(pos);                   delay(15);                        } } Proyek:
Baca selengkapnya

NADA

Percobaan 9 NADA Nama: Miftachul Bahri // 153600033             Rifqi Nazrudin // 153600034 Tujuan:  Membuat nada bunyi atau nada satu oktaf Program: Void setup() {  pinMode(8,OUTPUT); } Void loop() { noTone(8); delay(1000); tone(8,264,200); delay(200); noTone(8); tone(8,297,200); delay(200); noTone(8); tone(8,330,200); delay(200); noTone(8); tone(8,352,200); delay(200); noTone(8); tone(8,396,200); delay(200); noTone(8); tone(8,440,200); delay(200); noTone(8); tone(8,495,200); delay(200); noTone(8); tone(8,528,200); delay(200); } Proyek:
Baca selengkapnya