 |
只能告诉思路!!!不可告答案!!!
( ) |
 |
记住
( ) |
| |
嘿!有谁可以把文件读入输出发给我?
( ) |
| |
例:
var a,b,c:integer;
begin
assign(input,'jia.in');
assign(output,'jia.out');
reset(input);
rewrite(output);
readln(a);
readln(b);
c:=a+b;
write(c);
close(input);
close(output);
end.
( ) |
| |
不能发太长的文字!!!
( ) |
| |
pascal初学选手基础教程那个读入时反了
不对
( ) |
| |
最好把那两个读入时顺序反一下
( ) |
| |
老师说的那个题目可用这个改:
var s:string;
a,b:integer;
function ntoshi(t:string;n:integer):longint;
var i,len,p,d,q:longint;
begin
len:=length(t);
p:=1; d:=0;
for i:=len downto 1 do
begin
if (ord(t[i])<=57) and (ord(t[i])>=48 ) then
q:=ord(t[i])-48
else
q:=ord(t[i])-55;
d:=d+ q *p ;
p:=p*n;
end;
ntoshi:=d;
end;
function shiton(x:longint;n:integer):string;
var pp,y:string;
k,t:longint;
begin
k:=x; pp:='';
while k>0 do
begin
t:= k mod n;
if t>=10 then
pp:=chr(t+55)+pp
else
begin
str(t,y);
pp:=y+pp;
end;
k:=k div n;
end;
shiton:=pp;
end;
begin
readln(s);
read(a,b);
writeln(shiton( ntoshi(s,a),b) );
end.
( ) |
| |
进制数转换（jinzhi.pas）
【问题描述】
进制数转换,例如：(2B3)14=(670)9
【样例输入1】
14 9
2B3
【样例输出1】
670
( ) |
| |
1085 好简单!
( ) |
| |
颠倒
( ) |
| |
var a:array[1..100,1..100]of integer;
i,j,n,k:integer;
begin
fillchar(a,sizeof(a),0);
read(n);
for i:=n downto 1 do
begin
for j:=n downto n+1-i do
begin
k:=k+1;
a[i,j]:=k;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
if a[i,j]=0 then
write('':3)
else
write(a[i,j]:3);
writeln;
end;
end.
( ) |
| |
o
( ) |
| 1 |
很简单
^ ^
^ ^ ^ ^
^ ^----------^ ^
( )
( - - )
（ （ ） （） ）
( )
( ^^^^^^^^^^^^^^ )
--------------------
/ 猪猪猪猪猪猪猪猪猪\
/ \
/ 猪头飞 \
/ /| |\ \
/ / | 猪屎 | \ \
/---/ | | \---\
/ 猪的小鸡巴 \
/ \
/ /---------------\ \
/ / \ \
/ / \ \
-----/ / \ \-----
|--------- ---------|
( ) |
| 1 |
很简单
^ ^
^ ^ ^ ^
^ ^----------^ ^
( )
( - - )
（ （ ） （） ）
( )
( ^^^^^^^^^^^^^^ )
--------------------
/ 猪猪猪猪猪猪猪猪猪\
/ \
/ 猪头飞 \
/ /| |\ \
/ / | 猪屎 | \ \
/---/ | | \---\
/ 猪的小鸡巴 \
/ \
/ /---------------\ \
/ / \ \
/ / \ \
-----/ / \ \-----
|--------- ---------|
( ) |
| |
大众丨：预备，唱!!!大河向东流啊，一楼二楼 解大手啊!嘿!嘿!解大手啊!拉不出屎一声吼啊!吼不出屎用手抠啊!风风火火解大手啊!嘿!嘿!解大手 啊!抠不出来 用铁钩啊!钩不出来 血直流啊!风风火火 解大手啊!一楼抠完二楼抠啊!哎呀!依儿呀，嘿嘿依儿呀抠出一碗八宝粥哇三楼四楼端起走啊。
( ) |
| 1 |
var m,n,x,y,i:longint;
begin
assign(input,'p1612.in');
assign(output,'p1612.out');
reset(input);
rewrite(output);
readln(m,n);
readln(x,y);
for i:=m to n do
if (i mod x=0) and (i mod y=0) then
write(i,' ');
close(input);
close(output);
end.
( ) |
| 这是杨辉三角的一部分 |
这是杨辉三角的一部分
要用到的
i:=n+1;
if i>7 then
begin
k:=i-7;
i:=i-m;
end;
j:=m;
if j>7 then
begin
k:=j-7;
j:=j-m;
end;
( ) |
| |
var t,i,j,k,n,m,l,x,c:longint;
a:array[1..10000,1..10000] of longint;
b:array[1..10000] of longint;
begin
read(n,m);
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
readln(l);
for t:=1 to l do
readln(b[t]);
k:=0;
x:=1;
c:=1;
for i:=1 to m do
for j:=1 to n do
for t:=1 to l do
begin
end.
( ) |
| |
今天做出了两题，太爽了！！！！！！！！！！
( ) |
| |
var a,b:array[1..10000] of longint;
i,j,k,n:longint;
begin
read(n);
n:=n mod 100;
i:=i+1;
a[i]:=n div 100;
k:=k+a[i];
n:=n mod 100;
i:=i+1;
a[i]:=n div 50;
k:=k+a[i];
k:=k+a[i];
n:=n mod 50;
i:=i+1;
a[i]:=n div 20;
k:=k+a[i];
n:=n mod 20;
i:=i+1;
a[i]:=n div 10;
k:=k+a[i];
n:=n mod 10;
( ) |
| |
var n,number:dword;
a:array[0..100000]of qword;
procedure shu(j:dword);
var i:dword;
begin
inc(number);
for i:=1 to j-1 do
write(a[i],' ');
writeln(a[j]);
end;
procedure suan(x,y:dword);
var i:dword;
begin
if x=1 then
a[0]:=1;
if y=0 then
shu(x-1)
else
for i:=a[x-1] to y do
begin
a[x]:=i;
suan(x+1,y-i);
end;
end;
begin
assign(input,'p1070.in');
assign(output,'p1070.out');
reset(input);
rewrite(output);
fillchar(a,sizeof(a),0);
readln(n);
number:=0;
suan(1,n);
WRITE('sun=',NUMBER);
close(input);
close(output);
end.
( ) |
| |
我自己改进的插入排序:
var n,i,j,k:longint;
a:array[0..1000]of integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=2 to n do
begin
a[0]:=a[i];
j:=i-1;
while(a[j]>a[0])and(j>0)do
begin
a[j+1]:=a[j];
j:=j-1;
end;
a[j+1]:=a[0];
end;
for i:=1 to n do write(a[i],' ');
end.
望采纳
( ) |
| |
FSMNDLVMDSLKVNDSKV;DLSJF
SADDASADSA
( ) |
| |
FSMNDLVMDSLKVNDSKV;DLSJF
SADDASADSA
( ) |
| |
FSMNDLVMDSLKVNDSKV;DLSJF
SADDASADSA
( ) |
| |
FSMNDLVMDSLKVNDSKV;DLSJF
SADDASADSA
( ) |
