计算机流程图+pascal编程:历年来火灾死亡人数、受伤人数合计最多的年份。

来源:百度知道 编辑:UC知道 时间:2024/05/21 06:12:58
上海市 火 灾
年 份 次 数 死亡人数 受伤人数 损失折款
(万次) (人) (人) (万元)
1980 0.08 17 126 457
1981 0.09 33 81 202
1982 0.07 33 76 255
1983 0.06 24 67 533
1984 0.05 21 71 177
1985 0.05 30 74 374
1986 0.06 25 54 790
1987 0.06 51 56 575
1988 0.06 58 53 460
1989 0.03 30 30 394
1990 0.21 45 137 1 868
1991 0.17 38 112 937
1992 0.17 40 57 2 742
1993 0.14 73 128 2 252
1994 0.11 51 95 2 378
1995 0.11 47 86 2 100
1996 0.09 87 96 2 206
1997 0.74 51 138 2 639
1998 0.72 42 114 2 205
1999 0.66 43 90 1 487
2000 0.52 40 57 1 919
2001 0.32 31 65 966
2002 0.60 39 58 1 313
2003 0.58 47 85 1 724
2004 0.51 30 47 1 681
2005 0.43 54 84 1 731
2006 0.45 45 54 2 292

流程图详细的截图给偶……
pascal语言的编程步骤,即每一步的打法
流程图形式:

program huozai;

var year,die,shang,count,sun,mostyear:longint;

r:real;

begin

count:=0;

mostyear:=0;

while year<>0 do begin

read(year,r,die,shang,sun);

if die+shang>=count then begin

 count:=die+shang;

 mostyear:=year;

end;

end;

writeln(mostyear);

end.

图:https://gss0.baidu.com/7LsWdDW5_xN3otqbppnN2DJv/l%5Ftakuya/pic/item/5079d22a79579609d42af1d7.jpeg