CSDN论坛 > Delphi > VCL组件开发及应用

一大堆整数型变量可否同时归零?如:a,b,c:=0;否则要:a:=0;b:=0;c:=0;太麻烦了。不会是Borland的失误吧? [问题点数:20分,结帖人shdshd]

Bbs3
本版专家分:921
结帖率 100%
CSDN今日推荐
Bbs7
本版专家分:11181
Bbs7
本版专家分:11181
Bbs3
本版专家分:921
Bbs8
本版专家分:36067
Blank
蓝花 2002年3月 C++ Builder大版内专家分月排行榜第三
2002年3月 Delphi大版内专家分月排行榜第三
Bbs1
本版专家分:44
Bbs4
本版专家分:1071
Bbs7
本版专家分:10674
Blank
黄花 2002年2月 Delphi大版内专家分月排行榜第二
匿名用户不能发表回复!
其他相关推荐
编译原理 语法分析器
#include<string.h> int isterminal(char a) {if((a=='i')||(a=='+')||(a=='*')||(a=='(')||(a==')')||(a=='$')) return(1); else return(0); } int notin(char a,char *b) {char *c; for(c=b;(*c)!='\0';c++) {if((*c)==a) break; } if((*c)=='\0') return(1); else return(0); } void add(char *g,char *q,char *a) {char *tem; tem=a; for(;(*tem)!='\0';tem++) {if(notin((*tem),g)) {(*q)=(*tem); q++; (*q)='\0';
【洛谷1464】Function 递归
Function 题目描述 对于一个递归函数w(a,b,c) 如果a&amp;lt;=0 or b&amp;lt;=0 or c&amp;lt;=0就返回值1. 如果a&amp;gt;20 or b&amp;gt;20 or c&amp;gt;20就返回w(20,20,20) 如果a&amp;lt;b并且b&amp;lt;c就返回w(a,b,c-1)+w(a,b-1,c-1)-w(a,b-1,c) 其它别的情况就返回w(a-1,b,c)+w(a-1...
有三个正整数a,b,c(0<a,b,c<10^6),其中c不等于b。若a和c的最大公约数为b,现已知a和b,求满足条件的最小的c。
#include int gcd(int a,int b)  { return b?gcd(b,a%b):a; } int main()  { int t; scanf("%d",&t); while(t--)  { int a,b; scanf("%d %d",&a,&b); int c=b*2;//从b的2倍开始顺序尝试,找到后即为最小的c// while(gcd(
Python实现一元二次方程的定义是:ax2 + bx + c = 0 请编写一个函数,返回一元二次方程的解。
Python实现一元二次方程的定义是:ax2 + bx + c = 0 请编写一个函数,返回一元二次方程的解。
Oracle的nvl(a,b)函数说明
<br />eg:  select nvl(sum(t.dwxhl),1) into i from tb_jhde t where zydm=-1<br /> <br />       NVL(a,b)函数 如果a=null,返回b <br /> <br /> <br />       Oracle认为空串就等于NULLOracle中的空字符串基本上是被当成空NULL来处理的,我们可以从下面的得到印证。 <br />select nvl('','NULL') from dual 返回'NULL',sele
1028 例题3-5 求一元二次方程的根
题目描述求一元二次方程ax2+bx+c=0的根,三个系数a, b, c由键盘输入,且a不能为0,且保证b2-4ac&amp;gt;0。程序中所涉及的变量均为double类型。输入以空格分隔的一元二次方程的三个系数,双精度double类型输出分行输出两个根如下(注意末尾的换行):r1=第一个根r2=第二个根结果输出时,宽度占7位,其中小数部分2位。样例输入1 3 2样例输出r1= -1.00 r2= -...
Python解一元二次方程:ax2 + bx + c = 0
#一元二次方程公式 标量=b**2-4*a*c 如果标量大于0,x有2个解,如果等于0,x 1个解为x=-b/2a 小于0则无解 #公式 x=(-b+math.sqrt(b**2-4*a*c))/2*a math.sqrt(x)开平方根import math def quadratic(a,b,c): key=b**2-4*a*c if key&amp;gt;0: ...
16x16点阵程序和电路
void Delay(unsigned char i) //延时定义 { unsigned char j; for(;i>0;i--) for(j=0;j<80;j++) {;} } void main() { unsigned int a,e; unsigned char b,c,d=0; SCON=0; while(1) { for(e=0;e<5312;e=e+32) { for(a=0;a<8;a++) { for(b=0;b<8;b++) { for(c=0;c<32;c++) {
T1125 矩阵乘法(#Ⅰ- 5 - 2)
【题目描述】计算两个矩阵的乘法。n×m阶的矩阵A乘以m×k阶的矩阵B得到的矩阵C 是n×k阶的,且C[i][j] = A[i][0]×B[0][j] + A[i][1]×B[1][j] + …… +A[i][m-1]×B[m-1][j](C[i][j]表示C矩阵中第i行第j列元素)。【输入】相邻两个整数之间用单个空格隔开,每个元素均在1~1000之间。第一行为n, m, k,表示A矩阵是n行m列,...
求 a^b%c的大小
求a^b%c Description Now you are given three positive integers a , b and c,please calculate a^b % c; Input The input contains a single test case,The first line contains three integers a , b and c (0 < a < 1000 , 0 < b < 1000000000 , 0 < c < 10000) Output Output a^b % c; Sample Input 2 3 5 Sample Output 3 Source dalong@Buptacm
关闭
关闭