- Strength to Increase Rep
- +10
- Strength to Decrease Rep
- -2
- Upvotes Received
- 55
- Posts with Upvotes
- 53
- Upvoting Members
- 25
- Downvotes Received
- 3
- Posts with Downvotes
- 3
- Downvoting Members
- 3
Just living in hungary.Teaching myself in pascal. I have time to programming when I'm going to home,cause my job is not a good place for that. Don't forget that if you ask something on the forum and you got the right answer then [b] mark as solved !![/b]
- Interests
- I like my pc.I'm learning pascal,and sometimes reading delphi
- PC Specs
- p4 processor intel 3000Mhz/2Mb cash 64/32bit (prescott) pentium 2048 Mb 667 Mhz ram MoterBoard:MSI945pneo2…
352 Posted Topics
Re: Hi killhha. I know that your thread is solved. I wrote a little program for the ascii table's key codes: [code=pascal] Program solution; Uses Crt; Var i:Byte; Begin WriteLn('The numbers are:'); For i:=0 To 255 Do WriteLn('#',i:3,'=',Chr(i)); WriteLn('Press enter to continue...'); ReadLn; End. [/code] But if you want to see … | |
Our text file contains 10 words,and located in C:\ drive,we will read this data into an array and write out the results to the screen Created by FlamingClaw 2009.04.26. | |
Re: It is a really simple calculator :) [code=pascal] program simple_calculator; uses crt; var a,b,result:real; m:set of char; choice:char; begin clrscr; m:=[]; include(m,'+'); include(m,'-'); include(m,'*'); include(m,'/'); repeat write('num1: '); readln(a); write('num2: '); readln(b); write('operator: + - * / : '); readln(choice); case choice of '+':result:=a+b; '-':result:=a-b; '*':result:=a*b; '/':result:=a/b; end; until choice … | |
Re: By default, Windows XP opens all picture files (gif,jpg,...) with the included Windows Picture and Fax Viewer no matter what other picture viewers you have installed. To disable the Windows Picture and Fax Viewer, unregister shimgvw.dll. This can be done from command prompt: regsvr32 /u shimgvw.dll (Additional note: unregistering shimgvw.dll … | |
Re: your code is working well,where is the problem????? you can write here too:[b] if posNeg=0 then begin balance:=balance*-1; writeln('Can you hear that sound? Its your cheque bouncing'); sound(200,1000); end; If NegPos = 1 Then writeln ('Positive balance'); [/b] In your example if you put a semicolon[b];[/b] after your If statement's … | |
Re: array lenght = size of the element type * index You can find the size of the array in the memory as I show it above. Delphi (object pascal) has dinamic array, that we can set the length by the SetLength(array_name, element_number) procedure, so the elements starting from 0 to … | |
Re: [URL="http://www.daniweb.com/code/forum124.html"]http://www.daniweb.com/code/forum124.html[/URL] | |
Re: try the softwer center in your main menu, go to the programming section, and write: pascal, and you'll get a list about pascal packages, like Lazarus, freepascal, etc, just click and install. Fully woriking, I tryed it. | |
This example is demonstrates a solution for direct arranging By FlamingClaw | |
Re: The Randomize procedure task is to set the RandSeed constant to generate always random numbers...so it is need realy. :-D | |
Re: get a xp installer Required : Windows XP operating system, Windows XP cd Place the xp cd in your cd/dvd drive Press win key+r type in 'sfc /scannow' (without the ') Now it should all load, and fix all your corrupted file on windows XP ![]() | |
Re: Or if the above not helps,then you can try the direct download [URL="http://dllcentral.com/uxcore.dll/12.0.1111.1005/"]http://dllcentral.com/uxcore.dll/12.0.1111.1005/[/URL] | |
Re: Required : Windows XP operating system, Windows XP cd Place the xp cd in your cd/dvd drive Press win key+r type in 'sfc /scannow' (without the ') Now it should all load, and fix all your corrupted file on windows XP | |
Re: First download the developer kit from the [URL="http://java.sun.com/javase/downloads/index.jsp"]http://java.sun.com/javase/downloads/index.jsp[/URL].Select jdk to download. After downloading it,install the file. If it is success then open command prompt and type [icode]java -version[/icode] and press enter,if the installation is good then the command prompt is writes the actual java version in your computer... like : … | |
Re: [code] ... ... ReadLn(BallsNo); ptr:= 1; While ptr <= 1 Do Begin {you wrote < sign instead of <=, got it?} ... ... [/code] | |
Re: If you wanna pay for these just do it [URL="http://worldpubliclibrary.org/"]http://worldpubliclibrary.org/[/URL] | |
Re: Another example? [code=pascal] Program RandomNumbers; Uses Crt; Var A,B,C,i:Integer;{-32767..32768} Begin {main} ClrScr; Randomize; {shuffling} For i:=1 To 3 Do {this just that see the results for three times} Begin A:=Random(20); {tis will generate one number from 0 to 20} WriteLn(A); {write the results..} B:=Random(20); WriteLn(B); C:=Random(20); WriteLn(C); WriteLn; End; ReadKey; … | |
Re: let's see... :D [code=pascal] (*your source code interpretered...by me*) program text_files; var f,(*in.txt*) g:text;(*out.txt*) x:string; (*one string...*) begin (*in.txt's path assigned to f var*) assign(f, 'd:\pascal\dosare\in.txt'); (*out.txt's path assigned to g var*) assign(g,'d:\pascal\dosare\out.txt'); (*x's value is be that string..?,why?,if you don't use it?*) x:='d:\pascal\dosare\in.txt'; reset(f); (*open for reading f*) rewrite(g); … | |
Re: I uploaded a book about object pascal [URL="http://www.daniweb.com/forums/thread187150.html"]http://www.daniweb.com/forums/thread187150.html[/URL] | |
Re: press win button+r to get the run window type cmd press enter If you want to check the disk in drive D and have Windows fix errors,when console is running type: chkdsk d: /f If it encounters errors, chkdsk pauses and displays messages. Chkdsk finishes by displaying a report that … | |
Re: Can you send us abit more information about your problem? | |
The arguments are passed by value and by reference | |
Re: Any effort? Try to send some of your code,then maybe I can help you.Thank you. | |
Re: [QUOTE=Turtle85;1224089]I really need help in trying to understand what the "dat:table" is in this procedure, and how to translate it to Java. procedure Taylor(var dat: table ; cd: integer; h: real); begin for i:=2 to cd + 1 do begin dat[i,1] := dat[i,1] + (i-1)*h; x := dat[i-1,1]; y := … | |
Re: Is this just a procedure? If yes ,then write me how to get value the procedure's arguments,ok? | |
Re: [QUOTE=Simon180;1204366]how would i go about spliting a string that is stored in a StringList ? information in string looks like this: Name RanK now i need to split them so i can use a funcation like this data[0] for Name and data[1] for rank can sumone help me please? thanks[/QUOTE] … | |
Re: [CODE=java] class stringdemo { public static void main(String[] args) { String s1,s2,s3,output; s1 = "hello"; s2 = "hello guys"; s3 = "happy birthday"; output = "s1="+s1+"\ns2="+s2+"\ns3="+s3; System.out.print(output); } /* *By FlamingClaw.2010.04.05.Hungary */ } [/CODE] | |
Re: I gathered some method to you ,look at them... [i] Seek (procedure) Moves the current position of a file to a specified component. Declaration procedure Seek(var F; N: Longint); Target Windows, Real, Protected Remarks F is any file variable type except text, and N is an expression of type Longint. … | |
Re: Listen this little pascal program :D [CODE=pascal] program write_chars; var main_st:string; function characters(letter:char; times:integer):string; var i_count:integer; s_temp:string; begin s_temp:=''; for i_count:=0 to times do begin s_temp:=s_temp+letter; end; characters:=s_temp; (*right reference!!*) end;(*characters*) begin writeln(characters('@',10)); (*call it within writeln*) main_st:=characters('$',4); (*main_st's value is: $$$$*) end. (*created by FlamingClaw.2010.04.15.Hungary.*) [/CODE] | |
Re: First , error 88 is that the compiler waits for the ( and second I fixed your program. [CODE=pascal] program solution01; const max = 100; var A: array[1..max] of real; function Sort(L, R:integer):real; begin for L:= L to R-1 do begin if A[L]<A[L+1] then begin sort:=A[L+1]; A[L+1]:=A[L]; sort:=A[L]; (*A[L]:=sort; wrong … | |
Re: [QUOTE=Mobix;1183629]Hello, after one delphi session every one of my single floats has been saving into a wordpad as this weird 2.73500000000000E+0003 2.00000000000000E+0002 notation, same goes with printing is there any way to reverse this ?[/QUOTE] here you can find all of the information that you need [URL="http://rvelthuis.de/articles/articles-floats.html"]http://rvelthuis.de/articles/articles-floats.html[/URL] | |
Re: [QUOTE=samal123;1176346] ... ..... I want using pascal language Please give me quick reply[/QUOTE] Please start a new thread....then maybe I can help you.... | |
Re: hope this helps.... [URL="http://www.hu.freepascal.org/lists/fpc-pascal/2003-July/005694.html"]http://www.hu.freepascal.org/lists/fpc-pascal/2003-July/005694.html[/URL] | |
Re: Loops? while.. do begin.. end ; or repeat...until....; or for x:=1 to y do begin...end; [CODE=delphi] program Project1; {$APPTYPE CONSOLE} uses SysUtils; var num,i:byte; begin write('Give me a number: '); readln(num); if num<=0 then begin writeln('Give me a number between 1 and 255'); readln; halt; end; for i:=1 to num … | |
Re: [URL="http://www.daniweb.com/code/snippet217321.html"]http://www.daniweb.com/code/snippet217321.html[/URL] | |
Re: listen carefully :D [code=pascal] program p; (*the main program's global section*) uses crt; var a,b:integer; c:real; (*p2 forward,so can be call from anywhere*) procedure p2(x:integer; var y:integer); forward; (*p1 declaration---------------------*) procedure p1 (x:integer; var y:integer); (*here is the local section of p1 these variables are lives inside p1 and wiped … | |
Re: when you run this dos program,first ask the user about windows 7.Is it a 32-bit or 64-bit edition.The problem is that this program maybe not runs under 64 bit editions of windows 7. | |
Re: Hi When you create your record in the main program,the field of that record that want to show in the combobox,you should declare as "widestring" 'cause the tcaption = type = widestring(16 bit unicode char set) I created a form,placed on a dbedit1,and a combobox1. Double click on the form … | |
Re: listen this code,I created a form,put one editbox and a button edit1.text set to 'c:\bp\bin\turbo.exe' and the button's code can be see below [code=delphi] procedure TForm1.Button1Click(Sender: TObject); function getFileName(fileDir : string) : string; var fileName : string; tempNum, i : integer; tempChar : char; tempname:string;(*store the file name only*) begin … | |
Re: [CODE=pascal] program without_empty_lines; uses crt; var f,temp:text; s,fname,tempname:string; (*text file maker procedure*) procedure create(var x:text; xname:string); begin assign(x,xname); rewrite(x); close(x); end; (*write in some line the main text file*) procedure write_in(var x:text; xname:string); var tempstring:string; e:char; begin e:='*'; assign(x,xname); append(x); tempstring:=''; writeln('Press ''*'' to quit.'); while tempstring <> e do … | |
Re: [CODE=pascal] Program LinkedList; Uses Crt; TYPE DataType = integer; NodePtr = ^ NodeType; NodeType = RECORD Data : DataType; Next : NodePtr; END; VAR Head, Temp : NodePtr; { add at end of list } PROCEDURE AddNode(VAR H : NodePtr; Item : DataType); VAR NewNode, Temp : NodePtr; BEGIN New(NewNode); … | |
Re: I've seen that thread already solved but I have a question Where is the connection between addnumbers and the sequence? Listen my code it is works too,but I cannot see the connection [CODE=pascal] program untitled; function addnumbers(num1:integer):integer; begin addnumbers:=num1+3; end; procedure sequence(num2:integer); var i:integer; begin for i:=1 to 100 do … | |
Re: I made a solution too [CODE=pascal] Program salaries; uses crt; var F:text; max,salary:word; name,temp_name:string[50];(*if it contains 50 chars then we have to reserve this place in the file*) sex,temp_sex:0..1; line:string; (*one line of the txt file*) begin clrscr; max:=0; assign(F,'salary.txt'); rewrite(f); (*here is the reserved place,'cause we have to know … | |
Re: [CODE=delphi] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Label1: TLabel; Edit7: TEdit; Label2: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public … | |
Re: try another writer program,like imgburn,the offical website: [URL="http://www.imgburn.com/index.php?act=download"]www.imgburn.com[/URL] | |
Re: maybe this link helps you : [URL="http://www.sevenforums.com/tutorials/27544-autoplay-enable-disable-autorun.html"]http://www.sevenforums.com/tutorials/27544-autoplay-enable-disable-autorun.html[/URL] | |
Re: write your modem name into the google,and write next to it that win7 driver "your modem's name driver windows 7" |
The End.