Ошибка в паскале неверное количество параметров процедуры

Muffle

0 / 0 / 0

Регистрация: 06.04.2019

Сообщений: 18

Метки нет (Все метки)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

program Dashs;
uses 
  GraphABC, ABCObjects;
  const WidthMap=30;
  const HeightMap=20;
var
  x,y, Dashx, Dashy, key: integer;
  Dash: SquareABC;
  C: Color;
  f: text;
  map: array [1..WidthMap, 1..HeightMap] of integer;
  sizeBlock:=20;
  
procedure files(i,j: integer);  
begin
  Assign(f, 'C:UsersUserUjdyj');
  Reset(f);
  i := 0;
  while not Eof(f) do 
  begin
    j := 0;
    while not Eoln(f) do 
    begin
      Read(f, map[i, j]);
      Inc(j);
    end;
    ReadLn(f);
    Inc(i);
  end;
  Close(f);
end;
 
begin
  begin
    if key = VK_a then x := x - 10;
    if key = VK_d then x := x + 10;
    if key = VK_w then y := y - 50;
    if key = VK_s then y := y + 50;
    Dash.MoveTo(x,y);
  end;
  files;
end.

В строке files пишет «неверное количество параметров процедуры». Что делать? Заранее спасибо.

Sun Serega

2178 / 1307 / 497

Регистрация: 07.04.2017

Сообщений: 4,567

Ну а чему вы удивляетесь? Посмотрите на объявление этой процедуры и ещё раз на текст ошибки. Параметров в объявлении 2, а в вызове 0, то есть неправильное кол-во.

Добавлено через 1 минуту
Я так понимаю, вам надо было чтоб у процедуры внутри были свои локальные переменные. Тогда сделайте так:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

procedure files;
begin
  Assign(f, 'C:UsersUserUjdyj');
  Reset(f);
  var i := 0;
  while not Eof(f) do 
  begin
    var j := 0;
    while not Eoln(f) do 
    begin
      Read(f, map[i, j]);
      Inc(j);
    end;
    ReadLn(f);
    Inc(i);
  end;
  Close(f);
end;

0 / 0 / 0

Регистрация: 06.04.2019

Сообщений: 18

Sun Serega, Спасибо, работает

Добавлено через 15 минут
Sun Serega, Теперь он не может файл найти, хотя весь путь описан правильно

2178 / 1307 / 497

Регистрация: 07.04.2017

Сообщений: 4,567

Muffle

0 / 0 / 0

Регистрация: 06.04.2019

Сообщений: 18

Ошибка времени выполнения. Файл ‘C:UsersUserDesktopDashsUjdyj’ не найден

);

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

  Reset(f);
  var i := 0;
  while not Eof(f) do 
  begin
    var j := 0;
    while not Eoln(f) do 
    begin
      Read(f, map[i, j]);
      Inc(j);
    end;
    ReadLn(f);
    Inc(i);
  end;
  Close(f);
end;
 
procedure dashmove;
begin
Dashx := 50;
Dashy := 452;
Dash := SquareABC.Create(Dashx,Dashy,48,clred);
end;
 
begin
files;
dashmove;
  begin
    if key = VK_a then x := x - 10;
    if key = VK_d then x := x + 10;
    if key = VK_w then y := y - 50;
    if key = VK_s then y := y + 50;
    Dash.MoveTo(x,y);
  end;
end.

Миниатюры

2178 / 1307 / 497

Регистрация: 07.04.2017

Сообщений: 4,567

Зайдите в:
Панель управления>>(мелкие значки) Параметры проводника>>Вид

Прокрутите вниз, там увидите настройку:
Скрывать расширения для зарегестрированных типов файлов
Вот отрубите её нафиг.

Это защита от юзверов, программисту это только мешать может.
Как отключите — посмотрите ещё раз на файл который вы пытались открыть, сразу увидите что не так.

0 / 0 / 0

Регистрация: 06.04.2019

Сообщений: 18

Миниатюры

64288 / 47587 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

0 / 0 / 0

Регистрация: 06.04.2019

Сообщений: 18

Миниатюры

Puporev

64288 / 47587 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

2178 / 1307 / 497

Регистрация: 07.04.2017

Сообщений: 4,567

Ну, Puporev, вам уже подсказал, но я вам сразу сказал — посмотрите на файл который вы пытались прочитай из программы, после того как выключите ту фигню. Теперь вам в папке показывает что он на самом деле называется Ujdyj.txt а не Ujdyj

Muffle

0 / 0 / 0

Регистрация: 06.04.2019

Сообщений: 18

