free pascal的高手进！
program ex1_2;
var
a,b,c,p,s:real;
begin
readln(a,b,c);
p :=(a+b+c)/2;
if(a+bc)then
writeln('no a triangle!')
else
writeln(s=sqrt(p*(p-a)*(p-b)*(p-c)));//←这里少了个括号少了个分号
//end ←这个end是多余的
readln;
end.
要注意看下面的编译错误提示，pascal同时会吧光标移动到错误的位置，expected是需要的意思，例如“)”expected but “end” found意思就是需要反括号却找到了end，你看看光标在什么位置就知道哪里少了反括号并且多了end
由于我自己测试时数据太大，所以我都除了12345，你可以把mod12345去掉就可以了 （我不知道什么是生成树）
第一题
var
a,b:array[0..1000]of longint;
i,n:longint;
begin
a[1]:=8;
b[1]:=1;
readln(n);
if n=1 then writeln(1)
else
begin
for i:=2 to n do
begin
a[i]:=(9*a[i-1]+b[i-1]) mod 12345;
b[i]:=(9*b[i-1]+a[i-1]) mod 12345;
end;
writeln(a[n]);
end;
end.
第二题
program p1399;
var
i,j,k,t,n:longint;
a:array[0..1000] of longint;
begin
readln(n);
a[1]:=1;
a[0]:=1;
for i:=2 to n do
a[i]:=(a[i-2]*2+a[i-1]) mod 12345;
writeln(a[n]);
end.
第三题
program p1400;
var
a:array[0..1000]of longint;
i,n:longint;
begin
a[0]:=1;
a[1]:=3;
readln(n);
for i:=2 to n do a[i]:=(a[i-1]*2+a[i-2])mod 12345;
writeln(a[n]);
end.
第四题
var
a:array[0..1000]of longint;
i,n,k:longint;
begin
a[0]:=1;
a[1]:=1;
readln(n);
for i:=2 to n do
begin
for k:=0 to i-2 do
a[i]:=(a[i]+a[k]*a[i-2-k])mod 12345;
a[i]:=(a[i]+a[i-1]) mod 12345;
end;
writeln(a[n]);
end.
begin
assign(input,'exb.in');reset(input);
assign(output,'exb.out');rewrite(output);
writeln(10*10*6,' ',10*10*10)
close(input);
close(output);
end.
2.
var h,f,Rab:longint;
begin
assign(input,'jitu.in');reset(input);
assign(output,'jitu.out');rewrite(output);
readln(h,f);
//x+y=h
//2x+4y=f
//直接代入
Rab:=(f-2*h) div 2;
writeln(h-Rab); //鸡
writeln(Rab); //兔
close(input);
close(output);
end.
3.
var a,b,temp:longint;
begin
assign(input,'exa.in');reset(input);
assign(output,'exa.out');rewrite(output);
readln(a,b);
temp:=a;a:=b;b:=temp;
writeln(a,' ',b);
close(input);
close(output);
end.
4.
var a,b:longint;
sum:real;
begin
assign(input,'exd.in');reset(input);
assign(output,'exd.out');rewrite(output);
readln(a,b);
sum:=sqr(a)+sqr(b)+sqrt(a)+sqrt(b);
writeln(sum);
//要保留n位小数就自己换成sum:0:n
writeln(a div b);
writeln(a mod b);
close(input);
close(output);
end.
1.
begin
assign(input,'exb.in');reset(input);
assign(output,'exb.out');rewrite(output);
writeln(10*10*6,' ',10*10*10)
close(input);
close(output);
end.
2.
var h,f,Rab:longint;
begin
assign(input,'jitu.in');reset(input);
assign(output,'jitu.out');rewrite(output);
readln(h,f);
Rab:=(f-2*h) div 2;
writeln('chicken:',h-Rab);
writeln('rabit:',Rab);
close(input);
close(output);
end.
3.
var a,b,temp:longint;
begin
assign(input,'exa.in');reset(input);
assign(output,'exa.out');rewrite(output);
readln(a,b);
temp:=a;a:=b;b:=temp;
writeln(a,' ',b);
close(input);
close(output);
end.
4.
var a,b:longint;
sum:real;
begin
assign(input,'exd.in');reset(input);
assign(output,'exd.out');rewrite(output);
readln(a,b);
sum:=sqr(a)+sqr(b)+sqrt(a)+sqrt(b);
writeln(sum);
writeln(a div b:0:0);
writeln(a mod b:0:0);
close(input);
close(output);
end.
艾疫胆康： val(s,a,b); s为string a为转换的值 b为若s中间有非数字的字串,该第一个字串的位...
宁强县19551056480： Free Pascal IDE高手来 - ？
艾疫胆康： var i:integer; a:integer; sZ,sF,s0:intger; begin sZ:=0; sF:=0; s0:=0; for i:=1 to 20 do begin read(a); if a>0 then sZ:=sZ+1 else if a end; writeln(sZ,' ',sF,' ',s0); readln; end.
宁强县19551056480： Free Pascal编程语言题目高手速度进谢谢 - ？
艾疫胆康： varn,m,i:longint;a:array[1..100]of longint; beginread(n,m);for i:=1 to n doread(a[i]);for i:=m+1 to m+n dowrite(a[(i-1) mod n+1]:6);writeln; end.
宁强县19551056480： FreePascal题目,三天打鱼两天晒网,高手进 - ？
艾疫胆康： 现在的人就是太懒了,对于输入的任意的日期,计算出从1990年1月1日到这天的天数,把这个天数整除以5,如果余数为4、0就是在晒网,如果余数为1、2、3就是在打鱼.没有任何技术难题,自己动手就会写,我即使把程序贴上来,你可能还...
宁强县19551056480： free pascal达人请进 - ？
艾疫胆康： 要无序的啊 program n1; var ss:string='XLEYRHNJZIKMCPAQSFBTOGUVDW'; // 对应26个字母的无序字母表 i,k:integer; s1,s2:string; begin readln(s1); s2 := ''; for i:=1 to Length(s1) do if s1[i] in ['A'..'Z'] then // 只对大写字母进行转换 s2 := s2 + ss[Ord(s1[i])-Ord('A')+1] else // 其它字符保留 s2 := s2 + s1[i]; writeln(s2); end.
宁强县19551056480： 求高手讲解下Free Pascal的一维数组!! - ？
艾疫胆康： 一维数组其实就是一组拥有同一名字、不同下标的变量,它们的名字是 数组名(如:a)【下标】(如:1、2、3、4、5、6、7、8、9、10......tp中不要开得太大,fp没关系) 一位数组的定义:数组名:array【x..y】 of 类型; 例如:a:array【1..5...
宁强县19551056480： Free Pascal 高手进啊!？
艾疫胆康： varmax,d,n,m,i,j,c,e,f:integer;a:array[1..1000,1..1000]of integer; beginreadln(n,m);for i:=1 to n dofor j:=1 to m doread(a[i,j]);max:=1;for i:=1 to n dofor j:=1 to m doif a[i,j]=1 thenbeginc:=-1;repeatd:=1;for e:=i to i+c dobeginfor f:=j to j+...
宁强县19551056480： free pascal函数COPY(st,a,b)如何使用 - ？
艾疫胆康： copy(s,w,k) 复制s中从w开始的k位 例如:s:='123456789'; s1:=copy(s,3,5);{s1的值是'34567'}
宁强县19551056480： Free Pascal 高手来看看这道题目？
艾疫胆康： {下面的h表示路程,n表示反弹次数}program xyxg;vari,n,h,t:integer; begin readln(n,h);{输入20,100即可} t:=h; while t<>0 do begin t:=t div 2; h:=h+2*t; end; writeln(h); end.{PS:100米高的时候,7次时下降到0}{结果是整数么,还是实数?}如果是实...
宁强县19551056480： 如何使用free pascal?？
艾疫胆康： 右键——默认值——默认代码页——更改为'437 (OEM - 美国)'——确定其他的调试步骤:例1. 1的调试:1、Free Pascal程序的启动 双击桌面上的Free Pascal,启动后,界面如下:2、第一次启动free pascal 时,用鼠标单击菜单不起作用,...
