Program exam(output,input);
Label 1,2,3,4,5,6,7,8;
Var
num1,num2,num3,num4,answer:real;
g,i,j:integer;
Procedure caculate(num1,num2:real;Var answer:real);
Begin
i:=1
Repeat
write（  '题目',i,':',''）;
i:=i+1; 
Begin
{第一部分确认年级部分}
write('小朋友请输入你所读的年级（1-6）：');
7:readln(g);
if (g>6)and(g<1)
Then
Begin
writeln('小朋友你输入的年级有误，请重新输入哦（1至6）：');
Goto 7
End;
if g=1 Then Goto 1;
if g=2 Then Goto 2;
if g=3 Then Goto 3;
if g=4 Then Goto 4;
if g=5 Then Goto 5;
if g=6 Then Goto 6;
{第二部分}
{一年级}
1:writeln('小朋友请注意看题并仔细做题哦！')；
writeln;
writeln;
{二年级}
{三年级}
{四年级}
{五年级}
{六年级}
编程小学生有必要学吗{第三部分}

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。