|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.11.2012, 21:19 | #1 |
Пользователь
Регистрация: 03.10.2012
Сообщений: 67
|
ошибка в процедуре
даны три вектора. найти максимальный парный элемент каждого вектора и упорядочить их по убыванию. Поиск максимального элемента вектора выполнить в виде процедуры
я делал для одного вектора,потом 2 добавлю) [PASCAL]program a10; uses crt; const n=20; type a1=array[1..n]of integer; procedure maxi (var ar: a1 ; k : integer; max:integer); begin max:=-1000; for k:=1 to 20 do if (ar[k] mod 2 = 0) and (ar[k]>max) then max:=ar[k]; end; var i,j,maxx:integer; m,l,k,max:integer; begin clrscr; writeln('vvedit rozmirnist masuvy : '); readln(m); for i:= 1 to m do begin for j:= 1 to m do begin a1[i]:=random(7)-14; write(a[i],' '); end; for i:=1 to n-1 do for j:=i+1 to m do if a[i]<a1[j] then begin l:=a[i]; a1[i]:=a1[j]; end; for i:=1 to m do for j:=1 to m do begin maxx:=maxi(max); writeln; end. [/PASCAL] Заранее спасибо) |
19.11.2012, 22:07 | #2 |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,309
|
И какой это Паскаль?
1. Смотри на этот код: Код:
Код:
Во втором случае - выполняется операция над типом. Вроде как надо, например, var mas : a1; и затем: Код:
Код:
Параметры k и max - значения. Т.е. это уже вычисленные величины. Т.о. что значит код? Код:
Код:
Код:
И ...
Как-то так, ...
|
19.11.2012, 22:24 | #3 |
Пользователь
Регистрация: 03.10.2012
Сообщений: 67
|
спасибо, исправил, но все равно считает неправильно, помогите плис)!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ошибка в процедуре C++ | Karina89 | Помощь студентам | 4 | 24.11.2011 18:25 |
Ошибка в процедуре | Yalovick | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 13.05.2011 20:38 |
Ошибка в процедуре | H_U_M_M_E_R | Помощь студентам | 2 | 02.06.2010 18:51 |
Ошибка в процедуре | GAGARIN-NEW | Помощь студентам | 2 | 21.12.2007 09:23 |