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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.12.2012, 01:45   #1
3Doleg
Пользователь
 
Регистрация: 03.10.2012
Сообщений: 67
Смех

запутался в процедурах!)

Написать программу 4 способами:
1 - через функцию (написал, закидывать не нужно)
2 - через процедуру с параметром
3 - через процедуру без параметра
4 -?
п.с. : Файлы мы не учили, так что это должен быть простой 4 способ именно процедуру (не функцию)
Возможно с формальным параметром, но я не умею(


2
Код:
const n=20;
type a1=array[1..n]of integer;
 
procedure init(var a: a1);
var i: byte;
begin
  for i:=1 to n do
    a[i]:=random(199)-99;
end;
 
procedure outPut(var a: a1);
var i: byte;
begin
  for i:=1 to n do
    write(a[i]:4);
  writeln;
end;
 
 
procedure maxi(var a: a1);
var i,m: byte;
begin
  m:=1;
  for i:=2 to n do
    if (a[i] mod 2=0)and(a[i]>a[m]) then 
    m:=i;
      writeln('Maksumalnui element =',a[m],' na ',m,' pozucii');
end;
 
procedure sort(var a: a1);
var i,j: byte;
    tmp: integer;
begin
  for i:=1 to n-1 do
    for j:=i+1 to n do
    if a[i]<a[j] then
    begin
      tmp:=a[i];
      a[i]:=a[j];
      a[j]:=tmp;
    end;
end;
 
var
  a,b,c: a1;
begin
  randomize; 
  init(a);
  writeln('Massuv A:');
  outPut(a); maxi(a); sort(a); 
  writeln('Vidsortovanui massuv A:');
  outPut(a); writeln;
  
  init(b);
  writeln('Massuv B:');
  outPut(b); maxi(b);
  sort(b); 
  writeln('Vidsortovanui massuv B:');
  outPut(b); writeln;
  
  init(c);
  writeln('Massuv C:');
  outPut(c); maxi(c);
  sort(c); 
  writeln('Vidsortovanui massuv C:');
  outPut(c);
  
  readln;
end.

3
const n=20;
type a1=array[1..n]of integer;
var a,b,c:a1; m,tmp,j:integer;
 
procedure init(var a: a1);
var i: byte;
begin
  for i:=1 to n do
    a[i]:=random(199)-99;
end;
 
procedure outPut(var a: a1);
var i: byte;
begin
  for i:=1 to n do
    write(a[i]:4);
  writeln;
end;
 
 
procedure maxi(var a: a1);
var i: byte;
begin
  m:=1;
  for i:=2 to n do
    if (a[i] mod 2=0)and(a[i]>a[m]) then 
    m:=i;
      writeln('Maksumalnui element =',a[m],' na ',m,' pozucii');
end;
 
procedure sort(var a: a1);
var i: byte;
    begin
  for i:=1 to n-1 do
    for j:=i+1 to n do
    if a[i]<a[j] then
    begin
      tmp:=a[i];
      a[i]:=a[j];
      a[j]:=tmp;
    end;
end;
 
begin
  randomize; 
  init(a);
  writeln('Massuv A:');
  outPut(a); maxi(a); sort(a); 
  writeln('Vidsortovanui massuv A:');
  outPut(a); writeln;
  
  init(b);
  writeln('Massuv B:');
  outPut(b); maxi(b);
  sort(b); 
  writeln('Vidsortovanui massuv B:');
  outPut(b); writeln;
  
  init(c);
  writeln('Massuv C:');
  outPut(c); maxi(c);
  sort(c); 
  writeln('Vidsortovanui massuv C:');
  outPut(c);
  
  readln;
end.
4 - ?
Заранее спасибо!)

забыл написать условие) дано 3 векторы. определить максимальный парный элемент каждого вектора и упорядочить по убыванию.



___________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
я исправил (в очередной раз).
Но учтите, что в дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

3) Не используйте форум как чат - не пишите несколько коротких сообщений подряд!
Есть что добавить - нажимайте кнопку "Правка/Редактировать" на своём крайнем сообщении
и изменяйте, добавляйте....


Модератор.

Последний раз редактировалось Serge_Bliznykov; 04.12.2012 в 08:38.
3Doleg вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как удалить n-ый элемент вектора? Tiva Помощь студентам 1 09.11.2012 20:28
второй по величине элемент вектора fbsd Помощь студентам 1 16.02.2012 16:35
Максимальный чётный элемент vrtp Общие вопросы C/C++ 2 07.12.2011 17:00
Даны векторы A[10], B[18]. У каждого вектора, компоненты которого не neomax38 Помощь студентам 2 23.12.2010 12:54