一级棒(Eachfun)
一级棒 - 教学经纬 - 奥赛辅导 - 二十七课:记录
RSS订阅
二十七课:记录
发表时间:2002-12-05 00:00:00 关键词:奥赛,PASCAL,编程,源码

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)提醒您:
本站文章皆为作者原创,其它媒体(包括但不限于报刊、杂志、网站、电视、电台)未经作者书面许可严禁转载(或部分摘录)!
发表评论
称呼:
QQ:
邮箱:
链接:
内容:
搜索: 百度搜索 Google搜索
Copyright©2000 - 2008 Eachfun.Com, All Rights Reserved 一级棒网络
苏ICP备05080156号
一级棒建站系统 http://www.eachfun.com 一级棒版权所有,未经许可不得商用!