王朝知道

分享

 

01.pascal:编写一个给一个分数约分的程序
不能用repeat如果给的分数是最简的一楼的程序将输出错误答案t:=a mod b;while t<>0 dobegina:=b;b:=t;t:=a mod b;end;这个才对...查看完整版>>pascal:编写一个给一个分数约分的程序02.求一个PASCAL程序
用筛选法求1～N之间的所有素数。分析：对于数组flag[1..n]，先初始化假设全为true。首先flag=false，接着从数组中找到第1个为true的数flag，那么在2以后的所有数中，将2的倍数的数赋值为false。接着再从数组中找到下...查看完整版>>求一个PASCAL程序03.求一个pascal程序？
var temp,n,tot:int64; i,j,k:longint; a:array[0..3000]of boolean;begin fillchar(a,sizeof(a),false); for i:=0 to 11 do for j:=0 to 7 do for k:=0 to 4 do begin temp:=(2**i)*(3**j)*...查看完整版>>求一个pascal程序？04.设计一个1+2+…+100的pascal程序
var s,a:integer;begins:=0;for a:=1 to 100 do begin s:=s+a;end;writeln(s);end....查看完整版>>设计一个1+2+…+100的pascal程序05.用C++编写一个简单程序
#include <iostream.h>class Person{public: int age; int sex; char name;public: Person(char N[],int a,int s) { for(int i=0;i<16;i++) name=N; age=a; sex=s; } ~Person(){cout<<"调用pers...查看完整版>>用C++编写一个简单程序06.怎么编这个程序编写一个程序
只做成绩分类program chengji; var a:array[1..1000]of real; i,j:longint; begin for i:=1to 1000 do read(a); for i:=1to 999 do for j:=2to 1000 do if a>athen begin...查看完整版>>怎么编这个程序编写一个程序07.编写一个简单计算器程序，
什么语言...查看完整版>>编写一个简单计算器程序，08.用 Pascal 编写一个程序将十进制整数n转换为二进制数。
用辗转相除不就行了!...查看完整版>>用 Pascal 编写一个程序将十进制整数n转换为二进制数。09.用pascal编写一个加法练习程序，每套10道题，每题正确的加10分，错误的不给分，并计算总分。
program ss(input,output); var a,b,c,i,s:integer; begin randomize;{使每次运行时产生的随机数都不相同} {s初始化为0} s:=0;{FOR 语句控制循环次数} for i:=1 to 10 do BEGINa:=random(100);b:=random(100);{输出加...查看完整版>>用pascal编写一个加法练习程序，每套10道题，每题正确的加10分，错误的不给分，并计算总分。10.我写好了一个程序(PASCAL),将它写到哪里,怎么保存啊??
如果可以用input和output，你应该是free pascal那么 进入pascal总页面 点File 再点new 新建页 写完后再点save 保存 点open 读取 var a，b，c，p，j：real； begin {assign(input,'(文件名.in)');reset(input); ...查看完整版>>我写好了一个程序(PASCAL),将它写到哪里,怎么保存啊??

 

 

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