ahu

摘要： program Project1;{$APPTYPE CONSOLE}uses SysUtils; var m,n,c:integer;begin for m:=0 to 10 do begin c:=1; write(c:40-3*m); for n:=1 to m do begin c:=c*(m-n+1) div n; write(c:6) end; writeln; end; readln... 阅读全文

摘要： program Project1;{$APPTYPE CONSOLE}uses SysUtils; label 1;var ch:char; num1,num2:integer; begin 1: num1:=0; num2:=0; writeln('以？号结束'); read(ch); write(ch); while ch<>'?' do begin if (ch>='A')... 阅读全文

摘要： program Project2;{$APPTYPE CONSOLE}uses SysUtils; label 1; var year,month,days:integer;begin 1: writeln('输入 year month'); read(year,month); case month of 1,3,5,7,8,10,12:days:=31; 4,6,9,11 : days:=30;... 阅读全文

摘要： program Project1;{$APPTYPE CONSOLE}uses SysUtils; label 1;var x,max,min :real; i:integer;begin 1: write('输入20个实数'); writeln; read(x); max:=x; min:=x; for i:=2 to 20 do begin read(x); if i mod 5 = 0 th... 阅读全文

摘要： program Project1;{$APPTYPE CONSOLE}uses SysUtils; label 1;var i, j: integer; temp: real; a: array[1..10] of real;begin writeln( '输入10个数');1: for I := 1 to 10 do begin read(a[i]); end; writeln; for i:=... 阅读全文

摘要： program Project2;{$APPTYPE CONSOLE}uses SysUtils;label 1; var total:integer; procedure move(n,a,b,c:integer); begin if n=1 then writeln(a,'→',c) else begin move(n-1,a,c,b); writeln(a,'→',c... 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(... 阅读全文

摘要： program Project2;{$APPTYPE CONSOLE}uses SysUtils;var n,p,q,j:integer; flagp,flagq:boolean; label 1;begin1: writeln('输入一个偶数');read(n); P:=1; repeat P:=p+1; q:=n-p; flagp:=true; for J:=2 to round(sqrt(p... 阅读全文

摘要： program Project2;{$APPTYPE CONSOLE}uses SysUtils;const PI=3.14159 ; var I,wide :integer; y:real;beginfor I:=0 to 24 do beginy:=sin(i*15*PI/180);wide:=round(35*y+40);writeln('*':wide) ;end; Readln;{ 加... 阅读全文