|
Вопрос # 3 583/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
надо решить задачу, используя процедуры или функции.
Даны два массива x(N), y(M). Напечатать массив Z из положительных элементов массивов X и Y, подряд. (примечание: ввод элементов в массив Z осуществить с помощью подпрограммы).
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
 |
Вопрос задал: ryan22 (статус: Посетитель)
Вопрос отправлен: 25 декабря 2009, 16:58
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Жикльор
Здравствуйте, ryan22!
Вот быстро накатал прогу, так что не гарантирую что будет правильно работать, просто времени нету, спешу:
Приложение: Переключить в обычный режим- program Matrix;
-
- {$APPTYPE CONSOLE}
-
- uses
- SysUtils;
- const
- N = 10;
- var
- x,y: array [1..N] of real;
- z: array of real;
- i: integer;
- (****************************)
- procedure SetEl(x,y: array of real);
- var
- i,p: integer;
- begin
- p:=1;
- for i:=1 to N do
- if x[i] > 0 then
- begin
- z[p]:=x[i];
- p:=p+1;
- end;
- for i:=1 to N do
- if y[i] > 0 then
- begin
- z[p]:=y[i];
- p:=p+1;
- end;
- end;
- (****************************)
- begin
- writeln('1 masiv');
- for i:=1 to N do read(x[i]);
- writeln('2 masiv');
- for i:=1 to N do read(y[i]);
- SetEl(x,y);
- for i:=1 to 20 do writeln(z[i]:5);
- readln;
- end.
 |
Ответ отправил: Жикльор (статус: 5-ый класс)
Время отправки: 25 декабря 2009, 19:08
|
Мини-форум вопроса
Всего сообщений: 0.
26 декабря 2009, 11:07: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум модератором min@y™ Причина: 100%-ная лаба.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
