0 / 0 / 0
Регистрация: 27.05.2015
Сообщений: 15
1

Исправить ошибки

30.01.2018, 11:52. Показов 1652. Ответов 9
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Добрый день. Помогите исправить ошибки в задачах.
Спасибо).

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program exp2;
const m=5; n=3;
type matr = array [ 1..m, 1..n ] of integer ;
var m: matr ; k, i, j : integer ; p: real ; повторно объявленный идентификатор
begin
clrscr ; неизвестный идентификатор
writeln ( ' k=' ) ; readln (k) ;
randomize ;
for i:= 1 to m do begin
for j:= 1 to n do begin
m [ i , j ] := random (101) ;
end ; end ;
for j:= 1 to n do begin
p:= 1;
for i:= 1 to m do begin
p:= p * m [i,j] ;
end ;
p := p ^ ( 1 / m ) ; нельзя делить
if p > k then writeln ( ' j = '; j: 5) ;неверное выражение
end ;
end.


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program exp3;
const m=5; n=3;
type matr = array [1..m,1..n] of integer;
var m: matr; b, i,j, k : integer; повторно объявленный идентификатор
begin
clrscr ;
randomize;
for i:= 1 to m do begin
for j:= 1 to n do begin
m [i,j] := random (101) ;
end ; end ;
k:= n/2 ; попытка присвоить integer тип real
for j:= 1 to k do begin
for i:= 1 to m do begin
b := m [ i, j ] ;
m [ i , j ] := m [ i, n - j + 1 ] ;
m [i, n - j +1 ] := b ;
end ; end ;
for i:= 1 to m do begin
for j:= 1 to n do begin
writeln ('m[i,j]: 5) ; неверное выражение
end ;
writeln ; readln ; end; end .
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program massiv2 ;
type mas=array [1..100] of integer ;
var a:= Max; i, n, min , max, b : integer; недопустимый символ:= (д/б просто : ; неизвесмтное имя типа max)
begin
writeln ('n='); readln (n) ;
for i:=1 to n do
begin
writeln ('a[',i,'=');переменная а не является именем массива
readln (a [i]); end;
max :=a[ 1 ]; min :=a[ 1 ]; переменная а не является именем массива
for i:=1 to n do begin
if a[ i ]> max then max :=a[ i ] ; переменная а не является именем массива
if a[ i ]<min then min :=a[ i ];
end;
b:=max - min ;
writeln (b) ; writeln;
end.
0
30.01.2018, 11:52
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
30.01.2018, 11:52
Ответы с готовыми решениями:

Исправить ошибки в коде
Program Lab_4; Var i: integer; j, k: char; Begin i:=0; Repeat Readln(k); Readln(j); if (j=k) then i:=i+1;

Исправить ошибки в коде
Что не так в программе? program zap52218; type dan=record fam:string; vozr:integer; pol:char; ...

Исправить ошибки в коде
Помогите пожалуйста! Программа Pascal ABS выдаёт ошибку в самом конце FORM(A1,N1,M1,B1,B1)(массив имеет другое количество размерностей) ...

9
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
30.01.2018, 12:20 2
Лучший ответ Сообщение было отмечено flame-93 как решение

Решение

Pascal
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 exp2;
 
uses crt;
 
const
  m = 5;
  n = 3;
 
type
  matr = array [1..m, 1..n] of integer ;
 
var
  mx: matr;
  k, i, j: integer;
  p: real ;//повторно объявленный идентификатор
 
begin
  clrscr; //неизвестный идентификатор
  writeln(' k=' );
  readln(k);
  randomize;
  for i := 1 to m do 
  begin
    for j := 1 to n do 
    begin
      mx[i, j ] := random(101);
      write(mx[i, j]:4);
    end; 
    writeln;
  end;
  for j := 1 to n do 
  begin
    p := 1;
    for i := 1 to m do 
    begin
      p := p * mx[i, j];
    end;
    p := p / m; //нельзя делить
    if p > k then 
      writeln(' j = ', j:5);//неверное выражение
  end;
end.
Добавлено через 2 минуты
Pascal
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
program exp3;
 
uses crt;
 
const
  m = 5;
  n = 3;
 
type
  matr = array [1..m, 1..n] of integer;
 
var
  mx: matr; 
  b, i, j, k: integer;//повторно объявленный идентификатор
 
begin
  clrscr;
  randomize;
  for i := 1 to m do 
  begin
    for j := 1 to n do 
    begin
      mx[i, j] := random(101);
    end; 
  end;
  k := n div 2; //попытка присвоить integer тип real
  for j := 1 to k do 
  begin
    for i := 1 to m do 
    begin
      b := mx[i, j ];
      mx[i, j ] := mx[i, n - j + 1 ];
      mx[i, n - j + 1 ] := b;
    end; 
  end;
  for i := 1 to m do 
  begin
    for j := 1 to n do 
    begin
      writeln(mx[i, j]:5); //неверное выражение
    end;
    writeln;
  end; 
  readln; 
end.
Добавлено через 2 минуты
Pascal
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
program massiv2 ;
 
type
  mas = array [1..100] of integer ;
 
var
  a: Mas;
  i, n, min, max, b: integer;//недопустимый символ:= (д/б просто : ; неизвесмтное имя типа max)
 
begin
  writeln('n=');
  readln(n);
  for i := 1 to n do
  begin
    writeln('a[', i, '] = ');//переменная а не является именем массива
    readln(a[i]); 
  end;
  max := a[1 ];
  min := a[1 ]; //переменная а не является именем массива
  for i := 1 to n do 
  begin
    if a[i ] > max then 
      max := a[i ]; //переменная а не является именем массива
    if a[i ] < min then 
      min := a[i ];
  end;
  b := max - min;
  writeln(b);
  writeln;
end.
Добавлено через 38 секунд
Если озвучить задания, то и остальные ошибки могут быть исправлены.
1
0 / 0 / 0
Регистрация: 27.05.2015
Сообщений: 15
30.01.2018, 12:31  [ТС] 3
Огромное спасиб)
0
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
30.01.2018, 12:32 4
flame-93, вы рано благодарите. Я исправил только синтаксические ошибки.
0
0 / 0 / 0
Регистрация: 27.05.2015
Сообщений: 15
30.01.2018, 12:34  [ТС] 5
Т.е. еще рано преподу отправлять?
0
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
30.01.2018, 12:38 6
Конечно. Неизвестно, решают ли программы поставленные перед ними задачи.
0
0 / 0 / 0
Регистрация: 27.05.2015
Сообщений: 15
30.01.2018, 12:39  [ТС] 7
Условия задачи нету. Прислали в таком виде.
0
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
30.01.2018, 12:48 8
Ну тогда отправляйте так. Программы работают, что-то считают.
1
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
30.01.2018, 12:58 9
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Если в первой задаче нужно найти среднее геометрическое в столбцах, большее k, то так.
Pascal
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
const m=5;
      n=3;
