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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.03.2012, 10:16   #1
repchic
Пользователь
 
Регистрация: 07.12.2011
Сообщений: 19
По умолчанию Процедуры

помогите пожалуйста написать программу с использованием процедуры,вот задание:Переписать положительные элементы массива X(100) и Y(80) в массив Z подряд.Запись в массив Z осуществлять в подпрограмме.Заранее благодарен.
repchic вне форума Ответить с цитированием
Старый 01.03.2012, 13:04   #2
Leshii
Форумчанин
 
Регистрация: 26.07.2011
Сообщений: 376
По умолчанию

Код:
Program prod;
Uses crt;
type 
  mas = array [1..200] of integer;
var 
  X, Z, Y: mas;
  i, k, n, m: integer;

Procedure Zet(X, Y: mas; i, n, m: integer);
var k: integer;
begin
k:=0;
for i:=1 to n do
 if x[i]>0 then begin
  inc(k);
  z[k]:=x[i];
 end;
for i:=1 to m do
 if y[i]>0 then begin
    inc(k);
    z[k]:=y[i];
 end;
writeln('Massiv Z');
for i:=1 to k do
 write(z[i],'|');
readln;
end;

begin
clrscr;
randomize;
n:=100; m:=80;
writeln('Massiv X');
for i:=1 to n do begin
     x[i]:=random(101)-50;
     write(x[i],':');
end;
writeln('Massiv Y');
for i:=1 to m do begin
     y[i]:=random(81)-40;
     write(y[i],':');
end;
writeln;
Zet(X, Y, i, n, m);
end.
Люблю на ты.Я человек простой
Leshii вне форума Ответить с цитированием
Старый 01.03.2012, 13:12   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
var x:array[1..100] of integer;
b:array[1..80] of integer;
z:array[1..180] of integer;

procedure ku;
var i,k:integer;
begin k:=1;
 for i:=1 to 100 do if x[i]>0 then begin z[k]:=x[i];inc(k);end;
 for i:=1 to 80  do if y[i]>0 then begin z[k]:=y[i];inc(k);end;
end;

begin ku;end.
Это без вывода и ввода массивов.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 01.03.2012, 19:23   #4
repchic
Пользователь
 
Регистрация: 07.12.2011
Сообщений: 19
По умолчанию

спасибо огромное тебе Leshii
repchic вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Использование имени процедуры в качестве параметра другой процедуры Alexey355 Помощь студентам 1 23.04.2011 13:59
закончить выполнение процедуры из тела другой процедуры Alaysor Общие вопросы Delphi 14 23.01.2011 05:26
Процедуры. profi Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 6 21.06.2010 17:27
Управляющие структуры, процедуры Function и процедуры Sub Natalo4ka Помощь студентам 0 17.05.2010 22:00
Запуск процедуры из процедуры с дополнением 1sal1 Общие вопросы Delphi 3 06.10.2008 21:54