nadiah.izzati

program WaterBill; uses winCrt; type customer=record acct_no:longint; code:char; liter:longint; amount:real; end; var arrayC:array[1..50] of customer; index:integer; loop:boolean; continue:char; arr:customer; PROCEDURE read_data(var data:customer); begin writeln('Customer Info: '); writeln('Account number: '); readln(data.acct_no); writeln('Code(H,C,I) : '); readln(data.code); writeln('Unit of liter: '); readln(data.liter); end; function calc_bill(code:char):real; begin if (code='H') then begin if (arr.liter<=15000) then …

my code can't seem to find the maximum price. program Mobile; uses winCrt; type Mobilephone=record brand:integer; model:String; price:real; end; var hp:array[1..100] of Mobilephone; count,m,MobileNum:integer; max:real; PROCEDURE read_data(var newMobile:Mobilephone); begin writeln('Brand:(1:Samsung 2:iPhone 3:Nokia)'); readln(newMobile.brand); writeln('Model:'); readln(newMobile.model); writeln('Price:'); readln(newMobile.price); end; PROCEDURE displayexp(var exp:Mobilephone); begin if(exp.price>max) then begin writeln('THE MOST EXPENSIVE HP:'); writeln('Brand: …