var a:array[1..m,1..n] of integer;
    i,j,k,f:integer;
    p:real;
begin
randomize;
writeln('Матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=1+random(100);
    write(a[i,j]:4);
   end;
  writeln;
 end;
write('Введите целое число k=');
readln(k);
writeln('Среднее геометрическое >',k,' в столбцах');
f:=0;
for j:= 1 to n do
 begin
  p:=1;
  for i:=1 to m do
  p:=p*a[i,j];
  p:=exp(ln(p)/ m );
  if p>k then
   begin
    writeln ('Столбец ',j,'=',p:0:2);
    f:=1;
   end;
 end ;
if f=0 then write('Таких средних геометрических нет')
end.
Добавлено через 2 минуты
Цитата Сообщение от flame-93 Посмотреть сообщение
Условия задачи нету. Прислали в таком виде.
Т.е. дали коды с ошибками и их нужно поправить?
0
0 / 0 / 0
Регистрация: 27.05.2015
Сообщений: 15
30.01.2018, 12:59  [ТС] 10
Да, только коды
0
30.01.2018, 12:59
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
30.01.2018, 12:59
Помогаю со студенческими работами здесь

Исправить ошибки в коде
program zz; var m:integer; s:integer; g:integer; f:integer; p:integer; begin g:=10; ...

Нужно исправить ошибки
помогите пожалуйста исправить ошибки type Graph = array of integer; var i,j,k,n,q: integer; w,z,a: graph; begin ...

Исправить ошибки в коде
Uses GraphABC; var S: Array of String; Procedure Opisanie; begin S:='Среднего размера колибри весом 4,0-4,5 г. Переливающийся...

Исправить ошибки в коде
program rita; const N=10; function SeqSearch(mas: DataArray; count:integer; x : DataItem):integer; var mas: array of...

Исправить ошибки в программе
Никак не могу гайти ошибку помогите пожалуйста!!! program kyrsova; uses crt; const n=25; type


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Отключение отслеживания файла, занесенного в .gitignore в Git
hw_wired 10.02.2025
Git помогает следить за изменениями в проекте, но иногда требуется исключить определенные файлы из системы контроля версий. Это могут быть конфигурационные файлы с локальными настройками, временные. . .
Что такое use strict в JavaScript
hw_wired 10.02.2025
Директива use strict - способ перевода JavaScript-кода в строгий режим работы, который делает язык более безопасным и предсказуемым. Она появилась в ECMAScript 5 как ответ на многочисленные проблемы,. . .
Как в jQuery проверить, что элемент скрыт
hw_wired 10.02.2025
jQuery предоставляет несколько эффективных способов определить, скрыт элемент или отображается на странице. Самый простой метод использует специальные селекторы :hidden и :visible. Селектор :hidden. . .
Как проверить (check out) ветку Git в удаленном репозитории
hw_wired 10.02.2025
Проверка удаленной ветки в Git требует понимания нескольких базовых концепций и точного выполнения определенной последовательности действий. Для начала необходимо получить актуальную информацию о. . .
chucknorris в HTML и другие обозначения цветов
hw_wired 10.02.2025
HTML, как основной язык разметки веб-страниц, прошел длинный путь развития в плане работы с цветами. На заре развития веб-технологий разработчики могли использовать только базовый набор из 16. . .
Стек и куча: отличия и назначение
hw_wired 10.02.2025
Управление памятью - ключевой элемент работы любой программы. В современных языках программирования память делится на две основные области: стек и кучу. Каждая из них обладает уникальными. . .
Комментарии в JSON
hw_wired 10.02.2025
JSON - текстовый формат обмена данными, построенный на основе синтаксиса JavaScript. Этот формат отличается простотой, читаемостью и широкой поддержкой во всех современных языках программирования. . . .
Перезаписываем локальные файлы с помощью git pull
hw_wired 10.02.2025
Git pull - незаменимая команда для синхронизации локального репозитория с удаленным. При работе над проектом в команде разработчиков часто возникает необходимость получить актуальные изменения,. . .
Оператор --> в C++
hw_wired 10.02.2025
Оператор --> (называемый "spaceship operator" или оператор космического корабля) - важное нововведение в стандарте C++20, упрощающее реализацию операций сравнения в пользовательских типах данных. . . .
Отмена git add до коммита
hw_wired 10.02.2025
Git предлагает несколько методов для отмены индексации файлов перед созданием коммита. Разработчики часто сталкиваются с ситуацией, когда нужно убрать файлы из индекса, не теряя внесенные изменения в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru