28.01.2013, 19:10 | #1 (permalink) |
Banned
Регистрация: 20.11.2012
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль ABC Задача на подпрограммы
Составить подпрограмму, которая проверяет заданный массив из N чисел, на упорядоченность по возрастанию(k=1 - если массив упорядочен, k=0 - иначе). С её помощью в основной программе обработать два массива и тот, который из них не упорядочен - обнулить(с помощью другой подпрограммы). |
28.01.2013, 19:10 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ранее такую же проблему уже обсуждали тут Паскаль, подпрограммы функций Паскаль, подпрограммы функции |
29.01.2013, 19:37 | #2 (permalink) |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
ответ
program tehnarit84478;
var K:integer; i:integer; N1,N2:integer; a: array [1..10] of integer; c: array [1..10] of integer; Procedure Upor( N:integer; b: array [1..10] of integer; var k:integer); var i:integer; begin k:=1; for i:=2 to N do begin if b[i-1]>b[i] then k:=0; end; end; Procedure Noli( N:integer; var b: array [1..10] of integer); var i:integer; begin for i:=1 to N do begin b[i]:=0; end; end; begin writeln('Введите N (N<=10)'); readln(N1); for i:=1 to N1 do begin write('a[',i,']=');readln(A[i]);end; writeln('Введите N (N<=10)'); readln(N2); for i:=1 to N2 do begin write('c[',i,']=');readln(c[i]);end; Upor(N1,a,k); if k=0 then Noli(N1,a); Upor(N2,c,k); if k=0 then Noli(N2,c); writeln; write('a[] '); for i:=1 to N1 do write(a[i],' '); writeln; write('c[] '); for i:=1 to N2 do write(c[i],' '); end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|