Ujian Tengah Semester Algoritma Pemograman 1.
Perbaikkilah program berikut agar ia dapat di kompilasikan pada kompiler pascal, serta tuliskan output program tersebut setelah di perbaikki ! Program 1soal Uses crt ; Var Nama : string: Begin Clrscr Writeln (‘Silahkan ketik kata Matematika = ‘); Readln (Nama); A := copy (Name,1:3); insert (‘A MATA,A,4); writeln (‘’,A); delete (A,3,7); insert (‘KA’,A,3); writeln (‘’,A); end
2.
A. Tuliskan output dari program berikut ini; Program Minuman; Uses crt; Var I : longint; Begin Clrscr; Writeln ('TABEL HARGA MINUMAN'); Writeln ('Jumlah Teh Botol Teh Kotak Susu'); Writeln ('------------------------------------------------------'); for i := 10 downto 1 do begin writeln (i:5,i * 2150:10,i * 3250:10,i * 3450:10); writeln ('------------------------------------------------------'); end; readln; end.
B. Buatlah program serupa dengan menggunakan struktur perulangan while dan repeat until! 3.
Buatlah Program untuk menampilkan beberapa bintang dari n bilangan pertama yang menghasilkan output seperti contoh berikut;
4.
Buatlah suatu program untuk mengkonversi suhu dari celcius ke reamur dan Fahrenheit dengan pilihan menu yang terstruktur dan memberikan pesan jika pilihan yang di buat diluar pilihan yang tersedia! <<<<<
>>>>> 1. Konversi Suhu Celcius Ke Reamur 2. Konversi Suhu Celcius Ke Fahrenheit 3. Keluar