pascal吧 关注：14,959贴子：132,343
本人是pascal新手，已经辛辛苦苦编了这些，可就是有编译错误，我想做一个学生管理系统，但是不知道怎么改。
var name,sex,number:array[1..10000] of char;
ch,i,how:integer;
procedure func(ch:integer);
var temp:char;
begin
if ch=1
then
begin
write('输入学生姓名:');
readln(temp);
searchh(temp);
end
else
if ch=2
then
begin
write('输入学生信息[姓名] [学号] [性别]');
readln(name[how],number[how],sex[how]);
how:=how+1;
end;
end;
procedure searchh(n:char);
begin
for i:=1 to how do
begin
if name[i]=n
then
begin
writeln('姓名:',name[i]);
writeln('学号:',number[i]);
writeln('性别:',sex[i]);
end;
begin
while ch<>3 do
begin
writeln('1.查询');
writeln('2.添加学生');
writeln('3.退出');
write('输入功能序号: ');
readln(ch);
func(ch);
end;
end.
var name,sex,number:array[1..10000] of char;
ch,i,how:integer;
procedure func(ch:integer);
var temp:char;
begin
if ch=1
then
begin
write('输入学生姓名:');
readln(temp);
searchh(temp);
end
else
if ch=2
then
begin
write('输入学生信息[姓名] [学号] [性别]');
readln(name[how],number[how],sex[how]);
how:=how+1;
end;
end;
procedure searchh(n:char);
begin
for i:=1 to how do
begin
if name[i]=n
then
begin
writeln('姓名:',name[i]);
writeln('学号:',number[i]);
writeln('性别:',sex[i]);
end;
begin
while ch<>3 do
begin
writeln('1.查询');
writeln('2.添加学生');
writeln('3.退出');
write('输入功能序号: ');
readln(ch);
func(ch);
end;
end.
执念 1.在南京主城区，相关部门设置了一些公共自行车。但并非去办任何事情都是骑车快，因为骑公共自行车需要找租车点（即：从出发地点走到租车点，并从还车点走到目的地）、刷卡取车等，这都要耽误一些时间。假设刷卡取车、停车刷卡的时间均为45秒，步行的速度为每秒1米，骑车的速度为每秒3米。请根据输入的步行路程、出发地点和公共自行车服务点的路程、公共自行车服务点和目的地的路程、以上两个公共自行车服务点之间的路程，算出骑车和步行所需时间，并输出哪种方式更快，以及较另一种方式快多少秒（四舍五入为整数）。输入：4行。分别有一个正整数（均在10000以内），依次表示题目中的相关路程（单位均为米）。输出：2行。如果骑车快，则输出“Bike”以及快多少秒；如果走路快，则输出“Walk”以及快多少秒；如果一样快，输出“Same”。单词和数值分别2行输出。
输入样例
750
100
150
660
输出样例
Bike
190
输入样例
750
100
150
660
输出样例
Bike
190
