코딩하는 나귀

자주 보면서 볼때마다 새로운 이유는... 또 까먹을 꺼다... 적어두자... =ㅅ=;

procedure read(v1,v2,v3....);

procedure readln(v1,v2,v3...);

   값을 입력받은 후 다음 행으로 이동

 

procedure write(v1,v2,....);

procedure writeln(v1,v2...);

   값을 출력한 후 다음 행으로 이동

 

function chr(x):char;

  x(아스키 코드값)에 해당하는 문자로 변환

 

function ord(x):integer; x(문자)에 해당하는 순서

   즉 아스키코드값 리턴

 

function int(X: Extended): Extended;

   실수값의 소숫점이하를 버리고 정수부분만 취한다.

    Int(32.45)  ← 32.0

 

function trunc(X: Extended): Int64;

   실수값의 소숫점이하를 버리고 정수부분만 취한다.

    trunc(32.45) ← 32

 

function odd(x:integer):boolean;

   x가 홀수면 true, 짝수면 false를 되돌린다.

 

function random(x:integer):integer;

   0~x-1사이의 정수 난수 발생

 

function random:real;

  0~1사이의 실수 난수 발생

procedure randomize;

 

function upcase(ch:char):char;

   소문자를 대문자로 변환

 

procedure inc(var x[;n:integer]);

   x의 값을 일정하게 증가

   inc(x);   ← x:=x+1

   inc(x,2);   ← x:=x+2

 

procedure dec(var x[;n:integer]);

   x의 값을 일정하게 감소

   dec(x);   ← x:=x-1

   dec(x,2);   ← x:=x-2

 

function abs(x:integer):integer; 절대값(정수)

function abs(x:real):real; 절대값(실수)

 

function sqr(x):x와 동일 type

   x의 제곱값을 리턴

 

function sqrt(x:real):real;

   x의 제곱근값을 계산하여 리턴 (x>0)

 

function length(s:string):integer;

  문자열의 길이

 

function copy(s:string;x:integer;cnt:integer):string;

  문자열 s를 x로 부터 cnt만큼 자른다

 

procedure delete(var s:string;x:integer;cnt:integer);

  문자열 s를 x부터 cnt만큼 오려낸다

 

procedure insert(so:string;var s:string;idx:integer);

  s문자열의 idx위치에서 so문자열을 삽입하며, s문자열  의 나머지 문자들은 우측으로 이동한다.

 

function pos(substr,s:string):byte;

  문자열 s를 처음부터 검색하여 substr문자열이 있는지를 확인하여 위치를 되돌린다.

 

procedure str(s[:width[:decimal]];var s);

  수치형 데이터를 문자열 변환후 s에 기억

 

procedure val(s:string;var v:integer;var code:integer);

  수치형 문자를 숫자로 변환후 v에 기억

  변환과정에서의 error는 code에 기억

 

function eof(var f:text):boolean;

   파일의 끝에 도달했는지를 확인

출처  : 말랑젤리님의 블로그 [ http://redtears9.egloos.com/892000 ]