По моей идее он должен вместо 1 рисовать блок, а вместо 0 ничего не рисовать, ну либо синий блок. В итоге вместо 0 он рисует, а 1 он не видит. Что делать?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69

program Dashs;
uses 
  GraphABC, ABCObjects;
  const WidthMap=30;
  const HeightMap=20;
var
  x,y, Dashx, Dashy, speed: integer;
  Dash: SquareABC;
  Block: SquareABC;
  f: text;
  map: array [0..WidthMap-1, 0..HeightMap-1] of integer;
  
procedure files;  
begin
  Assign(f, 'C:UsersUserDesktopDashsUjdyj.txt');
  Reset(f);
  var i, j:integer;
  repeat
    repeat
      Readln(f, map[i, j]);
      Inc(j);
    until not Eoln(f);
    //ReadLn(f);
    Inc(i);
    until not Eof(f);
  //end;
  Close(f); 
begin
  for i:=0 to WidthMap-1 do
  for  j:=0 to HeightMap-1 do
  begin
    if map[i, j] = 0 then
    Block:=SquareABC.Create(0+20*i, 0+20*j, 20, clBlue);
    if map[i, j] = 1 then
    Block:=SquareABC.Create(0+20*i, 0+20*j, 20, clBrown);
  end;
end;
end;
 
procedure dashpos;
begin
Dashx := 20;
Dashy := 360;
Dash := SquareABC.Create(Dashx,Dashy,20,clred);
end;
 
procedure moveto (key: integer);
begin
  if key = VK_a then Dashx := Dashx - 20;
  if key = VK_d then Dashx := Dashx + 20;
  if key = VK_w then Dashy := Dashy - 50;
  if key = VK_s then Dashy := Dashy + 50;
  Dash.MoveTo(Dashx,Dashy);
end;
 
procedure Gravity; 
begin 
  
end;
 
begin
files;
dashpos;
 
Gravity;
OnKeyDown:=moveto;
 
 
end.

Миниатюры

2178 / 1307 / 497

Регистрация: 07.04.2017

Сообщений: 4,567

0 / 0 / 0

Регистрация: 06.04.2019

Сообщений: 18

Sun Serega

2178 / 1307 / 497

Регистрация: 07.04.2017

Сообщений: 4,567

Пздц конеш говнокод… Но вот так работает:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

procedure files;
begin
  Assign(f, 'Ujdyj.txt');
  Reset(f);
  var i, j: integer;
  repeat
    repeat
      map[j, i] := ReadInteger(f);
      Inc(j);
    until Eoln(f);
    j := 0;
    Inc(i);
  until Eof(f);
  Close(f);
  
  for i := 0 to WidthMap - 1 do
    for  j := 0 to HeightMap - 1 do
    case map[i, j] of
      0: Block := SquareABC.Create(0 + 20 * i, 0 + 20 * j, 20, clBlue);
      1: Block := SquareABC.Create(0 + 20 * i, 0 + 20 * j, 20, clBrown);
    end;
end;

0 / 0 / 0

Регистрация: 06.04.2019

Сообщений: 18

2178 / 1307 / 497

Регистрация: 07.04.2017

Сообщений: 4,567

0 / 0 / 0

Регистрация: 06.04.2019

Сообщений: 18

2178 / 1307 / 497

Регистрация: 07.04.2017

Сообщений: 4,567

WinForms может помочь избавится от некоторой кривоты (как то, что нельзя заранее заставить окно запустится в первоэкранном режиме, в GraphABC его можно менять только после запуска).

Но в том что вы выбрали SquareABC, который в таком кол-ве будет неистово лагать — это ваша проблема. Пока вы не пытаетесь разобраться какие типы где работают эффективнее — у вас будет лагать и работать криво любой код использующий любую графическую библиотеку.

А так, чтоб было 60фпс — нельзя использовать стандартные модули. Они только для баловство и годятся. Хотя с небольшим кол-во объектов — GraphWPF мог бы дать 60фпс. Но опять же, без умения оптимизировать программу вы их не выжмите.
Из более продвинутых вариантов — есть OpenGL и DirectX, но там без понимания что делаете — можно словить что то хуже лагов. Как утечки памяти.

0 / 0 / 0

Регистрация: 06.04.2019

Сообщений: 18

Задача: Напишите программу, которая выдает сообщение в текстовое окно.Координаты окна и координаты для сообщения вводиться с клавиатуры.Цвет экрана и цвет символов задайте с помощью датчика случайных чисел.

