VPF::процедура - Форум программистов

Анютка

Дата 10.1.2006, 20:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 22.11.2005
Где: Моск.область

Репутация: нет
Всего: нет

Поменять местами миним.элементы двух массивов размером 6.
Поиск мин.элемента массива оформить в виде процедуры.
пожлста,помогите!!! smile

Pascal 7.1(english version) smile

Mephistopheles

Дата 10.1.2006, 20:48 (ссылка)

(нет голосов)

Загрузка ...

Бегущий от света

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 15.11.2005
Где: Где нет света

Репутация: нет
Всего: 6

Синтаксис Pascal'я знаешь?

--------------------

Ангелы и бесы кружат надо мной.Ангел или бес - делай выбор свой.Вспыхнуть огнём; вознестись до небесДелай выбор свой: ангел или бес?© Mephistopheles, бегущий от света.

Dray

Дата 11.1.2006, 18:43 (ссылка)

(нет голосов)

Загрузка ...

Материалист

Профиль
Группа: Участник
Сообщений: 652
Регистрация: 7.10.2003
Где: г. Всеволожск

Репутация: нет
Всего: 6

С процедурой?
smile

Если тока так:

Код


program hren;
uses crt;
const n=6;
procedure FindMin (var mas: array of integer;
 var mini:integer; size: integer);
var i, min:integer;
begin
     mini:=1;
     min:=mas[0];
     for i:=0 to size-1 do
     begin
          if mas[i] < min then
          begin
             min:=mas[i];
             mini:=i+1;
          end;
     end;
end;
var mas1: array[1..n] of integer;
    mas2: array[1..n] of integer;
    mini1, mini2, i, buf:integer;
begin
     clrscr;
     randomize;
     for i:=1 to n do
     begin
          mas1[i]:=random(9);
          write(mas1[i]:2);
     end;
     writeln;
     for i:=1 to n do
     begin
          mas2[i]:=random(9);
          write(mas2[i]:2);
     end;
     writeln;
     FindMin (mas1, mini1, n);
     FindMin (mas2, mini2, n);
     buf:=mas1[mini1];
     mas1[mini1]:=mas2[mini2];
     mas2[mini2]:=buf;
     writeln;
     for i:=1 to n do
         write(mas1[i]:2);
     writeln;
     for i:=1 to n do
         write(mas2[i]:2);
     readkey;
end.

--------------------

忍者

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »