|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.12.2011, 16:31 | #1 |
Пользователь
Регистрация: 15.12.2011
Сообщений: 13
|
подкорректировать программу
поменять местами второй и минимальный элемент массива
program ex1; const n=10; type myarray=array [1..n] of integer; var a:myarray; procedure init1(var m:myarray); var i:integer; BEGIN for i:=1 to n do m[i]:=random(100)-50; end; procedure print(m:myarray); var i:integer; begin for i:=1 to n do write(m[i]:3); writeln; end; Function Minimym(m: myarray): Integer; Var i, min, mini : Integer; Begin min:=-32768; For i:=1 To n Do if (m[i]>min) then Begin min:=m[i]; mini:=i; End; minimym:=mini; end; procedure swap(var l1,l2:integer; x:myarray); var t:integer; begin t:=x[l1]; x[l1]:=x[l2]; x[l2]:=t; end; begin init1(a); print(a); swap(a,x); writeln('otvet'); readln; end. |
23.12.2011, 17:30 | #2 |
Новичок
Джуниор
Регистрация: 23.12.2011
Сообщений: 9
|
не компилируется или неправильно работает? в чём проблема?
|
23.12.2011, 18:13 | #3 |
Пользователь
Регистрация: 15.12.2011
Сообщений: 13
|
не компилируется. ошибку выдает. в основной программе swap подчеркивает.
|
23.12.2011, 18:39 | #4 |
Новичок
Джуниор
Регистрация: 23.12.2011
Сообщений: 9
|
1) x не объявлена
2) у процедуры swap три параметра Последний раз редактировалось Артём-Программиzd; 23.12.2011 в 18:49. |
23.12.2011, 18:47 | #5 |
Пользователь
Регистрация: 15.12.2011
Сообщений: 13
|
переделай пожалуйста)))
|
23.12.2011, 19:24 | #6 |
Новичок
Джуниор
Регистрация: 23.12.2011
Сообщений: 9
|
вот так:
Код:
|
23.12.2011, 22:29 | #7 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Код:
|
24.12.2011, 04:16 | #8 |
Пользователь
Регистрация: 15.12.2011
Сообщений: 13
|
спасибо)))) только я не понял почему программист должен быть ленивым????
|
24.12.2011, 09:59 | #9 |
Пользователь
Регистрация: 15.12.2011
Сообщений: 13
|
вот павильная))
program ex1; const n=10; type myarray=array [1..n] of integer; var a:myarray; procedure init1(var m:myarray); var i:integer; BEGIN for i:=1 to n do m[i]:=random(100)-50; end; procedure print(m:myarray); var i:integer; begin for i:=1 to n do write(m[i]:3); writeln; end; Function Minimym(m: myarray): Integer; Var i, mini: Integer; Begin mini:=1; For i:=1 To n Do if (m[i]>m[mini]) then mini:=i; minimym:=mini; End; procedure swap(l1,l2:integer; var x:myarray); var t:integer; begin t:=x[l1]; x[l1]:=x[l2]; x[l2]:=t; end; begin init1(a); print(a); swap(2,Minimym(a),a); writeln('otvet'); print(a); readln; end. |
24.12.2011, 15:54 | #10 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Файли. Подкорректировать | Anna1993 | Общие вопросы C/C++ | 4 | 24.05.2011 10:50 |
Необходимо подкорректировать программу на ассемблере!!! | Иван1223 | Помощь студентам | 0 | 12.04.2011 19:59 |
нужно подкорректировать! | Dilmur | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 10.06.2010 21:24 |
Подкорректировать программу | wrmarw | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 04.05.2010 14:06 |
Можно ли подкорректировать программу, имея только ехе-шник? | dmitriy777 | Помощь студентам | 5 | 22.02.2010 11:52 |