Essay about Computer and Mathematical Savoir: Programming Paradigms

| CSC305 – Programming Paradigms

|

submission date: summer September 2013

| PERSON ASSIGNMENT

FULLNAME| U. MUHAMMAD HAIRI TRASH CAN U. ISKANDAR

UITM NUMBER| 2011602528

GROUP| JCS1105 C

PROBLEM SET| C

CSC305 -- Programming ParadigmsCS110 - Degree in Pc Science, UiTM Johor, MalaysiaLecturer: MISS NAFISAH BINTI AMINFaculty of Pc & Statistical Sciences

Specific ASSIGNMENT

Stand of content

Topics| Webpage

i) Desk of Content material ii) Pascal Program a. Source Code b. Test Input/output c. Project System Status| 12-5

system individualAssignment; Uses Crt, sysutils; const strState: array[1.. 2] of chain = ('Selangor', 'Johor'); strMonth: array[1.. 6] of string = ('January', 'February', 'March', 'April', 'May', 'June'); type rainfallRec sama dengan record condition, city: String; amountRain: array[1.. 6] of Integer; end; procedure getRainfall(var rainfall: assortment of rainfallRec); var i, t: integer; intState: Integer; start for my spouse and i: = one particular to 6 do begin write('Enter district: '); readln(rainfall[i]. city); writeln('Select state: '); writeln('1) Selangor'); writeln('2) Johor'); readln(intState); rain fall[i]. express: = strState[intState]; to get j: sama dengan 1 to 6 do begin write('Enter rain fall for ' + strMonth[j] + ': '); readln(rainfall[i]. amountRain[j]); end; clrscr; end; end; function countRainAmountExceedTenK(rainfall: array of rainfallRec): integer; va i, rely: Integer; commence count: sama dengan 0; writeln('rainfall more than 75, 000 liter in the month of March'); for i: = one particular to 6 perform begin in the event that (rainfall[i]. amountRain[3] > 100000) then begin writeln('City: ' & rainfall[i]. city); writeln('State: ' & rainfall[i]. state); rely: = count + 1; end; end; countRainAmountExceedTenK...