Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 27.05.2015
Сообщений: 15
1

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

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

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

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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.01.2018, 11:52
Ответы с готовыми решениями:

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

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

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

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

9
Эксперт Pascal/Delphi
6429 / 4346 / 4655
Регистрация: 05.06.2014
Сообщений: 21,257
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
6429 / 4346 / 4655
Регистрация: 05.06.2014
Сообщений: 21,257
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
6429 / 4346 / 4655
Регистрация: 05.06.2014
Сообщений: 21,257
30.01.2018, 12:38 6
Конечно. Неизвестно, решают ли программы поставленные перед ними задачи.
0
0 / 0 / 0
Регистрация: 27.05.2015
Сообщений: 15
30.01.2018, 12:39  [ТС] 7
Условия задачи нету. Прислали в таком виде.
0
Эксперт Pascal/Delphi
6429 / 4346 / 4655
Регистрация: 05.06.2014
Сообщений: 21,257
30.01.2018, 12:48 8
Ну тогда отправляйте так. Программы работают, что-то считают.
1
Модератор
62498 / 46688 / 32180
Регистрация: 18.05.2008
Сообщений: 112,951
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.01.2018, 12:59

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Исправить ошибки в коде
Uses GraphABC; var S: Array of String; Procedure Opisanie; begin S:='Среднего размера...

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.