|
{Linked List - Pascal}
program List;
type ptr=^Node;
char10=packed array[1..10] of char;
Node=record
name:char10;
phone:char10;
next:ptr;
end;
var
Head, P, Q : ptr;
i:integer;
{*********************************************}
{ Insert a Customer
|
|
|
자.
function tan(x : real) : real;
begin
tan : = sin(x)/cos(x)
end;
위의 코드는 Pascal의 함수 선언이다. (x : real)은 인수를 실수형으로 선언한 것이고 바로 뒤의 real은 반환할 결과값의 자료형이다. 여기서 sin(x)와 cos(x)는 Pascal의 표준함수이다. 함수를 호출하
|
|
|
유체를 통하여 모든 방향으로 일정하게 전달된다는 것으로, 모든 유압 장치에 기본적으로 이용되는 원리이다. 이와 같은 원리를 이용한 기계로서는 유압 잭, 유압프레스 등이 있다. ◎Pascal 은 누구인가???
◎파스칼의 원리(Pascal--原理)
|
|
|
|
program BSTree;
uses
Crt;
const
MAXSIZE = 100; (*트리의 사이즈*)
type
element = record (*트리의 노드로 쓰일 레코드*)
id : integer;
name : string[10];
value : char;
end;
Tree = array[1..100] of element;
var
BST : Tree; (*이진탐색트리가 될 전역 변수 선언*)
select : inte
|
|
|
1.파스칼의 생애
1623.06.19 프랑스 클레르몽 출생
별다른 학교를 다니지 않았음
☞ 아버지가 교사역할
아버지로부터 라틴어, 그리스어 습득
1635년 아버지와 함께 수학연구 시작
1648년 얀센주의 종교운동과의 만남
☞1654년 종
|
|
메뉴펼치기
