王朝知道

分享

 

01.PASCAL高精度加法程序
输入两个长整数（十位以上），输出它们的和。var st:string; x,y:array[0..101]of integer; i,j,l1,l2:integer;begin write('x='); readln(st); l1:=length(st); for i:=0 to 101 do x:=0; fo...查看完整版>>PASCAL高精度加法程序02.求PASCAL题高精度减法的程序
唉……算我好心吧,现打一个，有个别打误见谅吧(默认第一个数大于第二个数喽)program gaojian;var a,b:array[1..500] of longint; s1,s2:string; i,j,k,l1,l2:longint;begin readln(s1);readln(s2); l1:=...查看完整版>>求PASCAL题高精度减法的程序03.谁能给我做个pascal程序？？
program pailei;const m=4;var a:array[1..m] of integer ; b:array[1..m] of boolean;procedure print;var i:integer;begin for i:=1 to m do write(a); writeln;end;procedure try(dep:integer);var i:integer...查看完整版>>谁能给我做个pascal程序？？04.求一PASCAL程序
const n=4;var i, j: integer;begin for i:=1 to n-1 do for j:=i+1 to n do writeln(i, ': ', j);end....查看完整版>>求一PASCAL程序05.PASCAL程序求输出
是noip2005初赛提高组度程序第四题吗，正确答案是31，不过我也运行不出结果，可能程序有一点小问题。顺便问一句，你进决赛了吗，没进的话下一届再努力，不可能每年运气都这么背的。进了就别在计较了，好好准备决赛，...查看完整版>>PASCAL程序求输出06.请教一个PASCAL程序
program YMDToW;var y, m, d, w: Integer;begin Write('year: '); Readln(y); Write('month: '); Readln(m); Write('day: '); Readln(d); if m < 3 then begin m := m + 12; y := y - 1; end; w :=...查看完整版>>请教一个PASCAL程序07.2005NOIP的PASCAL语言程序结果第三题？
Today-ix-terrible!我下午刚考 你也是吧 有答案...查看完整版>>2005NOIP的PASCAL语言程序结果第三题？08.谁有pascal n进制转m进制的程序
程序如下:unit Radix;interfaceuses Classes, SysUtils;function StrToIntAsDec(var V: Cardinal; S: string): Boolean; forward;function StrToIntAsHex(var V: Cardinal; S: string): Boolean; forward;function ...查看完整版>>谁有pascal n进制转m进制的程序09.关于pascal程序？
直接用ANSI码保存为后缀是pas的文件...查看完整版>>关于pascal程序？10.pascal的程序
简单应用 ...?Var I:integer;BeginFor I:=1 to 5 do begin Write(I);End;End.运行结果：12345Var I:integer;BeginFor I:=5 downto 1 do begin Write(I);End;End.运行结果：54321...查看完整版>>pascal的程序

 

 

免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。