?? filefun.pas
字號:
{$+}
program test(input,output);
type
tstudent=record
name: array [0..20] of char;
age : integer;
salary : real;
end;
arrstu = array [0..10] of tstudent;
var
stua : tstudent;
a,b,i: integer;
grstu : arrstu;
begin
a :=10;
b :=10;
{目前不支持:write(stua.name);}
stua.age :=20;
stua.salary :=100.35;
write(stua.age);
write(stua.salary);
for i:=1 to 10 do
begin
write('No.');
write(i);
grstu[i].age := i*10;
write(grstu[i].age);
grstu[i].salary := i*20;
write(grstu[i].salary);
end;
a :=2*50;
write('b=');
write(b);
write('a=');
write(a);
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -