turbomen

Code a decision using an IF, THEN, ELSE statement (2 branch decision) Code a one branch decision using a null else statement The following is my answer: [CODE] program Negatives; {$APPTYPE CONSOLE} uses SysUtils, ourcrt; var balance, posNeg:integer; begin randomize; writeln ('Generating your bank balance'); writeln ('Please wait .....'); sleep …

Dear All, How do I display the pathname to the BASH shell of the Linux Terminal? Cheers,

Hi, Are there any web version of Delphi? It is because I cannot install the Delphi from my portable harddrive to the public computers. Cheers,

Dear All, Could you tell me what is / are wrong of the coding? Cheers,

Dear All, Could you tell me what is wrong or missing for my coding? Cheers, [CODE] unit Example3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Button1: TButton; Button2: TButton; Edit6: TEdit; …

Dear All, Please let me know what is wrong or missing for it from the attached document. One of them is my work (T9.zip) and the other is the demo Cheers,

Dear All, Could you tell me how to do for it? One of the zip is the demo2.zip and the other is my work. Please give me some of the ideas. Cheers,

Dear ALL, Hi. Long time no see. How are you? I have come back to Programming class already. Could you tell me how can I start to VCL Forms Application if I use Delphi6? Cheers, turbomen

Dear ALL, I have bought a PC COMPAQ CQ2000AN in New Zealand. That model does not provided the restore kit in CD formation. I know the restore kit which is installed into the harddrive but now the PC was not work and cannot go to the windows screen and DOS …

Dear ALL, Could you tell me how can I do this kind of question if I do not working with the computer and please find the attached document for your reference - it is the answer of the question? [code] Complete the table below to show what each variable holds, …

Dear ALL, Could you tell me what is wrong of my program? The problem is the following wording are often restart: "PLEASE RUN THIS PROGRAM IN A MAXIMUM WINDOW..., TONY YEUNG PRESENT... How can I add some music for it? How can I change the colour of the font and …

Dear All, Could you tell me how can I read from the hotseat.txt file all the records and sort by first name. Finally, list the sorted results on the screen. Cheers, turbomen