program okno;
uses Crt;
var
A, B, X, Y, K, L:integer;
begin
TextColor(A);
TextBackGround(B);
ClrScr;
Randomize;
A:=Random(16);
B:=Random(16);
writeln('Введите координаты окна');
readln(X, Y);
Window(X, Y);
writeln('Введите координаты сообщения');
GotoXY(K, L);
read(K, L);
writeln ('Задача решена');
end.

Пишу в программе Pascal ABC..В конце программы я уверен написано совсем не то,что нужно,там я совсем запутался…Подскажите пожалуйста!

Сообщение отредактировано: SpeedFire — 17.09.2011 13:22

Цитата

Пишу в программе Pascal ABC.Она ругается на процедуру window.(Ошибка: неверное количество фактических параметров)

Какая разница где? Процедура Window всегда принимает 4 параметра, а не 2 (разница — только в смысле параметров, скажем, в Турбо Паскале подразумеваются координаты X и Y левого верхнего и правого нижнего окна, а в PascalABC — координаты (X, Y) верхнего левого угла и ширина/высота).

Ну, а вообще — не самая хорошая идея писать программы для PascalABC, использующие модуль CRT… Тот компилятор, который был написан не для .NET, уже давно не поддерживается, последние версии компилятора написаны именно под .NET, и программу, написанную с использованием CRT просто не удастся отладить, потому что запустить ее в режиме отладки PascalABC не даст. Так что тут надо подумать, продолжать пользоваться PABC и мучаться со старым модулем (даже если программа успешно откомпилируется — я совсем не уверен, что она будет адекватно себя вести), или брать какой-то другой компилятор.

P.S. Не надо в самом начале делать

TextColor(A);
TextBackGround(B);
ClrScr;

, это приведет к тому, что и цвет фона и цвет выводимых символов будут черными (и A и B автоматически инициализируются нулем, а это именно черный цвет), и ты элементарно ничего не увидишь. Либо установи какие-то конкретные цвета, либо не меняй ничего вообще.

Сообщение отредактировано: IUnknown — 17.09.2011 13:32

program sdfl;
uses crt;
var
A, B, W, X, Y, Z, O, P : integer;
begin
Randomize;
A:=Random(16);
B:=Random(16);
write('Введите координаты окна:');
readln(W, X, Y, Z);
window(W, X, Y, Z);
write ('Введите координаты сообщения:');
readln(O,P);
GotoXY(O,P);
write('Задача решена!');
TextColor(A);
TextBackGround(B);
ClrScr;
end.

Вот написал все получилось, кроме конечного сообщения «задача решена!»,оно почему то не появляется.

Добавлено через 9 мин.
Получилось написать «задача решена»,поставил readln после строчки write(‘Задача решена’);
НО теперь цвета не работают

Сообщение отредактировано: SpeedFire — 17.09.2011 14:26

Делаешь так:

program sdfl;
uses crt;
var
A, B, W, X, Y, Z, O, P : integer;
begin
//Randomize;
//A:=Random(16);
//B:=Random(16);
write('Введите координаты окна:');
readln(W, X, Y, Z);
window(W, X, Y, Z);
write ('Введите координаты сообщения:');
readln(O,P);
GotoXY(O,P);
write('Задача решена!');
//TextColor(A);
//TextBackGround(B);
//ClrScr;
end.

, компилируешь, жмешь Shift+F9 (чтоб запустить), вводишь координаты, и внимательно читаешь ответ программы. А теперь еще раз прочитай, что я тебе написал выше, особенно во втором абзаце.

Так все-таки, PascalABC или FreePascal? С FPC проблем как раз нет, тут все будет работать как положено:

uses Crt;
var
   X1, X2, Y1, Y2,
   pX1, pY1 : Integer;
begin
   ClrScr;
   write ('Введите координаты окна:');
   ReadLn (X1, Y1, X2, Y2);
   write ('Введите координаты сообщения:');
   ReadLn (PX1, PY1);
   Window (X1, Y1, X2, Y2); // Создаем окно
   Randomize;
   TextColor (Random (15) + 1); // Не черный цвет текста
   TextBackGround (Random (7) + 1); // Не черный цвет фона
   ClrScr; // Очищаем ОКНО
   GotoXY (X1, Y1); // и внутри окна выводим сообщение
   write ('Задача решена!');
   readln;
   Window (1, 1, 80, 25); // Восстанавливаем нормальное окно
end.

P.S. Откуда у тебя там SVN взялся? Ты откуда FPC качал?

Сообщение отредактировано: IUnknown — 17.09.2011 15:34

После того как ты сказал что

Цитата

не самая хорошая идея писать программы для PascalABC, использующие модуль CRT…

скачал Free Pascal отсюда
что такое svn понятия не имею
За программу спасибо,теперь все понятно)