Pengulangan loop

TUGAS PASCAL
SOAL 4

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

Tujuan:
   Cetak kalimat "UNIPA"

Program:

uses wincrt;
var n:integer;
begin
writeln('Pengulangan for to do naik');
for n:=1 to 5 do
    writeln(n,'.Unipa');
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