Задача на одномерные массивы с использованием процедур

@Alt+F4 · Регистрация: 05.04.2009

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста с решением задачи:

Заданы 2 любых одномерных массива V и F. Для каждого массива вычислить:

- сумму максимального и минимального элементов
- количество положительных элементов

Использовать процедуры.

@c00le® · 24.04.2009, 20:31

Pascal

Program tt;
uses crt;
 
const n=10;
 
type mass=array [1..10] of integer;
tass=array [1..10] of integer;
 
var
v, f:mass;
x, i, y, max, min, summ,k, max1,min1,k1:integer;
 
begin
clrscr;
randomize;
writeln('Massiv V: ');
for i:= 1 to n do
begin
v[i]:=random(25)-2;
write(v[i]:4);
end;
begin
writeln;
writeln('Massv F: ');
for i:= 1 to n do
begin
f[i]:=random(25)-2;
write(f[i]:4);
end;writeln; end;
 
begin
max:=v[1];
min:=v[1];
for i:= 2 to n do
if (v[i]>max) then
max:=v[i];
for i:= 2 to n do
if (v[i]<min) and (v[i]>0) then
min:=v[i];
for i:=1 to n do
if (v[i]>0) then
k:=k+1;
writeln('Dlya V: Sum= ',max+min,' Kol-vo= ', k);
 
max1:=f[1];
min1:=f[1];
for i:= 2 to n do
if f[i]>max1 then
max1:=f[i];
for i:= 2 to n do
if (f[i]<min1) and (f[i]>0) then
min1:=f[i];
for i:=1 to n do
if f[i]>0 then
k1:=k1+1;
writeln;
writeln('Dlya F: Sum= ',max1+min1,' Kol-vo= ', k1);
readkey;  end;
end.

Добавлено через 11 минут 36 секунд
Удали только вот это в 7 строке:

Pascal

1	tass=array [1..10] of integer;

и y в VAR

@Alt+F4 · 24.04.2009, 23:31 **[ТС]**

Спасибо огромное

Добавлено через 2 часа 56 минут 36 секунд
А чо то я поторипился. Здесь вроде как без процедур. Или я чо то не догоняю? Можно как-нибудь решить с помощью процедур ?

@ShutDown · 24.04.2009, 23:48

Чувак ты чо просто используй это алгоритм ! замени переменные и укажи процедуры и все!

@Alt+F4 · 25.04.2009, 00:00 **[ТС]**

В том то и дело, у меня проблема, что я плохо понимаю как использовать процедуры.

@c00le® · 25.04.2009, 01:23

Pascal

Program tt;
uses crt;
 
const n=10;
 
type mass=array [1..10] of integer;
 
var
v, f:mass;
x, i, max, min, summ,k, max1,min1,k1:integer;
 
procedure vivod;
begin
    clrscr;
    randomize;
writeln('Massiv V: ');
    for i:= 1 to n do
begin
    v[i]:=random(25)-2;
    write(v[i]:4);
end;
begin
    writeln;
    writeln('Massv F: ');
  for i:= 1 to n do
begin
       f[i]:=random(25)-2;
     write(f[i]:4);
end;writeln; end; end;
 
procedure vv;
begin
max:=v[1];
min:=v[1];
     for i:= 2 to n do
          if (v[i]>max) then
              max:=v[i];
     for i:= 2 to n do
          if (v[i]<min) and (v[i]>0) then
     min:=v[i];
            for i:=1 to n do
            if (v[i]>0) then
     k:=k+1;
   writeln('Dlya V: Max= ',max+min,' Kol-vo= ', k);
end;
 
procedure ff;
begin
max1:=f[1];
min1:=f[1];
      for i:= 2 to n do
           if f[i]>max1 then
           max1:=f[i];
      for i:= 2 to n do
           if (f[i]<min1) and (f[i]>0) then
           min1:=f[i];
      for i:=1 to n do
          if f[i]>0 then
      k1:=k1+1;
      writeln;
    writeln('Dlya F: Max= ',max1+min1,' Kol-vo= ', k1);
end;
 
begin
   vivod;
   vv;
   ff;
end.

@tyz · 25.04.2009, 01:38

Процедура-это независимая часть программы, которую можно вызвать по имени для выполнения определенных действий. Процедура не может входить как операнд в выражение. Различают стандартные процедуры пользователя.
Кароче,))) процедуры в разных версиях Паскаля одинаковы, и это давольно легкая вещь))) прописываем procedure name;, затем если необходимо описываем переменные (var a,b,c:integer); --> BEGIN выполняемые действия END. После написания одной или более процедур прописываем BEGIN name; END.
Удачи!!!

@Alt+F4 · 25.04.2009, 01:53 **[ТС]**

Спасибо большое всем. Теперь всё понял

@Alt+F4 0 / 0 / 0 Регистрация: 05.04.2009 Сообщений: 16
		1
	Задача на одномерные массивы с использованием процедур 24.04.2009, 18:12. Показов 1026. Ответов 7 Метки нет (Все метки) Помогите пожалуйста с решением задачи: Заданы 2 любых одномерных массива V и F. Для каждого массива вычислить: - сумму максимального и минимального элементов - количество положительных элементов Использовать процедуры. 0

@Alt+F4 0 / 0 / 0 Регистрация: 05.04.2009 Сообщений: 16
	24.04.2009, 23:31 [ТС]	3
	Спасибо огромное Добавлено через 2 часа 56 минут 36 секунд А чо то я поторипился. Здесь вроде как без процедур. Или я чо то не догоняю? Можно как-нибудь решить с помощью процедур ? 0

@ShutDown 13 / 13 / 2 Регистрация: 07.04.2009 Сообщений: 22
	24.04.2009, 23:48	4
	Чувак ты чо просто используй это алгоритм ! замени переменные и укажи процедуры и все! 0

@Alt+F4 0 / 0 / 0 Регистрация: 05.04.2009 Сообщений: 16
	25.04.2009, 00:00 [ТС]	5
	В том то и дело, у меня проблема, что я плохо понимаю как использовать процедуры. 0

@tyz 356 / 315 / 48 Регистрация: 21.04.2009 Сообщений: 574
	25.04.2009, 01:38	7
	Процедура-это независимая часть программы, которую можно вызвать по имени для выполнения определенных действий. Процедура не может входить как операнд в выражение. Различают стандартные процедуры пользователя. Кароче,))) процедуры в разных версиях Паскаля одинаковы, и это давольно легкая вещь))) прописываем procedure name;, затем если необходимо описываем переменные (var a,b,c:integer); --> BEGIN выполняемые действия END. После написания одной или более процедур прописываем BEGIN name; END. Удачи!!! 0

@Alt+F4 0 / 0 / 0 Регистрация: 05.04.2009 Сообщений: 16
	25.04.2009, 01:53 [ТС]	8
	Спасибо большое всем. Теперь всё понял 0

Опции темы