Latihan Program Mau Lagi

program mau_lagi;
uses crt;
var
tanya:char;
angka1,angka2,jumlah:integer;
begin
repeat;
clrscr;
writeln('PROGRAM MENGHITUNG JUMLAH');
writeln('=========================');
write('masukkan angka1:'); readln(angka1);
write('masukkan angka2:'); readln(angka2);
repeat
write('mau lagi?[y/t]'); readln(tanya);
tanya:=upcase(tanya);
until tanya in['T','Y'];
until tanya='T';
readln;
end.

latihan membuat puisi dan menghitung volume

1)program puisi;

uses crt;

begin

write('terdiam aku dalam ragu');

write('termenungku dalam rapuh');

write('nyawa yang terkulai runtuh');

write('ditemani malaikat maut yang menuggu');

write(‘gelap mata ini’);

write(‘namun didetik itu’);

write(‘hanya mata indahmu’);

write(‘hanya senyummu yang menguatkanku’);

end.

2)program volumekubus;

uses crt;

var

volume_kubus:string;

sisi1:integer;

sisi2:integer;

sisi3:integer;

volume:longint;

begin

clrscr;

write('masukkanvolume_kubus=');readln(volume_kubus);

write('masukkansisi1=');readln(sisi1);

write('masukkansisi2=');readln(sisi2);

write('masukkansisi3=');readln(sisi3);

write('masukkanvolume=');readln(volume);

volume:=sisi1*sisi2*sisi3;

writeln('totalvolumeadalah=',volume);readln;

end.

contoh program pascal membuat biodata

program biodata;
uses crt;
begin
clrscr;
writeln('===============');
writeln('PROGRAM BIODATA');
writeln('===============');
writeln('nama=siti hariyanti');
writeln('tempat/tgl lahir=singaraja/17 mei 1991');
writeln('jenis kelamin= peremopuan');
writeln('alamat=jl, M,panjaitan 4/6 malang');
writeln('agama= islam');
writeln('status= mahasiswa');
writeln;
readln;
end.