1,826 Topics
 | |
| | Dear Sir, The following is a simple program in Delphi. Could you tell me the meaning of the colour in red. program Negatives; {$APPTYPE CONSOLE} uses SysUtils, ourcrt; var balance, posNeg:integer; begin randomize; writeln ('Generating your bank balance'); writeln ('Please wait .....'); sleep (2000); create a random number between 0 …  |
| | Dear Sir, The following is the very basic programme, but I often miss the comma and delimiter which is red in colour. Could you express the meaning of this? program AgeCalculator; {$APPTYPE CONSOLE} uses SysUtils; var age, months, days, hours: integer; begin writeln ('How old are you?'); readln (age); writeln … |
| | Dear Sir, The following is a good example of Pascal. I understand the font with red in colour is the location of display into screen but could you express the meaning of sales1:7:2, sales2:9:2, sales3:9:2, sales4:9:2, sales5:9:2, sales6:9:2?? Cheers, uses crt ; var sales1, sales2, sales3, sales4, sales5, sales6, total_sales … |
| | Dear Sir, Please help me in this part of the question. I want to change the phone a friend details. Find a person and change their phone a friend number. To do this I need to find a record in memory and overwrite that record's phone field. Then save all … |
| | Dear Sir, After finishing the 1st part, I still have many problem of the question. Program Student_millionaire; {$APPTYPE CONSOLE} { } uses SysUtils, OurCrt; Var User_Choice:Integer; Procedure ContestantsList; Begin WriteLn('1 pressed,listing all the contestants...'); ReadLn; End; Procedure Generate10finalists; Begin WriteLn('2 pressed,generating the 10 finalist''s numbers...'); ReadLn; End; Procedure UpdateFinalists; Begin … |
| | i have been programming all my life and would like to intoduce myself my name is phil and i know a lot about the following subjects Delphi electronics electrical otherwise im quiet stupid. favourate subjects rock n roll, cooking, karaoke, computer programming. present projects computer data protection. secure data comms. … |
| | I have a menu system which can allows me to list all the contestants. The following is my menu system: Program Student_millionaire; {$APPTYPE CONSOLE} uses SysUtils, OurCrt; Var User_Choice:Integer; Procedure ContestantsList; Begin WriteLn('1 pressed,listing all the contestants...'); ReadLn; End; Procedure Generate10finalists; Begin WriteLn('2 pressed,generating the 10 finalist''s numbers...'); ReadLn; End; … |
| | In a game of Hangman, a setter of the word/phrase is required to enter a phrase. However, I was wondering if there was any way to input data blindly, so that the guesser cannot see the phrase getting typed in. An example of its use would be passwords being entered. |
| | Hello, I wrote a program to find a path in a StringGrid. The path found should be highlighted - according to several articles I use an array with 0/1 values to indicate path cells. When using this in the onDrawCell event handler, only the first and the last cell of … |
| | Please can someone help me out on an issue that I ma having with delphi. Aim is to read an INI file then take certain values only and display them under listbox or memo. Lets say for an example my ini files looks like this [setup] Device = Sector= [set] … |
 | i was wondering if it would be possible to use a timer in pascal. like for instance you have 10 seconds to answer a question. iv been thinking and i cant figure out how to do it. does anyone know how? |
