Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
dencil
10 / 10 / 12
Регистрация: 23.09.2013
Сообщений: 145
#1

Исправить код! - Turbo Pascal

26.10.2013, 17:13. Просмотров 281. Ответов 1
Метки нет (Все метки)

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
uses crt;
var i,j,min,max :integer;
A:array [1..3,1..3] of integer;
begin
randomize;
for i:= 1 to 3 do
for j:=1 to 3 do
A[i,j]:=random(9);
for i:=1 to 3 do begin
for j:=1 to 3 do
write (A[i,j],' ');
writeln;
end;
min:=A[1,1];
for i:= 1 to 3 do
for j:=1 to 3 do
begin
if A[i,j]<min then
min:=A[i,j];
writeln(min);
end;
max:=A[1,1];
for i:= 1 to 3 do
for j:=1 to 3 do
begin
if A[i,j]>max then
max:=A[i,j];
writeln (max);
end;
writeln ('разность ',max-min);
readln
end.
Суть в том, что нам необходимо найти разницу между максимальным и минимальным элементом двумерного массива.
При этом нам нужно вывести на экран:
1)Сам массив.
2)Минимальный элемент.
3)Максимальный элемент.
4)Разность.
1 и 4 пункт выполняется, а с 2 и 3 беда.(Не нужно писать свой код, лучше исправить мой).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.10.2013, 17:13
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Исправить код! (Turbo Pascal):

Исправить код - Turbo Pascal
program P4; type school = record nm:integer; name: string; surname: string; god: integer; bukva:set of char= {Множество...

Исправить код - Turbo Pascal
задание: В целочисленном векторе vectorn переместить в начало все нулевые элементы, за ними – все отрицательные элементы в порядке их...

Нужно исправить код - Turbo Pascal
Нужно записать процедуру вывода массива, для исходного. Для конечного отсортированного уже есть. И объединить их в одну. Вот уже час бьюсь,...

Исправить код сортировки - Turbo Pascal
Помогите пожалуйста найти ошибку в теле программы! Вот задание - e) Створіть за допомогою генератора випадкових чисел масив дійсних...

Исправить программный код - Turbo Pascal
Program pr1; uses crt; var x,y,z:array of integer; n,i,j,k,m:integer; begin writeln ('n='); readln (n); writeln ('m='); ...

Исправить код программы - Turbo Pascal
uses crt; function c5(n:integer):boolean; var m,i:integer; f:boolean; begin m:=abs(n); f:=false; while(m&gt;0)and not f do ...

1
ildwine
Модератор
2914 / 1767 / 638
Регистрация: 04.03.2013
Сообщений: 4,372
Записей в блоге: 1
26.10.2013, 17:21 #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
uses crt;
var i,j,min,max :integer;
A:array [1..3,1..3] of integer;
begin
  randomize;
  for i:= 1 to 3 do
    for j:=1 to 3 do
      A[i,j]:=random(9);
  for i:=1 to 3 do begin
    for j:=1 to 3 do
      write (A[i,j],' ');
    writeln
  end;
  min:=A[1,1];
  max:=A[1,1];
  for i:= 1 to 3 do
    for j:=1 to 3 do
    begin
      if A[i,j]<min then min:=A[i,j];
      if A[i,j]>max then max:=A[i,j]
    end;
writeln('max =', max, ' min = ', min);
writeln ('разность ',max-min);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.10.2013, 17:21
Привет! Вот еще темы с ответами:

Исправить код вычисления выражения - Turbo Pascal
Добрый день спасайте завтро зачет а я упустил тему функции, вот сделал что смог, мне помогали, но тут нужно чтото подправить. если неохота...

Распаковка строки, исправить код - Turbo Pascal
Здравствуйте, решал на **** задачу &quot;распаковка строки&quot;, благополучно решил, на компьютере все работает, но на **** выдает &quot;Runtime Error&quot;....

Сортировка слиянием - исправить код - Turbo Pascal
Помогите, пожалуйста! Я уже очень много раз просила помощь, первые 10 сообщений читают, остальные забивают. мне сдавать программу через 2...

Исправить код работы с массивом - Turbo Pascal
помогите исправить ошибку в этой задаче: Program Pr7; Uses Crt; Var n,j,g,m,s,r:integer; A:Array of integer; Begin ...


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

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

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