邵群x简隋英write

廖阅灵695VB简单的算术题,帮忙.. -
仲蕊穆17753854499 ______ <% Dim gprice, mprice, xprice, gcount, mcount, xcount, count gprice = 5 mprice = 3 xprice = 3 For gcount = 1 To 100 \ gprice If (100 - gprice * gcount) \ mprice <> 0 Then For mcount = 1 To (100 - gprice * gcount) \ mprice If 100 - gprice * gcount - ...

廖阅灵695pascal算24点 -
仲蕊穆17753854499 ______ type arr=array[1..4]of integer; var a:arr; r:array[1..3,1..4]of integer; i:integer; procedure print; var i,j:integer; begin for i:=1 to 3 do begin for j:=1 to 4 do if j=2 then case...

廖阅灵695求问:用fortran语言求积分sin(x) -
仲蕊穆17753854499 ______ 最简单的梯形公式求积分:(计算0~π亦即0°~180°范围内的积分,精确结果为2) s=0 pai=3.1415926 step=pai/180 a=sin(0.0) do 10 i=0,179 b=sin(step*(i+1)) s=s+0.5*(a+b)*step a=b10 continue write(*,*)s stop end

廖阅灵695free pascal中快速幂的程序怎么写(快速求a^b,如快速求3^20的答案)???求大神指教! -
仲蕊穆17753854499 ______ var a,b,n:int64; function f(a,b,n:int64):int64; var x,y:int64; begin x:=1; y:=a; while b0 do begin if b mod 2=1 then x:=x*y mod n; y:=y*y mod n; b:=b div 2; end; exit(x); end; begin read(a,b,n); write(f(a,b,n)); end. 利用二分思想,a,b,n表示a的b次方除以n的余数

廖阅灵695下标越界: 'i' -
仲蕊穆17753854499 ______ 有问题的部分: aaa=split(ProdNums,＂,＂) bbb=split(ProdIds,＂,＂) 问题:你能保证 aaa...

廖阅灵695var x,yinteger -
仲蕊穆17753854499 ______ 变量清单 x y var x,yinteger Begin x:=1;y:=2; 1 2 x:=x+y; 3 2 y:=x-y; 3 1 x:=x-y; 2 1 write(x, , ,y): {这一句错了,应该是writeln(x,' ',y); 也不能用中文标点} End.

廖阅灵695打印数字金字塔的PASCAL程序 -
仲蕊穆17753854499 ______ program hahavar i, j, k: Integer;begin//初始化i := 1;j := 1;k := 1;for i := 1 to 9 dobegin for j := 1 to i do begin write(j, ' '); end; for k := i dow...

廖阅灵695问大家几道编程题Pascal -
仲蕊穆17753854499 ______ 学编程要自己有兴趣才行,我就从不给我儿子布置这些练习. program ygb1; funct...

廖阅灵695vb 修改保存在txt(文本文件)中的密码 -
仲蕊穆17753854499 ______ 思路:一.要求用户输入:用户名和密码.判断是否存在该用户名和密码,是的,就提供修改,否则提示＂不存在＂信息. 二.如果存在,就:1.将文件内容,读入到2个数组.(1个存放用户名,另1个存放密码)2.将对应的密码让用户修改,结果存放到该数组(即直接修改的是数组的值)3.将数组保存到文件里(替换原来的所有内容).