| | In a game of Hangman, the setter must input the word/phrase. However the user would be able to see the word/phrase that has been input. Is there a way of inputting the word without it coming up on the screen - a blind input? For example as asterix much in … |
| | I don't understand why my linear search program in pascal is not working... Some help will be appreciated. [code]program Project2; {$APPTYPE CONSOLE} uses SysUtils; Type TStudent = Record Name : String[15]; End; Var Name : array [0..3] of string=('Fred','Jack','Chris','Ali'); inputname : string; n : integer; begin Name[0] := 'Fred'; Name[1] … |
| | Dear Sir / Madam, The following is the game of Rock, Paper, Scissors. But I don't know why computer is always choose Rock. My Answer:- program RPS5; {$APPTYPE CONSOLE} uses SysUtils, ourcrt; var Computer : integer; Choice, Move : char; begin repeat writeln('Rock(R), Paper(P), Scissors(S)'); readln(Choice); until (Choice = 'R') … |
| | Dear Sir / Madam, Please help me again on Delphi. Please help me to write a program that uses a function to caoculate the commission payable to the sales person, when passed the commission rate for the item, the total items sold and the price per item. For example, if … |
| | I found that semi-colon are some time come to the end of the line. i.e.: end, else,... But just some time. Could you tell me when I need to put semi-colon to the line? And when I need not?  |
| | Play it for three times and we can get the final result. My answer: var number, guess: integer; begin randomize; number:= random(3)+1; writeln('Wellcome to the game of snap.'); readlnln (guess); if guess>number then begin writeln('It''s too big! Please try again.'); end else if guess<number then begin writeln('It''s too small! Please … |
| | My question is: to create an array of 6 lotto numbers. The numbers should be between 1 and 40 and you are not allowed to put into the array any number that is already in it. Hint: You are using an array of 6 numbers so that’s a loop generate … |
| | Hi Everyone. I need help with using Printer.Canvas to print toa USB printer. Using Delphi 7.0 and a Brother HL2140 USB only printer, produces a blank page. A friend tried it on his USB printer and all of the print was on the left half of the page. On my … |
| | I need to write a skeletn program for the assignment. It should have a menu system with at least 5 options. The menu keeps repeating after each procedure is called. When one of the procedures is called just return a message to the screen saying what this procedure will do: … |
| | I have receive from my friend a project.exe (application console) made from delphi. I want to know how can i open it with delphi to edit the codes.  |
| | Please help, got this code below that i need to add to a program im making and for some reason i cant work out why it doesnt work. [code] program dbase1; uses Crt; const fileName = 'C:\TEMP\NAMES.TXT'; maxRecords = 100; var name : array [1..maxRecords] of String; address : array … |
| | I Was Just Wondering is Ther Anyway At All To Reproduce A VB Step Increment in Delphi. VB Example: for i = 0 to 100 step 10 Delphi: ??? Any Help Would Be A Blessing Thanks, gh0sts :) |
| | I have designed an age calculator which given a person's age, works out given a person's age, works out how many days they have lived for, and how many hours they have lived for. My answer: var age, month, day, hour: integer; begin writeln ('How old are you?'); readln (age); … |
| | I am trying to count a few different types of characters in a string and I am running into a few problems. I need to be able to count the vowels and blanks/spaces and then just everything esle and I am having problem with the everything else(by everything else i … |
| | To design a program that works out the powers of numbers. For example 3^5 = 3*3*3*3*3 = 243 2^3 = 2*2*2 = 8 Please help me again? |
| | I need to write a program that asks a user for their new password, to check that they have entered it correctly they must verify it by entering it again. If the two passwords matach then you accept the change and tell the user that they have been successful on … |
| | Question: I am to write a comparison program that outputs true mathematical statements. Ask the user for two numbers, and then output one of the following statements number1>number2 number1<number2 or number1=number2 The user must also be able to keep running the program with different numbers, when they have finished running … |
| | A positive integer is entered from the keyboard. If it's even, all even integers from 2 up to and includng the entered integer are displayed. If odd, all odd integers from 1 up to and including the entered integer are summed, and the sum displayed. Please help me again. |
| | so i have this animation (yes i know its very long): [code=animation] begin; {main program starts} clrscr; {clears screen of any text} textcolor(9); {turns the text blue for the logo animation} writeln('MMMMMMMMMMMM MMMMMMMMMMMMM'); {logo animation starts} delay(logo); writeln('MMMMMMMMM MMMMMMMMMM'); delay(logo); writeln('MMMMMMM MMMMMMMM'); delay(logo); writeln('MMMMM8 ..MMMMMM'); delay(logo); writeln('MMMM. MMMMM'); delay(logo); writeln('MMM, … |
The End.