Search results for query: *

i have tp7fix thanks

thanks

with all the programs i download from this site keep getting errors that the units not found. i declared the units dir in directory d:\fpc\..\units but keep getting errors. please help

i want this out put in the pascal program i made with exel; 41 8 1 0 5 0 31 2 6 2 32 21 41 41 49 42 41 46 41 72 43 47 43 73 62 8 49 8 9 8 13 8 39 10 14 10 40 29 1 42 9 1 1 6 1 32 3 7 3 33 22 0 0 8 1 0 5 0 31 2 6 2 32 21 5 46 13 6 5 5 5 36 7 11 7 37 26 0 41 8 1 0 5 0 31 2 6 2 32 21 31 72 39 32...

{something goes wrong in this bit of the program i get een error} assign(y,'y'); reset(y); for r := 1 to aw do for c := 1 to ad do read(y, o[r,c]); {i do not know what wrong here...}

program matrix (y); uses wincrt; const ad=7; aw=12; type dayindex = 1..ad; weekindex= 1..aw; oa = array [weekindex,dayindex] of Integer; var y: file of integer; w: Integer; o: oa; r: weekindex; c: dayindex; begin {fill matrix } assign(y,'y'); reset(y)...

but i have to look at the third becouse val1+val4+val8>=75 and val12+val3+val6+val9>=75 that my goal. the basic of the program is that any values no matter wich or how many are >=75 in the table then the will form a group thats has >=75 those groups combined that i want to see

for the input it has to be integer from 0 to 150 thats the max and then in the table of the 12 vars the value in the table must seach after numbers greater then 75 or eacual. so in the output of the program on screen; must look like this ; Var val1, val2,val3,val4,val5,valetc, val1a...

i want to make a table with 12 var but do not know how to begin. Can you help me how my body needs i want the output to look like this 1 2 3 4 5 6 7 8 etc 1 2 3 etc 2 3 4 3 etc 4 5 6 7 etc then i want to find the values with combined are over 75 something like this if...

thank you it works i forgot to call the procedure in the programbody

program zetels; uses Wincrt; var win,cda, pvda, sp: real; begin writeln ('cda'); readln(cda); writeln('pvda'); readln(pvda); writeln('sp'); readln(sp); procedure coalitie; begin if cda+pvda+sp< 75 then writeln('coalitienietmogelijk'); end; begin if (cda > pvda) and (cda > sp) then...