Uts Alpro 2019.docx

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