Questions tagged [Pascal] (199)

Program Zadcha1; Var i:integer; Var n, i:real; begin phony (n) ; I:=0; repeat begin n:=n/2; I:=i+1; end until (n<1) write on ('Unable to divide ', i-1, 'times') ; end. The job itself 1. To enter from the keyboard a number. To calculate how many times it can be divided by 2 until it became < 1.

Welcome, we need to implement this method: I have text in the program when you click on that should transfer to the browser on a specific URL, but the url should be updated(ie so I can update the url and in the program he also changed) The idea to create a simple page with this url, get it in Lazarus and change how it can b...

Every 3 seconds a random number is generated. The X-axis of the graph is time in seconds and the Y - axis these numbers. The schedule must be updated in real time, and the points to connect lines. An example of the graph below. Thanks for the help.

There are 2 global array variable var mas, masX: array[0..5]of real; x,y:real; There is a function function Z(x: real): real; begin ... end; In the function you need to pass both arrays (with changes). How to do it from program code? The function takes the form function Z(a: real; var mas1,mas2:array of real): real; b...

type town = (a,b,c,d,e,f,g,h); towns = set of town; path = array [town] towns of; Describe the procedure travel(P,H,K), which is the flight P (P[x] is the set of cities that can in one trip by bus from x) defines a K – variety of cities in which you can get a bus (during one trip or through other cities) from H.

How to write a virtual audio device on the c(#) or Delphi which can redirect all sound to the program, something like a virtual sound card?? (Or python or ruby or C++) Better of course if it is possible in python

What happens in the code of this program, on what basis it chooses the number from the array? Objective : Given N integers X1, X2, ..., XN. Set between the signs "+" and "-" so that the resulting expression equal to a given integer S. Input The first line contains numbers N and S. In the next line, N integers separated by...

Hello! There is code in Pascal const theEndTerminated = 2000000000; var Status : Byte := $00; // 1-bit sequence increasing // 2 bit - sequence is decreasing // 3 bit in the sequence has an equal number var count, N1, N2 : Integer; begin count := 0; Read(N1); while N1 <> theEndTerminated do begin count += 1...

uses crt; var divv, m, n: integer; P, Q: real; function gcd(m, n: integer): integer; var modulo: integer; begin modulo := m mod n; if modulo = 0 then gcd := n else gcd := gcd(n, modulo) end; begin write('Enter two numbers: '); phony(n, m); divv := gcd(n, m); P := m / divv; Q := n / divv; writeln(P:0:0, ' ', ...