Pascal
Pascal is an influential imperative and procedural programming language, intended to encourage good programming practices using so called structured programming and data structuring.
Application
Any
Platform
Any
License
Any
U will not be able to change the value of the const variable again...
Const declaration takes the assigned value of it the first time a value is assigned...
I've never seen a declaration like...
program Lab1LivaBrege;
uses crt;
const n=10; m=n*(n+1) div 2;
type matrix=array of real;
vector=array of real;
var B:Vector;
A:Matrix;
tkey: integer;
option, i,...
sorry for two equal topics, it showed some error, but made the topic anyway.
TC this topic so there's just one topic.
Hi please help
Any help would be appreciated.
write and algorithm and pascal program to determine whether an applicant is approved for allocation of a home in a named housing community. The...
Hi guys; I am new to the programming world, just beginning to study in my A Levels so hopefully this shouldn't be a problem for you guys
For my homework assignment I need to devise a 2Dimensional...
highest THEN BEGIN highest:= data END END;
writeln; writeln(' Winner(s):');
FOR count:= 1 TO data_amt DO
IF data=highest THEN
writeln(' Student ', count, ' with score, ', highest, '!');...
OK, which seems appropriate), to no avail; the app constantly opens up the small window.
Unfortunately, I think I am cursed to forever manually re-size the 4x7" screen when using Free Pascal....
Ok, right before you close out the Properties, you want to click on the Apply button in the lower right-hand corner, then click the OK button. That's suppose to save the settings so that when you...
That's because Exp is a real function and not integer. So change
function PowerFn (number, exponent: integer): real;or change PowerFn := Trunc( Exp(exponent*Ln(number)) )
This code is not working:
program hw13;
uses crt;
var number,exponent:integer;
function PowerFn (number, exponent: integer): integer;
begin
PowerFn := Exp(exponent*Ln(number));
end;
begin...
);
combi.x := -1;
if (i mod C_GROUPS) = 0 then
s := s + #13#10
end;
// Show result
ShowMessage(s);
end.
When I resized my window from 800x600 to 1024x768 things got smaller but easier for some websites to see everything. I suggest that you do a right mouse click on the Free Pascal IDE icon then do a...
I just downloaded Free Pascal (2.4.2) and am eager to use it after many years with an older version. In the early exploring stage I have found that I cannot expand the 4 x 7.5” default window (???)....
As part of the procedure there are 2 calls to itself as part of the else condition. When the procedure goes through all of the recursive calls to the procedure, the numbers are decreased for the...
i have a cut of program like this:
procedure Bingo(t);
begin
if(t
=1)then A:=j
else
a:=-1
end;
the question says when the program called A(4,7) why the answer is 509 explain the way!
i don't know solving the problem when i found this A:=(i-1,4(i,j-1)+1)and...
I would like some help with this pascal programming language please im totally new to pascal.
im just the "Free PASCAL Compiler"
T.J Limited pays its operational staff weekly wages at a rate...
':=' is used to assign value into variable/ record.....its same like assigning value into variable...e.g
var num : integer;
num:= 10;
in above example u r assigning value 10 to variable..in...
Can anyone please help me understand this part of the code
unit lab5un;
interface
uses LAB5IO;
type MyRec= record
name1 : STR39;
name2 : STR39;
end;
type Myfiletype =...
>