[pascal] Forum Topics

Hallo, I have an AP, connected to a router with 2 repeaters connected. I need to know when unknown users connect (play alert) and test if users are connected and if routers are online (play notification). Also test Internet connection. All in one solution. I have in mind you use …

Write a pascal program that accept the name and date of your birth the program should then output your name and date of birth in the format “your name and your date of birth” e.g Pascal your date of birth is 20/10/2023

Hi everyone, i hope someone can help me with my activity i cant really catch up on my lessons so i hope someone can help me explain each line of this code this language is pascal https://onlinegdb.com/0Z0pIIsen

{program ncic; const home : real = 1500; life : real = 2000; motor_vehicle : real = 1400; business : real = 1200; Var surname : array [1..2] of string; //array to save the surname for each client insurance : array [1..2] of string; premium : array [1..2] of integer; …

Hello, I’m working my way through a PDF file of the book ‘Assembly language step-by-step programming with DOS and Linux’ by Jeff Duntemann. The CD that accompanied the book included a DOS NASM Integrated Development Environment written in Borland Pascal titled ‘NASM-IDE’. I was able to find it on github, …

program discount; var x:integer begin writeln('what is the total cots of your 3 items'); readln(x) if (x<100) then writeln('you get no discount'); if(x>100) and (x<150) then writeln ('you get a 10% discount'); if (x>150) and (x<200) then writeln('you get a 20% discount'); if (x>200) and (x<250) then writeln('you get a …

I'm embarrassed to admit that I cannot understand why in this very simple example that the "readln(age);" statement in the "else if" clause ignores the first integer entered in response to the "writeln('How old are you ',name:length(name),'?');" statement aroune line 16. It seems clear that the culprit is the "ch …

Hi there! This is a simple pascal program I wrote for a cashier. Please note that this is only a basic level program code and can't actually be used for commercial use. Thanks for reading!

Hello guys, I'm starting with mORMot and I'm having a hard time finding some example or tutorial on the subject, could someone give me a good tutorial or some example where I can start to understand better how mORMot works. Thanks. And sorry for my bad English.

How to add d to this? I have a,b,c only. Because I tried many ways and with d it works wrong and showing wrong highest number i tried to add if(d>a)... but this was wrong too if(a>b) then if(a>c) then max :=a else max:=c else if (b>c) then max:=b else …

So I just started learning Pascal and have problems understanding how deleting specific characters works program Project1; var a:string; b:char; c:integer; begin readln(a); b:=(chr(32)); for c:=1 to length(a) do begin if a[c]=b then delete; end; readln; end. The idea is that I input random text and get back the same …

Hi . Im a pascal beginner and , i have to solve the qustion: Get 10 names in an array and find the longest name , Would anyone just help me , im completely confused with that

I need help in filling array in Pascal with random number. I have 9 empty array ( A: array[1..10] of integer ), and i want to fill the array with integer for 1 to 9 randomly, but one number can only be choosen one time. So when a number (eg. …

I am trying to use many employees, but I do not how I can use case in my arrays. Could you help me, please? ---- program StaffSal(input, output); uses Crt; const SalRate = 0.1; A = 150; B = 85; C = 95; D = 120; type Employee = record …

ok i dont really know how to explain this but... c:=readkey; case (c) of #13:Halt; #27:goto menu else goto quit; as you can see above if you press Esc(which is 13) the program quits and if you press Enter(which is 27) it gos to the menu. I want to know …

Hello everyone, [Dadroit](https://viewer.dadroit.com) is a tool that threats JSON as a Data format, not a plain text. It provides you quick outline view with the help of tree representation of JSON Data from root to last nodes. You can browse and query JSON like an enterprise DBMS. * 10X faster …

I created a calculator only using the scripting commands in the video game Counter-Strike, bind (for input) echo (for output) and alias (for the logic). Bind is to connect keys to a command or string of specified commands, echo is to output text to the console, and alias is a …

Just curious. Hehe, I was thinking about this the other day and now I'm wondering what all you fellow coders out there have done. So what's the HARDEST most complicated program you've written? It doesn't have to be efficient, heck, it can all be spaghetti code. The hardest thing I've …

hello guys, i know you all are familiar with DOSCOMMAND to run a console and catch its output .. but what if i want to send a PAUSE keystroke to the console ?? with SENDLINE i can send string and char but how do i send a PAUSE or ENTER(RETURN) …

How i can get in result this picture: [Click Here](https://imgur.com/a/ddBb6) for now my code is: program cikls; label m; var a:byte; begin write('Ievadiet veselu skaitli:'); readln(a); if a<1 then goto m; repeat writeln(a); a:= a-1; until a = 0; m: readln; end. When i runit it make numbers counting down. …

A program in pascal showin fractions as a result 1/3 , 1/6 ,.. ..upto 1/27

Hey folks ! So I got this task and I really need your help to program. The question follows as... "Input one sentence which you can see on the top part of the monitor. Then for each letter find words of sentence where they are meeting and write the list …

A children's game of 'count out' is played as followed. '40' children are arranged in a circle, a sentence containing of 'm' words is used to eliminate '1' child at a time until '1' child is left. Starting at child '1' the children are counted from '1' to 'm' and …

Hi, I'm trying to convert the timebetween into a decimal, so i can calculate salary. `var TLogIn: TextFile; sLine, sTIn, sTOut,sUser,sTimeOut,sTimeIn,YourHMStr: string; iPosHash, iPosComma, iLength, iTimeIn,iTOut, iWage,iTimeOut:integer; TimeOut,dtDiff,TimeIn:TTime; rTime: real; d1, d2 : TDatetime; Begin //d2 := StrToTime(time()); TimeOut:= Time(); AssignFile(TLogIn,'LogInTime.txt'); reset(TLogIn); while NOT eof(TLogIn) do begin Readln(TLogIn,sLine); iPosHash:= Pos('#',sLine); …

Design a pascal that will capture the names and coursework and exam grades for math, science and computer science from a set of students. It should calculate the final grade for each course and GPA. The algorithm should output as a list at the end the name, math final, computer …

Program sifrarnik; Uses sysutils; Type myrecord=Record num:integer; itemname:String[20]; price:Integer; End; Var data:array[1..10] of myrecord; doc:file of myrecord; operatingnum:integer;//item number used for reading and writeing into base error1,choice1,i,j,n,a:integer; begin Repeat Begin WriteLn('1. Add items date':10); WriteLn('2. See items data':10); WriteLn('3. Close'); Write('Chose: ':10); ReadLn(choice1); Case choice1 of 1 : Begin Assign(doc,'myfile.dat'); …

hello guys, i'm facing a difficulty in creating a matrix in pascal, the compiler keeps posting the messeges illegal qualifier at the line 28,7 where i wrote read(M[i,j]), and telling types mismatch coz i declared M is from type Matrice that i defined and then in the procedure Lect2d i …

hi all, I am a novice programmer who wants to learn programming pascal, I learned through the Internet about pascal, I was confused to sort random data using a bubble sort, because I am still a beginner about pascal, I want to learn more, if there are friends -personal all …

anyone please help me to create an array of random data on as many as 20 data that appears on the screen, For example: random data 20 10 3 2 4 5 7 8 9 4 1 2 23 12 34 12 15 12 16 30 then the data is …

Guys i cant imagine about how i'm gonna calculate that one... help me out please

am looking for a way to count down from 30 seconds using a timer and updating a Gauge using Progress to reflect the time remaining. I know this is very simple code but my brain is some what dead here my bad code. procedure FreeTimerTimer(Sender: TObject); begin TotalTime := GetTickCount() …

can someone please help me with this pascal program, does this look right? Program StudentScores; var c: integer; s: integer; t: integer; n: integer; p: integer; f: integer; h: integer; l: integer; ave: integer; max: integer; am: integer; hi: integer; li: integer; scores: integer; Begin For c:= 1 to 15 …

Write a well structured program that will accept the following fields of record in a data item, surname, other names, age, address, occupation, department, level, and grades for 15 different courses. 1. The program should be able to compute the CGPA of each candidate when scores for the courses are …

I know this sounds like a "Do my homework" question, but I am new to coding and am struggling to come up with a method to combine multiple RFT Files. The files contain around 3000/4000 characters. I want to initially open up a 'master' RFT file and then append multiple …

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.

Okay so I have this program that generates 10 random number (1-1000), calculates their average and the amount of larger as well as smaller numbers than the average, this is what I have and for the life of me I can't figure out wheat I don't do right: program random1; …

**Question:** Create a message encryption system application that translates every message character to its ASCII equivalent and pads the resultant code with a chosen random key based on an addictive operation. **Answer:** program Encrypt; type tab=array[1..255] of byte; function Sum(T:tab):integer; var i,s:integer; begin S:=0; for i:=1 to length(T) do s:=s+T[i]; …

I have nothing to start with.. *sigh&

I have a problem!! I am trying to convert pascal code to VB and am stuck. Pascal: TYPE Elements = SET of 1..255; Xpath = ARRAY[0..50] of BYTE; VAR Path0,Path1,Path2:Elements; Path:Xpath; So, Elements is defined as a base set of numbers 1 through to 255 (inclusive). Path0, Path1 and Path2 …

Am trying to read a bmp that has 24 images in all and am trying to make it so I can read the single bmp file to show the correct image and having a real problem with it am using delphi xe2 I have googed it but not much on …

I have to write a quizz in pascal where the user have to write his own answer can u help me ?

I have a 3 character fkLookup field sat_site in a table. I'm using TAdsTable table component. When I filter out records in my grid on a field sat_site, grid does not show any records. With ShowMessage() I check the value of field sat_site which shows blanks or boxes in the …

Greetings, I used to write software in the days of Pascal, and since then have moved into other IT areas. I am returning to the programming world but since I was last there, an explosion of languages, frameworks, methodologies, etc, have taken place. Could anyone point me in the best …

Can anyone help me out with abit of code that will detect the location of any exe file on a hard drive / cd? am trying to build a simple exe launcher thanks.

I need to o an assignment where i make two programs, one to write a list of players in a team and their scores, the other to read and search the .dat file for specific players. i have chosen to do this with an array but when i run my …

Ok here what am trying to do, when its scrolling left, I want to get the full length of the lblmarquee caption and then when it scrolls to the end of the last letter or caption it will then auto change to right scroll and then back to left so …

Am trying to read a URL address something like http://www.myaddress.com/id=563?name=mark from the Embedded Web Browser then I want to be able to get the url parameters of a link with in my delphi application, so am able to do a messagve box like: ShowMessage(id); // this would show 563 ShowMessage(name); …

Following code below should reconnect my audio server if it was found to be disconnected now all is good the timer event is called and the system message shows its reconnecting however it seams the connect procedure fails to be called as it dont reconnect. procedure TGizletView.AudioConTimerTimer(Sender: TObject); begin AudioConTimer.Enabled …