二十七课:记录
发表时间:2002-12-05 00:00:00 关键词:奥赛,PASCAL,编程,源码
(点击:) 把这篇文章告诉我的QQ或MSN朋友
program jilu(input,output);
type
student=record
name:string[20];
age:integer;
height:real;
weight:real;
sex:boolean;
end;
var
libing:student;
a:char;
begin
write('Name ');readln(libing.name);
write('Age ');readln(libing.age);
write('Height ');readln(libing.height);
write('Weight ');readln(libing.weight);
write('Sex(M or F)');readln(a);if a='M' then libing.sex:=true else libing.sex:=false;
writeln('Name=',libing.name);
writeln('Age=',libing.age);
writeln('Height=',libing.height);
writeln('Weight=',libing.weight);
writeln('Sex=',libing.sex);
end.
本站特约顾问律师常州东晟律师事务所朱立律师(电话13915029670,QQ646146109)提醒您:
本站文章皆为作者原创,其它媒体(包括但不限于报刊、杂志、网站、电视、电台)未经作者书面许可严禁转载(或部分摘录)!
本站文章皆为作者原创,其它媒体(包括但不限于报刊、杂志、网站、电视、电台)未经作者书面许可严禁转载(或部分摘录)!
