Anonim N
09 Juni 2022 02:32
Iklan
Anonim N
09 Juni 2022 02:32
Pertanyaan
Buatlah Pascal daftar pasien!
1
1
Iklan
T. Efbin
02 Maret 2023 08:05
<p>Berikut adalah contoh program sederhana dalam bahasa Pascal untuk menyimpan data daftar pasien:</p><p><strong>program DaftarPasien;</strong></p><p><strong>const</strong><br><strong> MAX_PASIEN = 10;</strong></p><p><strong>type</strong><br><strong> TPasien = record</strong><br><strong> nama: string;</strong><br><strong> umur: integer;</strong><br><strong> jenisKelamin: string;</strong><br><strong> end;</strong></p><p><strong>var</strong><br><strong> daftarPasien: array [1..MAX_PASIEN] of TPasien;</strong><br><strong> i: integer;</strong></p><p><strong>begin</strong><br><strong> // Memasukkan data pasien ke dalam array</strong><br><strong> for i := 1 to MAX_PASIEN do begin</strong><br><strong> writeln('Masukkan data pasien ', i, ':');</strong><br><strong> write('Nama: ');</strong><br><strong> readln(daftarPasien[i].nama);</strong><br><strong> write('Umur: ');</strong><br><strong> readln(daftarPasien[i].umur);</strong><br><strong> write('Jenis kelamin: ');</strong><br><strong> readln(daftarPasien[i].jenisKelamin);</strong><br><strong> writeln;</strong><br><strong> end;</strong></p><p><strong> // Menampilkan data pasien yang telah dimasukkan</strong><br><strong> writeln('Daftar Pasien:');</strong><br><strong> for i := 1 to MAX_PASIEN do begin</strong><br><strong> writeln('Pasien ', i, ':');</strong><br><strong> writeln('Nama: ', daftarPasien[i].nama);</strong><br><strong> writeln('Umur: ', daftarPasien[i].umur);</strong><br><strong> writeln('Jenis kelamin: ', daftarPasien[i].jenisKelamin);</strong><br><strong> writeln;</strong><br><strong> end;</strong></p><p><strong> readln;</strong><br><strong>end.</strong></p><p>Program ini menyimpan data daftar pasien dalam sebuah array daftarPasien dengan tipe TPasien yang memiliki tiga properti: nama, umur, dan jenisKelamin. Program ini juga membatasi jumlah maksimal pasien yang dapat dimasukkan ke dalam array dengan konstanta MAX_PASIEN.</p><p>Pada bagian pertama program, user diminta untuk memasukkan data pasien sebanyak MAX_PASIEN kali. Setelah semua data dimasukkan, program akan menampilkan data daftar pasien yang telah dimasukkan.<br> </p>
Berikut adalah contoh program sederhana dalam bahasa Pascal untuk menyimpan data daftar pasien:
program DaftarPasien;
const
MAX_PASIEN = 10;
type
TPasien = record
nama: string;
umur: integer;
jenisKelamin: string;
end;
var
daftarPasien: array [1..MAX_PASIEN] of TPasien;
i: integer;
begin
// Memasukkan data pasien ke dalam array
for i := 1 to MAX_PASIEN do begin
writeln('Masukkan data pasien ', i, ':');
write('Nama: ');
readln(daftarPasien[i].nama);
write('Umur: ');
readln(daftarPasien[i].umur);
write('Jenis kelamin: ');
readln(daftarPasien[i].jenisKelamin);
writeln;
end;
// Menampilkan data pasien yang telah dimasukkan
writeln('Daftar Pasien:');
for i := 1 to MAX_PASIEN do begin
writeln('Pasien ', i, ':');
writeln('Nama: ', daftarPasien[i].nama);
writeln('Umur: ', daftarPasien[i].umur);
writeln('Jenis kelamin: ', daftarPasien[i].jenisKelamin);
writeln;
end;
readln;
end.
Program ini menyimpan data daftar pasien dalam sebuah array daftarPasien dengan tipe TPasien yang memiliki tiga properti: nama, umur, dan jenisKelamin. Program ini juga membatasi jumlah maksimal pasien yang dapat dimasukkan ke dalam array dengan konstanta MAX_PASIEN.
Pada bagian pertama program, user diminta untuk memasukkan data pasien sebanyak MAX_PASIEN kali. Setelah semua data dimasukkan, program akan menampilkan data daftar pasien yang telah dimasukkan.
· 0.0 (0)
Iklan
Mau pemahaman lebih dalam untuk soal ini?
Tanya ke AiRIS
Yuk, cobain chat dan belajar bareng AiRIS, teman pintarmu!
LATIHAN SOAL GRATIS!
Drill Soal
Latihan soal sesuai topik yang kamu mau untuk persiapan ujian
Perdalam pemahamanmu bersama Master Teacher
di sesi Live Teaching, GRATIS!
