Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.09.2009, 19:42   #1
Denis41
Новичок
Джуниор
 
Регистрация: 14.09.2009
Сообщений: 1
По умолчанию Массивы. Паскаль.

1. Составьте процедуру, которая в заданном массиве будет менять порядок расположения элементов в обратный. В основной программе предусмотрите вызов подпрограммы.

2. Составьте функцию, которая будет возвращать в качестве своего результата номер первого локального минимума массива. В основной программе предусмотрите вызов подпрограммы.

Помогите кто может. Мозги сломал уже
Denis41 вне форума Ответить с цитированием
Старый 14.09.2009, 20:15   #2
ОДИНОЧЕСТВО В СЕТИ
Любопытная Вредина
Участник клуба
 
Аватар для ОДИНОЧЕСТВО В СЕТИ
 
Регистрация: 19.06.2009
Сообщений: 1,285
По умолчанию

1
Код:
program perevorot1;
uses crt;
type vector = array [1..100] of integer;
procedure perevorot(var a:vector;n:integer);
var i:integer;
    b:vector;
begin
for i:=1 to n do
  b[n-i+1]:=a[i];
for i:=1 to n do
  a[i]:=b[i];
end;
var c:vector;
    k:integer;
    j:integer;
begin
 writeln('input n');
 readln(k);
 clrscr;
 writeln('vector');
 for j:= 1 to k do begin
 c[j]:=random(50);
 write(c[j]:8);
 end;
 perevorot(c,k);
 writeln;
 writeln('vector 2');
 for j:= 1 to k do
 write(c[j]:8);
 readln;
 end.
2
Код:
program local_minimum;
uses crt;
type vector = array [1..100] of integer;
function locMin(var a:vector;n:integer):integer;
var i:integer;
begin
for i:=2 to n do begin
  locmin:=-1;
  if (a[i]<a[i+1]) and (a[i]<a[i-1]) then
    begin
	  locmin:=i;
      break;
	end;
end;
end;
var b:vector;
    k,c:integer;
    j:integer;
begin
 writeln('input n');
 readln(k);
 clrscr;
 writeln('vector');
 for j:= 1 to k do begin
 b[j]:=random(50);
 write(b[j]:8);
 end;
 writeln;
 c:=locmin(b,k);
 if c=-1 then writeln(' no local minimum')
 else writeln('number local minimum= ',c:6);
 readln;
 end.
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.

Последний раз редактировалось ОДИНОЧЕСТВО В СЕТИ; 14.09.2009 в 20:50.
ОДИНОЧЕСТВО В СЕТИ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль. массивы }{oTT@БЬ)Ч™ Помощь студентам 9 07.12.2015 20:00
Паскаль. Массивы cucumber Помощь студентам 4 10.04.2009 16:42
массивы. паскаль cold-hands Помощь студентам 4 05.04.2009 21:39
Паскаль. Массивы deceiver Помощь студентам 3 08.03.2009 15:12
массивы Паскаль Натуськ@25 Помощь студентам 1 13.02.2009 19:33