tugas algoritma

1.tentukan tipe data:

    a.harga_satuan= longint

    b.jumlah barang= integer

    c.harga total= longint

   d.nama lengkap= string

   e.usia= integer

   f.golongan darah= string

2.

			Kalikan                 p*l

 

3.program struktur_ pemilihan;

uses wincrt;

var

x : integer;

begin

writeln(‘masukkan angka:’);

readln(x);

if x > 0 then

writeln(‘bilangan positif’)

else if x < o then

writeln(‘bilangan negatif’)

else if x = o then

writeln (‘nol’);

end.

4. program perulangan;

 uses wincrt;

 var

 x : integer;

 begin

 for x := 50 downto 5 do

 writeln (x);

 end.

5. a. x : = 5/9 *(c+32)

    b. y : = (2*x + y)/(5*w)

    c. z : = 5*((( a+b)/(c*d))+m / (p+q)))