Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 28.01.2013, 19:10   #1 (permalink)
Ekama
Banned
 
Регистрация: 20.11.2012
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Паскаль ABC Задача на подпрограммы

Доброго вам времени суток, необходима помощь в решении задачи на подпрограммы Pascal ABC:
Составить подпрограмму, которая проверяет заданный массив из N чисел, на упорядоченность по возрастанию(k=1 - если массив упорядочен, k=0 - иначе). С её помощью в основной программе обработать два массива и тот, который из них не упорядочен - обнулить(с помощью другой подпрограммы).
Ekama вне форума   Ответить с цитированием

Старый 28.01.2013, 19:10
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Ранее такую же проблему уже обсуждали тут

Паскаль, подпрограммы функций
Паскаль, подпрограммы функции

Старый 29.01.2013, 19:37   #2 (permalink)
interacia
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.
interacia вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 05:29.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.