最基本的C语言程序

定义一个double（双精度）型变量 a并赋值a=10

double 和 float 的区别是double精度高，有效数字16位，float精度7位。但double消耗内存是float的两倍，double的运算速度比float慢得多，C语言中数学函数名称double 和 float不同，不要写错，能用单精度时不要用双精度（以省内存，加快运算速度）

B插入排序：

思路：当前a[1]a[i-1]已排好序了，现要插入a[i]使a[1]a[i]有序。

procedure insert_sort;

var i,j:integer;

begin

for i:=2 to n do begin

a[0]:=a[i];

j:=i-1;

while a[0]a[j] then swap(a[i],a[j]);

end;

D 冒泡排序

procedure bubble_sort;

var i,j,k:integer;

begin

for i:=1 to n-1 do

for j:=n downto i+1 do

if a[j]r) or (a[i]<=a[j])) {满足取左边序列当前元素的要求}

then begin

tmp[t]:=a[i]; inc(i);

end

else begin

tmp[t]:=a[j];inc(j);

end;

inc(t);

end;

for i:=p to r do a[i]:=tmp[i];

end;{merge}

procedure merge_sort(var a:listtype; p,r: integer); {合并排序a[pr]}

var q:integer;

begin

if p<>r then begin

q:=(p+r-1) div 2;

merge_sort (a,p,q);

merge_sort (a,q+1,r);

merge (a,p,q,r);

end;

end;

{main}

begin

merge_sort(a,1,n);

end

G基数排序

思想：对每个元素按从低位到高位对每一位进行一次排序

五、高精度计算

高精度数的定义：

type

hp=array[1maxlen] of integer;

1．高精度加法

procedure plus ( a,b:hp; var c:hp);

var i,len:integer;

begin

fillchar(c,sizeof(c),0);

if a[0]>b[0] then len:=a[0] else len:=b[0];

for i:=1 to len do begin

inc(c[i],a[i]+b[i]);

if c[i]>10 then begin dec(c[i],10); inc(c[i+1]); end; {进位}

end;

if c[len+1]>0 then inc(len);

c[0]:=len;

end;{plus}

2．高精度减法

procedure substract(a,b:hp;var c:hp);

var i,len:integer;

begin

fillchar(c,sizeof(c),0);

if a[0]>b[0] then len:=a[0] else len:=b[0];

for i:=1 to len do begin

inc(c[i],a[i]-b[i]);

if c[i]<0 then begin inc(c[i],10);dec(c[i+1]); end;

while (len>1) and (c[len]=0) do dec(len);

c[0]:=len;

end;

3．高精度乘以低精度

procedure multiply(a:hp;b:longint;var c:hp);

var i,len:integer;

begin

fillchar(c,sizeof(c),0);

len:=a[0];

for i:=1 to len do begin

inc(c[i],a[i]b);

inc(c[i+1],(a[i]b) div 10);

c[i]:=c[i] mod 10;

end;

inc(len);

while (c[len]>=10) do begin {处理最高位的进位}

c[len+1]:=c[len] div 10;

c[len]:=c[len] mod 10;

inc(len);

end;

while (len>1) and (c[len]=0) do dec(len); {若不需进位则调整len}

c[0]:=len;

end;{multiply}

4．高精度乘以高精度

procedure high_multiply(a,b:hp; var c:hp}

var i,j,len:integer;

begin

fillchar(c,sizeof(c),0);

for i:=1 to a[0] do

for j:=1 to b[0] do begin

inc(c[i+j-1],a[i]b[j]);

inc(c[i+j],c[i+j-1] div 10);

c[i+j-1]:=c[i+j-1] mod 10;

end;

len:=a[0]+b[0]+1;

while (len>1) and (c[len]=0) do dec(len);

c[0]:=len;

end;

5．高精度除以低精度

procedure devide(a:hp;b:longint; var c:hp; var d:longint);

{c:=a div b; d:= a mod b}

var i,len:integer;

begin

fillchar(c,sizeof(c),0);

len:=a[0]; d:=0;

for i:=len downto 1 do begin

d:=d10+a[i];

c[i]:=d div b;

d:=d mod b;

end;

while (len>1) and (c[len]=0) then dec(len);

c[0]:=len;

end;

6．高精度除以高精度

procedure high_devide(a,b:hp; var c,d:hp);

var

i,len:integer;

begin

fillchar(c,sizeof(c),0);

fillchar(d,sizeof(d),0);

len:=a[0];d[0]:=1;

for i:=len downto 1 do begin

multiply(d,10,d);

d[1]:=a[i];

while(compare(d,b)>=0) do {即d>=b}

begin

Subtract(d,b,d);

inc(c[i]);

end;

end;

while(len>1)and(cs[len]=0) do dec(len);

clen:=len;

end;

六、 树的遍历

1．已知前序中序求后序

procedure Solve(pre,mid:string);

var i:integer;

begin

if (pre='''') or (mid='''') then exit;

i:=pos(pre[1],mid);

solve(copy(pre,2,i),copy(mid,1,i-1));

solve(copy(pre,i+1,length(pre)-i),copy(mid,i+1,length(mid)-i));

post:=post+pre[1]; {加上根，递归结束后post即为后序遍历}

end;

2．已知中序后序求前序

procedure Solve(mid,post:string);

var i:integer;

begin

if (mid='''') or (post='''') then exit;

i:=pos(post[length(post)],mid);

pre:=pre+post[length(post)]; {加上根，递归结束后pre即为前序遍历}

solve(copy(mid,1,I-1),copy(post,1,I-1));

solve(copy(mid,I+1,length(mid)-I),copy(post,I,length(post)-i));

end;

3．已知前序后序求中序的一种

function ok(s1,s2:string):boolean;

var i,l:integer; p:boolean;

begin

ok:=true;

l:=length(s1);

for i:=1 to l do begin

p:=false;

for j:=1 to l do

if s1[i]=s2[j] then p:=true;

if not p then begin ok:=false;exit;end;

end;

end;

procedure solve(pre,post:string);

var i:integer;

begin

if (pre='''') or (post='''') then exit;

i:=0;

repeat

inc(i);

until ok(copy(pre,2,i),copy(post,1,i));

solve(copy(pre,2,i),copy(post,1,i));

midstr:=midstr+pre[1];

solve(copy(pre,i+2,length(pre)-i-1),copy(post,i+1,length(post)-i-1));

end;

七 进制转换

1任意正整数进制间的互化

除n取余

2实数任意正整数进制间的互化

乘n取整

3负数进制：

设计一个程序，读入一个十进制数的基数和一个负进制数的基数，并将此十进制数转换为此负进制下的数：-R∈{-2，-3，-4,-20}

八 全排列与组合的生成

1排列的生成：（1n）

procedure solve(dep:integer);

var

i:integer;

begin

if dep=n+1 then begin writeln(s);exit; end;

for i:=1 to n do

if not used[i] then begin

s:=s+chr(i+ord(''0''));used[i]:=true;

solve(dep+1);

s:=copy(s,1,length(s)-1); used[i]:=false;

end;

end;

2组合的生成(1n中选取k个数的所有方案)

procedure solve(dep,pre:integer);

var

i:integer;

begin

if dep=k+1 then begin writeln(s);exit; end;

for i:=1 to n do

if (not used[i]) and (i>pre) then begin

s:=s+chr(i+ord(''0''));used[i]:=true;

solve(dep+1,i);

s:=copy(s,1,length(s)-1); used[i]:=false;

end;

end;

九查找算法

1折半查找

function binsearch(k:keytype):integer;

var low,hig,mid:integer;

begin

low:=1;hig:=n;

mid:=(low+hig) div 2;

while (a[mid]key<>k) and (low<=hig) do begin

if a[mid]key>k then hig:=mid-1

else low:=mid+1;

mid:=(low+hig) div 2;

end;

if low>hig then mid:=0;

binsearch:=mid;

end;

2树形查找

二叉排序树：每个结点的值都大于其左子树任一结点的值而小于其右子树任一结点的值。

查找

function treesrh(k:keytype):pointer;

var q:pointer;

begin

q:=root;

while (q<>nil) and (q^key<>k) do

if kgoal then begin {若未移到目标}

Move(k-1,6-now-goal); {剩下的先移到没用的柱上}

Writeln(k moved from now to goal);

H[goal,h[goal,0]+1]:=h[now,nowp]; h[now,nowp]:=0;

Inc(h[goal,0]); dec(h[now,0]);

Move(k-1,goal); {剩下的移到目标上}

End;

十二、DFS框架

NOIP2001 数的划分

procedure work(dep,pre,s:longint); {入口为work(1,1,n)}

{dep为当前试放的第dep个数,pre为前一次试放的数,s为当前剩余可分的总数}

var j:longint;

begin

if dep=n then begin

if s>=pre then inc(r); exit;

end;

for j:=pre to s div 2 do work(dep+1,j,s-j);

end;

类似：

procedure try(dep:integer);

var i:integer;

begin

if dep=k then begin

if tot>=a[dep-1] then inc(sum);

exit; end;

for i:=a[dep-1] to tot div 2 do begin

a[dep]:=i; dec(tot,i);

try(dep+1);

inc(tot,i);

end;

end;{try}

十三、BFS框架

IOI94 房间问题

head:=1; tail:=0;

while tail=1) and (I<=Llen) then

while j<I do begin p:=p^next; inc(j); end;

loc:=p;

end;

2．单链表的插入 *** 作

procedure insert(L:linklist; I:integer; x:datatype);

var p,q:pointer;

begin

p:=loc(L,I);

new(q);

q^data:=x;

q^next:=p^next;

p^next:=q;

inc(Llen);

end;

3．单链表的删除 *** 作

procedure delete(L:linklist; I:integer);

var p,q:pointer;

begin

p:=loc(L,I-1);

q:=p^next;

p^next:=q^next;

dispose(q);

dec(Llen);

end;

4．双链表的插入 *** 作（插入新结点q）

p:=loc(L,I);

new(q);

q^data:=x;

q^pre:=p;

q^next:=p^next;

p^next:=q;

q^next^pre:=q;

5．双链表的删除 *** 作

p:=loc(L,I); {p为要删除的结点}

p^pre^next:=p^next;

p^next^pre:=p^pre;

dispose(p);

C语言的基本框架指的是构成C语言程序的主要的结构，也是最基本的结构。

简单的基本框架是仅由一个主函数（函数名main)构成，在主函数中也只有一条语句，该语句是通过标准输出函数printf( )在显示屏上输出指定信息。如下面的程序：#include"stdioh"int main(){printf ("\nThis is my first C program!\n");}程序开头的#include"stdioh"是预处理命令，其作用是包含输入输出库文件，当程序中调用标准输入或输出函数时添加此行。

现在使用的都应该是STC89S52吧。

51系列单片机最常用的是C51编程语言，当然也可以用汇编语言作为入门。汇编语言是深入学习C语言及C51的重要基础，但是写出的程序可读性差。所以可以用C51作为入门的单片机编程语言。学的差不多后再去学习汇编。

C51包含的库函数和一般的C语言基本相同，但是又增加了一些51单片机中常用的引脚定义，总线，片外寻址能功能的头文件，便于对单片机进行编程处理。

原程序示意如下：

if ( 条件1 )

{ if( 条件2 )

{

if ( 条件3 )

{ }

else

{

(1) }

(2)

}

(3)

}

bOldStatus=bNewStatus

其中，bOldStatus=bNewStatus语句的作用是把当前的键盘状态设置为键盘的原状态，据此来区分是一次按键还是多次按键。

一旦把此句，移到（1）、（2）或（3）处，都会出现问题。

移到（1）处：一旦计数为9后，bOldStatus=Pressed 条件1不成立，后续的按键，不能被接收。

移到（2）处：bOldStatus=Pressed 条件1不成立，后续的按键，不能被接收。

移到（3）处：当键盘刚被按下时，因为可能出现多次接触，会出现多计数的情况。

最简单的C语言代就是输出“helloWord”，通常是作为初学编程语言时的第一个程序代码。具体代码如下：

#include <stdioh>

int main(){

  printf("Hello, World! \n");

  return 0;

}

扩展资料：

1、程序的第一行#include <stdioh>是预处理器指令，告诉 C 编译器在实际编译之前要包含 stdioh 文件。

2、下一行intmain（）是主函数，程序从这里开始执行。

3、下一行printf（．．．）是C中另一个可用的函数，会在屏幕上显示消息＂Hello，World！＂。

4、下一行return0；终止main（）函数，并返回值0。

参考资料来源：百度百科-c语言

以上就是关于最基本的C语言程序全部的内容，包括:最基本的C语言程序、C语言程序中常用的语句…要比较全一点的、我们在学习中常用的C语言程序的框架是什么形式等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！