|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
08.12.2010, 13:48 | #1 |
Регистрация: 08.12.2010
Сообщений: 3
|
Процедуры и функции
В программе необходимо использовать оба вида подпрограмм: процедуры и функции. При этом для передачи информации в подпрограммы используйте формальные параметры. Предусмотрите вывод окончательного результата (печать матрицы и результата работы функции) в основной программе. Если функция не должна возвращать по условиям задачи некоторого численного значения, то предусмотрите возвращение выражения булевского типа.
Мой вариант В процедуре заполните трехмерный массив третьего порядка случайными числами, а в функции определите, содержит ли матрица введенное пользователем число. Прошу помочь вот мои наброски program 6; var f :array[1..3,1..3,1..3]of integer; i,j,k:integer; d: array [1..3,1..3,1..3]of integer; Procedure Matrix (var f :array [1..3,1..3,1..3] of integer); var a:array [1..3,1..3,1..3] of integer; i,j,k:integer; Begin Randomize; for i:=1 to 3 do begin for j:=1 to 3 do begin for k:=1 to 3 do a[i,j,k]:=random(100); end; for i:=1 to 3 do begin for j:=1 to 3 do begin for k:=1 to 3 do f[i,j,k]:=a[i,j,k]; end; writeln; for i:=1 to 3 do begin writeln; for j:=1 to 3 do writeln; for k:=1 to 3 do write (a[i,j,k], ' '); end; writeln; end; Function chislo (f:array [1..3,1..3,1..3] of integer):integer; var a:array [1..3,1..3,1..3] of integer; i,j,k,m:integer; begin Writeln ('Vvedite chislo'); readln(m); if m неверное название темы (не отражает суть) Неверно выбран раздел - для учебных задач предназначен раздел "Помощь студентам" Код не оформлен, как того требуют правила форума. ну и код обрывается на середине (хоть это, конечно, и не нарушение..) Последний раз редактировалось Serge_Bliznykov; 08.12.2010 в 14:03. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
процедуры и функции | Ruslan57 | Помощь студентам | 2 | 29.12.2009 09:20 |
функции и процедуры | niziriska | Помощь студентам | 12 | 24.01.2009 13:57 |
Процедуры и функции | KulOle | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 26.10.2008 14:18 |