Coding:
cube.pas
{Assignment 2 Csc305 Question 1 (i)
write function that is called CUBE}
program cubeprogram;
uses Crt;
function CUBE(x : integer) : integer;
begin
CUBE:= x*x*x;
end;
var
number, answer : integer;
begin
writeln('Enter number to be cubed: ');
readln(number);
answer := CUBE(number);
writeln('The cube of ',number, ' is ', answer);
while not keypressed do{Wait for a key to be pressed}
end.
Error:
- ink.res: file format not recognized; treating as linker script - ink.res:1: parse error 19 / 1 cube.pas Error: Error while linking

New Topic/Question
Reply




MultiQuote



|