Dear ALL, Could you tell me how can I write a program that writes to a text file, the 32 people that are in our hotSeat.txt file. Cheers, turbomen (p.s.: 'the question orginally ask me to write a program that writes to a text file, the 32 people that are …

Dear Sir, Could you please give me some of the ideas of making the hotSeat game in pascal? The following is the simple mode of my coding:- [code] Program yeungkt1; {$APPTYPE CONSOLE} { Who wants to be a millionaire. Author: Chris Yeung Version 1 } uses SysUtils, OurCrt; Type hotSeat_record=record …

Dear Sir, Please help me on Delphi. Could you tell me how can I do the following question? Calculate and display the sum of the even numbers from 2 to 20 inclusive. Cheers,

Dear ALL, I have tried to demonstrate the card game problem by myself. The card game is come together with 52 cards. It has Spade, Heart, Club and Diamond - Spade > Heart > Club > Diamond. It has the integers and chars 2,3,4,5,6,7,8,9,10,J,Q,K,A. Could you tell me how can …

Dear Sir, I have made a question by myself. For example: I am playing the card game to my friend. The card has Spade, Heart, Club and Spade as usual but no number. How can I do if I only play five time and finally there is a record of …

Could you mind telling me what can I do for the following question? To write a skeleton 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 …

Dear All, Could you mind telling me how to code with the card game? It has 52 cards and it comes together with Spade, Heart, Club and Diamond. There are 2 people play together for 8 times, after it, we will get the result of it. Cheers,

Dear Sir, Could you tell me how can I do the following question? A positive integer is entered from the keyboard. If it's even, all even integers from 2 up to and including the entered integer are displayed. If odd, all odd integers from 1 up to and including the …

Dear Sir, Could you tell me what is (are) wrong of the following answer:- Question:- Create the first half of a game of rock, paper, scissors. Ask the user for R, P or S. Get the computer to generate 0,1or 2. Now convert the computer’s number to R, P or …

Dear ALL, Could you tell me how can I get num1, num2 and Output 2 for the following programme. [code] program Project2; {$APPTYPE CONSOLE} uses SysUtils, ourcrt; var num1, num2: integer; begin num2:=0; repeat num1:=num2+1; if (num1 mod 2=1) then begin writeln(num2); end else begin num1:=num1+1; end; num2:=num2+1; until num2>4; …

Dear Sir, I have got the answer of the following question but I do not understand why it has been done in this way: 3. Your task is to create a game of Heads or Tails against the computer. Write a program that asks the user for Heads or Tails, …

Dear Sir, I have got confused to the real / integer. Would you mind helping to express it to me? I have got the answer of the following question: Write a menu system for the currency exchange program. My menu could look like this: Exchange rates How much money would …

Dear Sir, It is a simple example using a string. [code] program dowhile; {$APPTYPE CONSOLE} uses SysUtils, OurCrt; var my_words : string; begin my_words := ''; writeln('Enter some words (type "stop" to finish):'); readln(my_words); while (my_words <> 'stop') do begin clrscr; Writeln('You typed:'); writeln(my_words); writeln; writeln('Enter some words (type "stop" …

Dear Sir, I have got a serious problem to understanding of the answer. The question is: Create the first half of a game of rock, paper, scissors. Ask the user for R,P or S. Get the computer to generate 0,1 or 2. Now convert the computer's number to R, P …

Dear Sir, Could you tell me how can I do this question? Write a program that will readin three numbers nd output a message indicating whether or not the numbers were entered in ascending numerical order. (Equal entries are regarded as being in order, e.g. 4 4 5 is OK). …

Dear Sir, Please find the attached document for your reference. Could you tell me what is wrong of my answer? [code] program Project1; {$APPTYPE CONSOLE} uses SysUtils; var balance, posNeg, positive, negative: integer; begin randomize; writeln('Get average balance'); balance:=random(10000); posNeg:=random(2); if posNeg=0 then begin balance:=balance*-1-30; end else begin writeln('Positive balance.'); …

May I ask you a question on Delphi? The following is my question: Write a program that asks for two numbers from the user. Add these numbers together and store them. Then output to the screen the equation with the correct answer. Eg please enter a number 28 please enter …

Dear Sir, Could you tell me what is wrong of my program? The question is: write a progrm that totals up a list of exactly 100 numbers and outputs that total to the screen, also show the average of the 100 numbers. My program: [code] program Project2; {$APPTYPE CONSOLE} uses …

Dear All, Would you mind helping me to run the program like the TV program: Deal and No Deal? Cheers,

Dear Sir, Could you mind tell me what about the difference between While..loop, for..loop and repeat.. until?? Can you give me some example?? Cheers,

Dear Sir, Can I add the background colour or music to my following program? Program millionaire;//Student_millionaire; {$APPTYPE CONSOLE} uses SysUtils, OurCrt; Type gameShow_record=record firstname:string[12]; lastname:string[12]; phone: string[12]; End; Var User_Choice:Integer; //this is your first program integrated in the main Procedure Student_Millionaire; //I not tested,you said it work Var gameShow_file:file of …

Dear Sir, This is the 3rd part of the question, I want to find and list the finalists. Cheers,

The following is a simple program on 'while ... do': program dowhile; {$APPTYPE CONSOLE} uses SysUtils, Ourcrt; Var my_words: string; begin [COLOR="Green"] my_words:=''; writeln('Enter some words (type "stop" to finish):'); readln(my_words);[/COLOR] while (my_words<>'stop')do begin clrscr; writeln('You typed:'); [COLOR="Red"] writeln(my_words); writeln; writeln('Enter some words (type "stop" to finish):'); readln(my_words);[/COLOR] end; end. …

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 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; …

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 …

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 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); …

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 …