2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 Помогите пожалуйста по Паскалю найти ошибку и исправить)))
Сообщение20.04.2013, 12:36 
Помогите найти ошибку
код: [ скачать ] [ спрятать ]
Используется синтаксис Pascal
  1. Program Olimp;
  2. Uses CRT;
  3. const N=10;
  4. var
  5. strana: array[1..N] of string [9]=('Австрия','Германия','Канада','Китай','Корея',
  6. 'Норвегия','Россия','США','Финляндия','Япония' array [1..MAX,1..MAX] of integer);
  7. n: integer;
  8. ok:boolean;
  9. i,j: integer;
  10. sum:integer;
  11. temp:integer;
  12. begin
  13. Write ('Введите размер матрицы (3..4),и Нажмите Enter');
  14. readln (n);
  15. Writeln ('Введите строки матрицы');
  16. Writeln('После ввода строки', n, 'целых чисел', 'нажимайте Enter');
  17. for i:=1 to n do begin
  18. write (' ');
  19. for j:=1 to n-1 do read (a[i,j]);
  20. readln (a[i,n]);
  21. end;
  22. ok:=TRUE;
  23. sum:=0;
  24. for i:-1 to n do sum:=sum+a[i,i];
  25. i:=1
  26. repeat
  27. temp:=0;
  28. for j:=1 to n do temp:=temp+a[i,j];
  29. i:=i+1;
  30. if temp <> sum then ok:=FALSE;
  31. unit1 (not ok) or (i>n);
  32. if ok then
  33. end;
  34. repeat
  35. temp:=0;
  36. for i:=1 to n do temp:=temp+a[1,j];
  37. if temp <> sum then ok:=FALSE;
  38. unit1 (not ok) or (j>n);
  39. if ok then
  40. begin
  41. temp:=0;
  42. j:=n;
  43. for i:=1 to n do
  44. begin
  45. temp:=temp+a[i,j];
  46. end;
  47. if temp<> sum then ok:=FALSE;
  48. end;
  49. end;
  50. write ('Введенная матрица');
  51. if not ok
  52. then write ('íå ');
  53. writeln ('является магическим квадратом.');
  54. readln;
  55. const N=10;
  56. strana: array[1..N] of string[9]=('Австрия', 'Германия', 'Канада', 'Китай', 'Корея' 'Норвегия', 'Россия', 'США', 'Финляндия', 'Япония' of integer;
  57. result:=array [1..N+1, 1..5] of integer;
  58. i,j:integer;
  59. max: integer;
  60. buf: string[9];
  61. begin
  62. writeln('итоги Олимпийских игр');
  63. writeln('Введите в одной строке количество золотых', ','серебряных и бронзовых.');
  64. for i:=1 to N do begin
  65. write (strana[i],' ');
  66. read (result[i,j], result[i,2]);
  67. readln (result[i,3]);
  68. end;
  69. for i:=1 to N do begin
  70. result[i,4]:=result[i,1]+result[1,2]+result[i,3];
  71. result[i,5]:=result[i,1]*7+result[1,2]*6+result[i,3]*5;
  72. end;
  73. for i:=1 to N-1 do begin
  74. max:=i;
  75. for j:=i+1 to N do
  76. if result[j,5]>result[max,5] then max:=j;
  77. buf:=strana[i];strana[i]:=strana[max];strana[max]:=buf;
  78. for j:=1 to 5 do begin
  79. result[N+1,j]:=result[i,j];
  80. end;
  81. for j:=1 to 5 do begin
  82. result[max,j]:=result[N+1,j];
  83. end;
  84. end;
  85. Writeln;
  86. Writeln('Итоги зимней Олимпиады в Нагано, 1998 г.');
  87. Writeln('Стана':12,'Золото':8,'Серебро':8,'Бронза':8,'Всего':8,'Количество очков':8);
  88. for j:=1 to N do begin
  89. write(i:2,strana[i]:10);
  90. for j:=1 to 5 do
  91. write(result[i,j]:8;
  92. writeln;
  93. end;
  94. readln;
  95. end.
  96.  

 
 
 
 Re: Помогите пожалуйста по Паскалю найти ошибку и исправить)))
Сообщение21.04.2013, 01:04 
Аватара пользователя
Alenka1711, если бы Вы с заключили свой код в тег [syntаx] (как это за Вас сделал я), то легко нашли бы ошибку сами.

 
 
 [ Сообщений: 2 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group