Question

НАЙДИТЕ ОШИБКУ!!!!!! Program nissannn; Uses crt,GraphABC; Const w=800; h=600; x0=50; y0=500; k=8; t:array [1..k] of integer = (0,0,1,2,67,62,27,14); c:array [1..k] of colortype= (ClRed,ClBlue,ClGreen,ClPink,ClPurple,ClNavy,ClAqua,ClYellow); planet: array [1..k] of string = ('Меркурий','Венера','Земля','Марс','Юпитер','Сатурн','Уран','Нептун'); var x1,y1,x2,y2: integer; kx,ky: integer; i,x,y,max: integer; Begin SetWindowSize(w,h); SetFoneSize(18); SetFoneStyle (fsBold); TextOut (180,20,'Количество спутиков планет Солнечной системы'); SetFoneSize(12); SetFoneStyle (fsNormal); max:=t[1]; For i:=2 to k do begin if t[i]>max then max:=t[i]; end; ky:=trunc(y0/(max+1)); kx:=trunc((WindowWidht-x0)-k); Line (0,y0,w,y0); Line (x0,0,x0,h); TextOut(w div 1 - 8,y0+8,'Планеты'); TextOut (x0 +10,20,'Количество спутников'); i:=x0; x:=1; While x<=k do begin Line (i,y0-8,i,y0+8); i:=i+kx; TextOut (trunc(i-(kx div 1)),y0+10, planet [x]); x:=x+1; end; i:=y0; x:=0; While x<=max do begin Line (x0-8,i,x0+8,i); TextOut (x0-25,i, IntTostr (x)); i:=i-ky; x:=x+1; end; x1:=x0; y1:=y0; x:=1; While x<=k do begin y:=t [x]; x2:= x1+kx; y2:= trunc (y1-ky*y); SetBrushColor (c[x]); Rectangle (x1,y1,x2,y2); x1:=x2; x:=x+1; end; SaveWindow ('Diagramm1.bmp'); end.

Answer 1

Ответ:

их вроде нет я так думаю

Answer 2

Программа содержит несколько ошибок:

1. Ошибки синтаксиса:

   • Ошибка в строке: SetFoneSize(18); и SetFoneStyle(fsBold);. Правильное написание: SetFontSize(18); и SetFontStyle(fsBold);.
   • Ошибка в строке: TextOut(w div 1 - 8,y0+8,'Планеты');. Правильное написание: TextOut(w div 2 - 8,y0+8,'Планеты');.
   • Ошибка в строке: SetFoneSize(12); и SetFoneStyle(fsNormal);. Правильное написание: SetFontSize(12); и SetFontStyle(fsNormal);.
   • Ошибка в строке: Line (i,y0-8,i,y0+8);. Правильное написание: Line (i,y0-8,i,y0+8);.

2. Неправильное использование символа '>' и '<': Замените > на > и < на <.

3. Опечатки:

   • В строке: kx:=trunc((WindowWidht-x0)-k); опечатка в WindowWidth. Правильное написание: kx:=trunc((WindowWidth-x0)-k);.
   • В строке: SaveWindow ('Diagramm1.bmp'); опечатка в SaveWindow. Правильное написание: SaveWindow('Diagramm1.bmp');.

Вот исправленная версия программы:

pascalCopy code
Program nissannn;
Uses crt,GraphABC;

Const
  w = 800;
  h = 600;
  x0 = 50;
  y0 = 500;
  k = 8;

Var
  t: array [1..k] of integer = (0,0,1,2,67,62,27,14);
  c: array [1..k] of colortype = (ClRed, ClBlue, ClGreen, ClPink, ClPurple, ClNavy, ClAqua, ClYellow);
  planet: array [1..k] of string = ('Меркурий', 'Венера', 'Земля', 'Марс', 'Юпитер', 'Сатурн', 'Уран', 'Нептун');
  x1, y1, x2, y2: integer;
  kx, ky: integer;
  i, x, y, max: integer;

Begin
  SetWindowSize(w, h);
  SetFontSize(18);
  SetFontStyle(fsBold);
  TextOut(w div 2 - 8, y0 + 8, 'Количество спутников планет Солнечной системы');
  SetFontSize(12);
  SetFontStyle(fsNormal);
  
  max := t[1];
  For i := 2 to k do
  begin
    if t[i] > max then
      max := t[i];
  end;
  
  ky := trunc(y0 / (max + 1));
  kx := trunc((WindowWidth - x0) / k);
  
  Line(0, y0, w, y0);
  Line(x0, 0, x0, h);
  
  TextOut(w div 2 - 8, y0 + 8, 'Планеты');
  TextOut(x0 + 10, 20, 'Количество спутников');
  
  i := x0;
  x := 1;
  While x <= k do
  begin
    Line(i, y0 - 8, i, y0 + 8);
    i := i + kx;
    TextOut(trunc(i - (kx / 2)), y0 + 10, planet[x]);
    x := x + 1;
  end;
  
  i := y0;
  x := 0;
  While x <= max do
  begin
    Line(x0 - 8, i, x0 + 8, i);
    TextOut(x0 - 25, i, IntToStr(x));
    i := i - ky;
    x := x + 1;
  end;
  
  x1 := x0;
  y1 := y0;
  x := 1;
  
  While x <= k do
  begin
    y := t[x];
    x2 := x1 + kx;
    y2 := trunc(y1 - ky * y);
    SetBrushColor(c[x]);
    Rectangle(x1, y1, x2, y2);
    x1 := x2;
    x := x + 1;
  end;
  
  SaveWindow('Diagramm1.bmp');
End.

Обратите внимание, что я поправил опечатки и ошибки в коде, которые были обнаружены.