Question

Пишет "Неизвестное имя 'cls' ". ПОЧЕМУ? Работа выполняется в паскале program pr0611; var a: array [1..300] of integer; i,k,m: integer; begin cls; randomize; for i:=1 to 300 do a[i]:= 10+random(90); writeln; for i:=1 to 300 do write (a[i], ' '); writeln; writeln ('введите число'); readln (k); for i:=1 to 300 do if a[1]=k then m:=m+1; writeln(' число ', k , ' встретилось ' , m, ' раз '); end.

Answer 1

Так должно работать:

program pr0611;

uses crt;

var a: array [1..300] of integer;

i,k,m: integer;

begin

ClrScr;

randomize;

m:=0;

for i:=1 to 300 do

a[i]:= 10+random(90);

writeln;

for i:=1 to 300 do

write (a[i], ' ');

writeln;

writeln ('введите число');

readln (k);

for i:=1 to 300 do

if a[1]=k then m:=m+1;

writeln(' число ', k , ' встретилось ' , m, ' раз ');

end.

Answer 2

Ошибка "Неизвестное имя 'cls'" возникает потому, что в Pascal отсутствует встроенная функция cls, которая используется в коде, чтобы очистить экран консоли. Эта функция, скорее всего, является частью другого языка программирования, например, Turbo Pascal или Free Pascal, где cls используется для очистки экрана.

Если вы пишете программу на Pascal, вам необходимо использовать альтернативный способ очистки экрана. В зависимости от вашей платформы или среды разработки, вы можете использовать системные вызовы или специфичные функции для очистки экрана консоли. Например, в Turbo Pascal можно использовать процедуру clrscr из модуля crt для очистки экрана.

Вот пример исправленного кода с использованием процедуры clrscr:

pascalCopy code
program pr0611;

uses
  crt;

var
  a: array [1..300] of integer;
  i, k, m: integer;

begin
  clrscr;  // Очищаем экран

  randomize;
  for i := 1 to 300 do
    a[i] := 10 + random(90);

  writeln;
  for i := 1 to 300 do
    write(a[i], ' ');

  writeln;
  writeln('Введите число');
  readln(k);

  m := 0; // Обнуляем счетчик

  for i := 1 to 300 do
    if a[i] = k then
      m := m + 1;

  writeln('Число ', k, ' встретилось ', m, ' раз');
end.

Обратите внимание, что код также был исправлен для правильной инициализации переменной m в начале программы (установлено значение 0).