Ошибка "нельзя присвоить левой части" - Turbo Pascal
Формулировка задачи:
Даны два массива:строковый массив фамилий участников соревнований по плаванию и числовой массив результатов.Распечатать исходные массивы с указанием занятых мест.
Решение задачи: «Ошибка "нельзя присвоить левой части"»
textual
Листинг программы
uses crt; const n3=3;n5=5;n8=8; c1:array [1..8] of real=(10110,34926,46875,2145,2681,1608,536,536); c2:array [1..8] of real=(31224,12094,47036,2171,2699,1643,587,587); c3:array [1..8] of real=(42625,69,43390,2231,2759,1703,647,647); c4:array [1..8] of real=(42619,0,37864,2621,2924,2043,888,888); s=145374; var a:array[1..n3] of real; b:array[1..n5] of real; c,c10,c11,c12,c13:array[1..n8] of real; s5,s6,s7,s8,s9,s10,s11,s12,s13:real; i,j,k:integer; begin clrscr; {1} writeln('поток 1'); for i:=1 to 8 do begin writeln ('c[',i,']=',c1[i]:3:0);end; writeln(' Расход общий =',s:3); {2} writeln(' поток 2'); for i:=1 to 8 do begin writeln ('c[',i,']=',c2[i]:3:0);end; writeln(' Расход общий =',s:3);readkey; {3} writeln(' поток 3'); for i:=1 to 8 do begin writeln ('c[',i,']=',c3[i]:3:0);end; writeln(' Расход общий =',s:3); {4} writeln(' поток 4'); for i:=1 to 8 do begin writeln ('c[',i,']=',c4[i]:3:0);end; writeln(' Расход общий =',s:3);readkey; {5} writeln(' поток 5'); for i:=4 to 8 do begin writeln ('c[',i,']=',c1[i]:3:0);end; s5:=s-c1[1]-c1[2]-c1[3]; writeln(' Расход общий =',s5:3:0); {6} writeln(' поток 6'); s6:=c4[4]-c1[4]; writeln(' Расход общий =',s6:3:0); {7} writeln(' поток 7'); for i:=5 to 8 do begin c4[i]:=c4[i]-c1[i];end; c4[4]:=0;s7:=0; for i:=1 to 8 do begin s7:=s7+c4[i];end; for i:=1 to 8 do begin writeln ('c[',i,']=',c4[i]:3:0);end; writeln(' Расход общий =',s7:3:0); {8} writeln(' поток 8'); s8:=0; for i:=5 to 8 do begin s8:=s8+c4[i];end; for i:=5 to 8 do begin writeln ('c[',i,']=',c4[i]:3:0);end; writeln(' Расход общий =',s8:3:0); {9} writeln(' поток 9'); s9:=0; for i:=1 to 3 do begin s9:=s9+c4[i];end; for i:=1 to 3 do begin writeln ('c[',i,']=',c4[i]:3:0);end; writeln(' Расход общий =',s9:3:0); {10} writeln(' поток 10'); for i:=1 to 4 do begin c10[i]:=0;end; c10[5]:=c4[5];c10[6]:=0.8*c4[6]; c10[7]:=0.4*c4[7];c10[8]:=0.1*c4[8]; s10:=0; for i:=5 to 8 do begin s10:=s10+c10[i];end; for i:=5 to 8 do begin writeln ('c[',i,']=',c10[i]:3:0);end; writeln(' Расход общий =',s10:3:0); {11} writeln(' поток 11'); for i:=5 to 8 do begin c11[i]:=c4[i]-c10[i];end; s11:=0; for i:=5 to 8 do begin s11:=s11+c11[i];end; for i:=5 to 8 do begin writeln ('c[',i,']=',c11[i]:3:0);end; writeln(' Расход общий =',s11:3:0); {12} writeln(' поток 12'); for i:=5 to 8 do begin c12[i]:=2/3*c11[i];end; s12:=0; for i:=5 to 8 do begin s12:=s12+c12[i];end; for i:=5 to 8 do begin writeln ('c[',i,']=',c12[i]:3:0);end; writeln(' Расход общий =',s12:3:0); {13} writeln(' поток 13'); for i:=5 to 8 do begin c13[i]:=1/3*c11[i];end; s13:=s11-s12; for i:=5 to 8 do begin writeln ('c[',i,']=',c13[i]:3:0);end; writeln('Расход общий=',s13:3:0); readkey; end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д