Advertising
advertising
related pastes to tag 'pascal'
- 1933278 - THC Web Vulnerability Scanner: pascal jean pereira
-
- #!/usr/bin/perl
- #
- # THC Web Vulnerability Scanner v3.8
- #
- 1744451 - empty soldatserver functions and: server pascal soldat empty soldatserver
-
- const
- //teams
- alpha = 1;
- bravo = 2;
- charlie = 3;
- delta = 4;
- spectator = 5;
- //game modes
- 835770 - Instersection of two lines: pascal linear equation two points
-
- program prog;
- uses wincrt;
- var
- m1, m2, b1, b2: real;
- x1, y1, x2, y2: real;
- x3, y3, x4, y4: real;
- x, y: real;
- m1_inf, m2_inf: byte;
- 830678 - Solving intersection of linear e: pascal linear equation ymxb
-
- program prog;
- uses wincrt;
- var
- m1, m2, b1, b2: real;
- x, y: real;
- begin
- write('Enter m1: ');
- 830674 - Solving intersection of linear e: pascal linear equation ymxb
-
- program prog;
- uses wincrt;
- var
- m1, m2, b1, b2: real;
- x, y: real;
- begin
- write('Enter m1: ');
- 717859 - unipe - correct: pascal unipe
-
- Program folha_pagamento;
- USES crt;
- VAR
- quant_cat1, quant_cat2, quant_cat3, quant_func, categoria, horas: integer;
- salario, maior_salario, menor_salario, soma_cat1, soma_cat2, soma_cat3, vendas: real;
- BEGIN
- quant_cat1:=0;
- quant_cat2:=0;
- 628270 - Snake: in pascal snake
-
- program snake;
- uses crt;
- var
- isPaused,newGame: boolean;
- opGO,op,dir,newD: char;
- cx,cy,tamc,pt,pt2,nv,nv2,perdeu: integer;
- {cx,cx = posição da comida; tamc = tamanho da cobra; pt = pontos; pt2 = contador p/ mudar de nv; nv = nivel; nv2 velocidade}
- x,y: array[1..14] of integer;{posição das partes da cobra}
- 627750 - Snake: in pascal snake
-
- Zuei
- 627729 - Snake: in pascal snake
-
- program snake;
- uses crt;
- var
- isPaused: boolean;
- op,dir,newD,lastD: char;
- cx,cy,tamc,pt,pt2,nv,nv2,perdeu: integer;
- {cx,cx = posição da comida; tamc = tamanho da cobra; pt = pontos; pt2 = contador p/ mudar de nv; nv = nivel; nv2 velocidade}
- x,y: array[1..14] of integer;{posição das partes da cobra}
- 619430 - Bugged.pas: pascal not work bug divison by zero
-
- program test_readkey;
- uses crt;
- var
- c : char;
- begin
- c:=readkey;
- case c of
- #8 : writeln('backspace');
- 619428 - Bugged.pas: pascal not work bug divison by zero
-
- program test_readkey;
- uses crt;
- var
- c : char;
- begin
- c:=readkey;
- case c of
- #8 : writeln('backspace');