用pascal语言编程,

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/11/06 09:31:24

用pascal语言编程,
某班有55名同学,已知学号,为了知道有谁作业没交,请用pascal语言编个程.

满意请给分,谢!
program ex;
type
student=record//定义学生记录
stuID:integer;//学号
homework:boolean; //判断是否交作业
end;
var stu:array[1..55] of student;
i,j:integer;
begin
randomize;//随机初始化
for i:=1 to 55 do
begin
stu[i].stuID:=i;//简单地,以下标作为学号
j:=random(2);//随机j的值
if j=1 then
stu[i].homework:=true
else
stu[i].homework:=false;
end;
for i:=1 to 55 do//判断谁没有交作业
if stu[i].homework=false then writeln('nohomework:',stu[i].stuID);
end.

用pascal语言编程, 用pascal语言编程(两道题) 用pascal语言编程：输出n(n pascal语言编程题 Free Pascal语言编程 Pascal语言编程告诉进编程（用 PASCAL) 用 pascal 编程 pascal语言编程有几个题帮忙两道编程题目（Pascal语言）关于Pascal语言的编程问题要求完整的把一元分成1分、2分、5分,有多少种方案?用Pascal语言编程.