Lanjutan Tugas lagi

MENCARI KOORDINAT TITIK TENGAH
Program Koordinat_Titik_Tengah;
Uses Wincrt;
Var
x1,y1,x2,y2,x,y:real;
Begin
Write (‘Masukkan nilai x1: ‘);readln (x1);
Write (‘Masukkan nilai y1: ‘);readln (y1);
Write (‘Masukkan nilai x2: ‘);readln (x2);
Write (‘Masukkan nilai y2: ‘);readln (y2);
x:=(1/2)*(x1+x2);
y:=(1/2)*(y1+y2);
Writeln (‘(x,y)= ‘,(‘(‘),(x):5:2,(‘,’),(y):5:2,(‘)’));
End.
KONVERENSI WAKTU
Program Konversi_Jam_ke_Detik;
Uses Wincrt;
Type Jam = record
hh:longint;
mm:longint;
ss:longint;
End;
Var
J:Jam;
Total_Detik:longint;
Begin
Write (‘Jam = ‘);readln (J.hh);
Write (‘Menit= ‘);readln (J.mm);
Write (‘Detik= ‘);readln (J.ss);
Total_Detik:=(J.hh*3600)+(J.mm*60)+J.ss;
Writeln (‘Waktu dalam detik adalah ‘,Total_Detik);
End.
Program Konversi_Detik_ke_Jam;
Uses Wincrt;
Type Jam = record
hh:longint;
mm:longint;
ss:longint;
end;
Var
J:Jam;
Total_Detik:longint;
Begin
Write (‘Total Detik= ‘);readln (Total_Detik);
J.hh:=Total_detik div 3600;
J.mm:=(Total_detik mod 3600) div 60;
J.ss:=(Total_detik mod 3600) mod 60;
Writeln (‘Waktu dalam Jam adalah ‘,J.hh,(‘ jam ‘),J.mm,(‘ menit ‘),J.ss,(‘ detik’));
End.
Program Menu_Makan_Hari_Ini;
Uses Wincrt;
Var
a:integer;
Begin
Gotoxy (28,3); Writeln (‘Menu Makan Hari Ini’);
Gotoxy (25,4); Writeln (‘=========================’);
Gotoxy (25,6); Writeln (‘1. Nasi goreng’);
Gotoxy (25,7); Writeln (‘2. Nasi ayam bakar’);
Gotoxy (25,8); Writeln (‘3. Nasi penyet tempe’);
Gotoxy (25,9); Writeln (‘4. Nasi Gudeg’);
Gotoxy (25,10); Writeln (‘5. Nasi liwet’);
Gotoxy (25,11); Writeln (‘6. Nasi Rames’);
Gotoxy (25,13); Write (‘Masukkan Pilihan Anda: ‘);readln (a);
Clrscr;
Gotoxy (20,7);
Case a of
1: Begin
Writeln (‘Menu yang Anda pilih adalah Nasi goreng.’);
Gotoxy (20,8); Writeln (’silahkan selamat mencoba dan jangan lupa bayar ya.’);
End;
2: Begin
Writeln (‘Menu yang Anda pilih adalah Nasi ayam bakar.’);
Gotoxy (20,8); Writeln (‘ silahkan selamat mencoba dan jangan lupa bayar ya.’);
End;
3: Begin
Writeln (‘Menu yang Anda pilih adalah Nasi penyet tempe.’);
Gotoxy (20,8); Writeln (‘ silahkan selamat mencoba dan jangan lupa bayar ya.’);
End;
4: Begin
Writeln (‘Menu yang Anda pilih adalah Nasi Gudeg.’);
Gotoxy (20,8); Writeln (‘ silahkan selamat mencoba dan jangan lupa bayar ya.’);
End;
5: Begin
Writeln (‘Menu yang Anda pilih adalah Nasi liwet.’);
Gotoxy (20,8); Writeln (‘ silahkan selamat mencoba dan jangan lupa bayar ya.’);
End;
6: Begin
Writeln (‘Menu yang Anda pilih adalah Nasi Rames.’);
Gotoxy (20,8); Writeln (‘ silahkan selamat mencoba dan jangan lupa bayar ya.’);
End;
else Writeln (‘Pilihan Anda Salah’);
End;
End.
DERET BILANGAN
Program Penjumlahan_Deret_Bilangan_1_sd_12;
Uses Wincrt;
Var
n,k,jumlah:integer;
Begin
n:=12;
jumlah:=0;
k:=1;
Repeat
Write (k,’ + ‘);
jumlah:=jumlah+k;
k:=k+1;
Until k>n;
Writeln (‘=’,jumlah);
End.
DERET BILANGAN LAGI J
Program Penjumlahan_Deret_Bilangan_Bulat;
Uses Wincrt;
Var
bilangan_awal,bilangan_akhir,bilangan_setelah_awal,bilangan_penolong1,bilangan_penolong2:longint;
jumlah1,jumlah2,jumlah_akhir:longint;
Begin
Write (‘Masukkan bilangan awal yang diinginkan = ‘); readln (bilangan_awal);
Write (‘Masukkan bilangan akhir yang diinginkan = ‘); readln (bilangan_akhir);
If bilangan_akhir=bilangan_awal then write (bilangan_awal)
else begin
jumlah_akhir:=0;
jumlah1:=0;
jumlah2:=0;
bilangan_setelah_awal:=bilangan_awal+1;
bilangan_penolong1:=0;
bilangan_penolong2:=0;
Write (bilangan_awal);
Repeat
jumlah2:=jumlah2+bilangan_penolong2;
bilangan_penolong2:=bilangan_penolong2+1;
Until bilangan_penolong2>=bilangan_awal;
Repeat
jumlah1:=jumlah1+bilangan_penolong1;
bilangan_penolong1:=bilangan_penolong1+1;
Until bilangan_penolong1>bilangan_akhir;
Repeat
Write (‘ + ‘,bilangan_setelah_awal);
bilangan_setelah_awal:=bilangan_setelah_awal+1;
jumlah_akhir:=jumlah1-jumlah2;
Until bilangan_setelah_awal>bilangan_akhir;
Write (‘ = ‘,jumlah_akhir);
end
End.
DERET BILANGAN SAMPAI KE N
Program Penjumlahan_Deret_Bilangan_Bulat_1_Sampai_n;
Uses Wincrt;
Var
bilangan_akhir,bilangan_awal,jumlah:longint;
Begin
bilangan_awal:=1;
jumlah:=0;
Write (‘Masukkan bilangan akhir yang diinginkan = ‘); readln (bilangan_akhir);
Repeat
Write (bilangan_awal);
If bilangan_awalbilangan_akhir;
Write (‘ = ‘,jumlah);
End.