Belajar Pascal 7 (TUGAS KELAS 8-9)
TUGAS PASCAL
KELAS 83
KELAS 93
KELAS 91
KELAS 92
KELAS 93
KELAS 91
KELAS 92
1. Buatlah bahasa pemrograman pascal (coding) untuk mencari luas keliling lingkaran dengan bilangan konstanta PHI = 3.14 adapun type data untuk jari-jari (r) bilangan integer, untuk luas bilangan real, dan untuk PHI adalah const. (TUGAS KELAS 9)
2. Buat bahsa pemrograman pascal (coding) untuk mencari luas persegi panjang dengan field yaitu Luas, panjang, dan lebar. Type data (jenis data) adalah real. (TUGAS KELAS 8)
Tugas diketik didalam kolom komentar dibawah. Cantumkan nama lengkap, kelas, dan hari KBM.
Tugas untuk kelas 93, 91, 92 dan Kelas 83
BalasHapusprogram persegipanjang;
Hapususes crt;
var panjang,lebar,luas: real ;
begin
CLRSCR ;
WRITE (' MASUKAN NILAI panjang =') ; READLN (panjang);
WRITE (' MASUKAN NILAI lebar =') ; READLN (lebar);
luas:=panjang*lebar;
WRITELN ('HASILNYA ADALAH =',luas:0:0);
READLN;
END.
program (Fitri oktaviani)_luasling;
Hapususes crt;
var r:Integer; luas:Real;
const phi=3.14;
begin
clrscr;
WriteLn('brp jari jari luas lingkaran?'); readln(r);
luas:=phi*r*r;
WriteLn('luas lingkaran adalah',luas :0:2);
readln;
end.
ok
BalasHapusprogram persegipanjang;
Hapususes crt;
var panjang,lebar,luas: real ;
begin
CLRSCR ;
WRITE (' MASUKAN NILAI panjang =') ; READLN (panjang);
WRITE (' MASUKAN NILAI lebar =') ; READLN (lebar);
luas:=panjang*lebar;
WRITELN ('HASILNYA ADALAH =',luas:0:0);
READLN;
END.
Muhammad Riziq kelas 83 , hari Senin 14-11-2022
BalasHapusTugasnya di masukan Rizqi
HapusRasya Thariq
BalasHapusTugasnya diketik Rasya
HapusMuhammad Rafli kelas 83, hari sein 14 11 2022
BalasHapusTugasnya membuat coding luas persegi. Gunakan bahasa pemrograman
HapusTugas nya?
Hapusprogram persegipanjang;
Hapususes crt;
var panjang,lebar,luas: real ;
begin
CLRSCR ;
WRITE (' MASUKAN NILAI panjang =') ; READLN (panjang);
WRITE (' MASUKAN NILAI lebar =') ; READLN (lebar);
luas:=panjang*lebar;
WRITELN ('HASILNYA ADALAH =',luas:0:0);
READLN;
END.
kelas 83
HapusMuhammad Rafli pa
Naufal Gilang kelas 83,hari Senin 14 11 2022
BalasHapusTugasnya?
HapusNaufal Gilang Ramadhan Tugas pascal:
Hapusprogram persegipanjang;
uses crt;
var panjang,lebar,luas: real ;
begin
CLRSCR ;
WRITE (' MASUKAN NILAI panjang =') ; READLN (panjang);
WRITE (' MASUKAN NILAI lebar =') ; READLN (lebar);
luas:=panjang*lebar;
WRITELN ('HASILNYA ADALAH =',luas:0:0);
READLN;
END.
Alvaro musyaffa abrar 83
BalasHapusTugas pascal:
program persegipanjang;
uses crt;
var panjang,lebar,luas: real ;
begin
CLRSCR ;
WRITE (' MASUKAN NILAI panjang =') ; READLN (panjang);
WRITE (' MASUKAN NILAI lebar =') ; READLN (lebar);
luas:=panjang*lebar;
WRITELN ('HASILNYA ADALAH =',luas:0:0);
READLN;
END.
Ok
HapusIblam ali adi sucipto kelas 83
BalasHapusprogram persegipanjang;
BalasHapususes crt;
var panjang,lebar,luas: real ;
begin
CLRSCR ;
WRITE (' MASUKAN NILAI panjang =') ; READLN (panjang);
WRITE (' MASUKAN NILAI lebar =') ; READLN (lebar);
luas:=panjang*lebar;
WRITELN ('HASILNYA ADALAH =',luas:0:0);
READLN;
END.
Ok
HapusOk
HapusOk jgn lupa beri nama kls
BalasHapusMuhammad Riziq kelas 83 hari Senin tanggal 14 - 11 - 2022
BalasHapusSAFiRA 83
BalasHapusprogram persegipanjang;
uses crt;
var panjang,lebar,luas: real ;
begin
CLRSCR ;
WRITE (' MASUKAN NILAI panjang =') ; READLN (panjang);
WRITE (' MASUKAN NILAI lebar =') ; READLN (lebar);
luas:=panjang*lebar;
WRITELN ('HASILNYA ADALAH =',luas:0:0);
READLN;
END.
Jgn lupa di program beri nama.
BalasHapusContoh :
Program dhoho_luaspp;
Yg belum mengerjakan. Tulis nama di program yasriah_luaspp;
BalasHapusSPT ini ada namanya
BalasHapusEric Dwi Ramadan kls 83 program Luas persegi panjang ;
BalasHapusUses crt:
Baru panjang, lebar, luas, real:
Begini:
CLRSCR;
Write (' MASUKAN NILAI panjang =') ;READLN (panjang);
Write (' MASUKAN NILAI lebar =') ;READLN (lebar);
luas:=panjang*lebar;
WRITELN (' HASILNYA ADALAH =',luas:0:0);
READLN;
END
https://madsoheh5.blogspot.com/2022/11/belajar-pascal-6-smp-islam.html?m=1#comments
BalasHapusprogram persegipanjang;
BalasHapususes crt;
var panjang,lebar,luas:Real;
begin
clrscr;
Write('masukan angka p=');
readln(panjang);
Write('masukkan angka 1=');
readln (lebar);
luas := panjang*lebar;
WriteLn('hasil adalah=',luas:0:0);
readln;
end.
ANDINI OKTAVIANI 93
BalasHapusTugas pascal:
program persegipanjang;
uses crt;
var panjang,lebar,luas: real ;
begin
CLRSCR ;
WRITE (' MASUKAN NILAI panjang =') ; READLN (panjang);
WRITE (' MASUKAN NILAI lebar =') ; READLN (lebar);
luas:=panjang*lebar;
WRITELN ('HASILNYA ADALAH =',luas:0:0);
READLN;
END.
Ok andini
HapusDwi Indra Saputra 9³
BalasHapusTugas Pascal:
program kelilinglingkaran;
uses crt;
var r:integer; luas:real;
const phi= 3.14;
begin
clrscr;
write ('brp jari² keliling lingkaran?'); readin (r); luas := phi rr; writeln('keliling lingkaran adalah luas:0:2);
readln;
end.
Ok Indra
HapusM Raffi Suhaimi 9³
BalasHapustugas pascal;
program kelilinglingkaran;
uses crt;
var r:integer; luas:real;
const phi= 3.14;
begin
clrscr;
write ('brp jari² keliling lingkaran?'); readin (r); luas := phi rr; writeln('keliling lingkaran adalah luas:0:2);
readln;
end.
Safitri Oktaviani 93
BalasHapusprogram kelilinglingkaran;
uses crt;
var r:integer; luas:real;
const phi= 3.14;
begin
clrscr;
write ('brp jari² keliling lingkaran?'); readin (r); luas := phi rr; writeln('keliling lingkaran adalah luas:0:2);
readln;
end.
Dzaki Syafwan 93
BalasHapusTugas pascal:
program persegipanjang;
uses crt;
var panjang,lebar,luas: real ;
begin
CLRSCR ;
WRITE (' MASUKAN NILAI panjang =') ; READLN (panjang);
WRITE (' MASUKAN NILAI lebar =') ; READLN (lebar);
luas:=panjang*lebar;
WRITELN ('HASILNYA ADALAH =',luas:0:0);
READLN;
END.
DZAHWAN SYAFWAN 93
BalasHapustugas pascal;
program kelilinglingkaran;
uses crt;
var r:integer; luas:real;
const phi= 3.14;
begin
clrscr;
write ('brp jari² keliling lingkaran?'); readin (r); luas := phi rr; writeln('keliling lingkaran adalah luas:0:2);
readln;
end.
Cahaya maharani 93
BalasHapusTugas Pascal:
program persegi panjang;
uses crt;
var r:integer; luas:real;
const phi= 3.14;
begin
clrscr;
write ('brp jari² keliling lingkaran?'); readin (r); luas := phi rr; writeln('keliling lingkaran adalah luas:0:2);
readln;
end.
zalika maira afarin 91
BalasHapusprogram persegipanjang;
uses crt;
var panjang,lebar,luas: real ;
begin
CLRSCR ;
WRITE (' MASUKAN NILAI panjang =') ; READLN (panjang);
WRITE (' MASUKAN NILAI lebar =') ; READLN (lebar);
luas:=panjang*lebar;
WRITELN ('HASILNYA ADALAH =',luas:0:0);
READLN;
END.
Sindi Aulia Putri
BalasHapusprogram persegipanjang;
uses crt;
var panjang,lebar,luas: real ;
begin
CLRSCR ;
WRITE (' MASUKAN NILAI panjang =') ; READLN (panjang);
WRITE (' MASUKAN NILAI lebar =') ; READLN (lebar);
luas:=panjang*lebar;
WRITELN ('HASILNYA ADALAH =',luas:0:0);
READLN;
END.
Santika 91
BalasHapusprogram persegipanjang;
uses crt;
var panjang,lebar,luas: real ;
begin
CLRSCR ;
WRITE (' MASUKAN NILAI panjang =') ; READLN (panjang);
WRITE (' MASUKAN NILAI lebar =') ; READLN (lebar);
luas:=panjang*lebar;
WRITELN ('HASILNYA ADALAH =',luas:0:0);
READLN;
END.
Rianti Febriyanti 91
BalasHapusprogram persegipanjang;
uses crt;
var panjang,lebar,luas: real ;
begin
CLRSCR ;
WRITE (' MASUKAN NILAI panjang =') ; READLN (panjang);
WRITE (' MASUKAN NILAI lebar =') ; READLN (lebar);
luas:=panjang*lebar;
WRITELN ('HASILNYA ADALAH =',luas:0:0);
READLN;
END.
Mergian Saputri 91
BalasHapusprogram persegipanjang;
uses crt;
var panjang,lebar,luas: real ;
begin
CLRSCR ;
WRITE (' MASUKAN NILAI panjang =') ; READLN (panjang);
WRITE (' MASUKAN NILAI lebar =') ; READLN (lebar);
luas:=panjang*lebar;
WRITELN ('HASILNYA ADALAH =',luas:0:0);
READLN;
END.
Nama:Rasyad Isnain Azhimu Susanto 91
BalasHapusprogram kelilinglingkaran;
uses crt;
var r:integer; luas:real;
const phi= 3.14;
begin
clrscr;
write ('brp jari² keliling lingkaran?');readln
(r); luas := phi*r*r ; writeln
('keliling lingkaran adalah', luas:0:2);
readln;
end.