pascal帕斯卡官网
作者&投稿：沙冒 （若有异议请与网页底部的电邮联系）
纳宇13613916629问： PASCALHILTON是什么手表牌子? - ？
镇江市复方回答： PASCAL HILTON(帕斯卡.希尔顿)德国的一个品牌.我同事出差时也买过一块ia,70欧元,全钢的,做工感觉很一般.毕竟德国不像瑞士那样以制表业闻名吧有官方网站www.pascal-hilton.de/
纳宇13613916629问： pascal编程？
镇江市复方回答： 1)输出1~1000直接能被3整出的数 for i := 1 to 1000 do begin if i mod 3 = 0 then writeln(inttostr(i)) end;
纳宇13613916629问： Pascal语言 编程？
镇江市复方回答： var i,j:integer; begin for i:=1 to 999 do begin if i mod 3 <> 0 then continue; j:=i; while j>0 do begin if j mod 10 = 5 then break; j:=j div 10; end; if j<>0 then writeln(i); end; end.
纳宇13613916629问： pascal高精度乘法？
镇江市复方回答：var a,b,c:array[0..1000] of word; procedure init; var s:string; ok,i,j:integer; begin readln(s); a[0]:=length(s); for i:=1 to a[0] do val(s[a[0]-i+1],a,ok); readln(s); b[0]:=length(s); b[0]:=length(s); for i:=1 to b[0] do val(s[b[0]-i+1],b,ok); end; procedure highmul; ...
纳宇13613916629问： pascal介绍？
镇江市复方回答： PASCAL是一种结构程序设计语言,由瑞士苏黎世联邦工业大学的沃斯(N.Wirth)教授研制,于1971年正式发表.是从ALGOL60衍生的,但功能更强且容易使用.目前,作为一个能高效率实现的实用语言和一个极好的教学工具,PASCAL语言...
纳宇13613916629问： 最小生成树程序(pascal)(kruskal)？
镇江市复方回答： 汗~~~厉害啊, program kruskal; type node=record fromv,endv,data:integer; end; jilu=array[1..100] of node; var father:array[1..100] of integer; elist:jilu; c:array[1..100] of integer; i,j,t,x,y,n,d:integer; procedure swap(var a,b:integer); var temp:integer; ...
纳宇13613916629问： Pascal 语言？
镇江市复方回答： var i,s:longint;beginwhile (s<600) do begininc(i); s:=s+i;end;writeln(i);end.
纳宇13613916629问： 字符串逆转(pascal)？
镇江市复方回答： const st='Num '; st1=':'; var i,j,n:longint;a:array[1..1000000]of 1..40; s:array[1..1000000]of string[40];temps:string[40] begin readln(n) for i:=1 to n do begin readln(a[i]);readln(s[i]); end; for i:=1 to n do begin write(st,i,st1); for j:=a[i] downto 1 do begin ...
纳宇13613916629问： pascal语言编程？
镇江市复方回答： 因为'm' < 'o',所以j:= 2; 因为'o' < 'r',所以j:= 3 因为'r'都大于后面的'n','i','n','j' 所以最终j= 2 所以输出mo
纳宇13613916629问： PASCAL语言分解质因数 - ？
镇江市复方回答： 给你个好的…别忘了追加,呵~~ program ttdd8; const maxn=10000;{定义上界} var i,k,x,j,js:longint;a:array[1..maxn] of boolean;{筛选法求素数过程中记录i是否为素数,若是,为true,否则为false}prime:array[1..maxn] of longint;{记录筛选出来...
