Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
MrSmitt
1 / 1 / 0
Регистрация: 20.10.2013
Сообщений: 141
1

Изменить программу так, чтобы было прямое обращение к процедуре и функции

15.12.2013, 17:28. Просмотров 348. Ответов 2
Метки нет (Все метки)

Написана программа. Необходимо так изменить программу , чтобы было прямое обращение к процедуре и функции.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Program laba6;
uses crt;
const n=5;
type mass=array [1..n,1..n] of integer;
 
procedure massiv(var a:mass);
var i,j:integer;
begin
writeln('Исходный массив: ');
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=-10+random(100);
      write(a[i,j]:5)
     end;
    writeln
  end;
end;
 
function summa(a:mass;j:integer;var s:boolean):integer;
var i,sum:integer;
begin
s:=true;
sum:=0;
i:=1;
while(i<=n)and s do
if a[i,j]<0 then s:=false
else
 begin
  sum:=sum+a[i,j];
  inc(i)
 end;
if s then writeln('в столбце ',j,' сумма = ',sum);
summa:=sum
end;
 
 
procedure min(a:mass;var MinSum:integer);
var i,j,SumAbs:integer;
begin
minsum:=abs(a[1,1]);
for i:=n-1 downto -n+1 do
 begin
  sumabs:=0;
  for j:=1 to n do
  if (j-i>0) and (j-i<=n) then sumabs:=sumabs+abs(a[j-i,n-j+1]);
  if sumabs<minsum then minsum:=sumabs;
 end;
writeln('Минимум среди сумм модулей элементов диагоналей, паралл побочной=',minsum);
end;
 
var j,k,SumAbs,Sum:integer;
    mas:mass;
    MinSum:integer;
    s:boolean;
begin
randomize;
massiv(mas);
k:=0;
for j:=1 to n do
 begin
  sum:=summa(mas,j,s);
  if s then k:=1
 end;
if k=0 then writeln('Нет столбцов без отрицательных элементов');
min(mas,MinSum);
readln;
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.12.2013, 17:28
Ответы с готовыми решениями:

Модернизировать программу, так, чтобы дополнительно узнать сколько пробелов было в строке
а)Составить программу, которая будет подсчитывать количество символов во введённой строке....

Изменить программу вывода функции так, чтобы можно было передавать функции типа double
Помогите разобраться. Изменить программу вывода функции так, чтобы можно было передавать функции...

Изменить программу так, чтобы нужно было ввести размер n матрицы и матрица выводилась сама
Как изменить программу так, чтобы нужно было ввести размер n матрицы и матрица выводилась сама. ...

Как изменить программу так, чтобы было два потока:соотвественно один родительский, другой дочерний
Как изменить программу так, чтобы было два потока:соотвественно один родительский, другой дочерний,...

Изменить программу чтобы можно было вводить матрицу и ее размерность, и чтобы выводились собственные векторы
Нашел программу для нахождения собственных значений методом вращений якоби на этом сайте...

2
MrSmitt
1 / 1 / 0
Регистрация: 20.10.2013
Сообщений: 141
16.12.2013, 19:45  [ТС] 2
Само условие
Определить:
1)сумму элементов в тех столбцах,которые не содержат отрицательных элементов;(оформить в виде функции).
2)минимум среди сумм модулей элементов диагоналей,параллельных побочной диагонали матрицы.(оформить в виде процедуры)

Если я правильно понимаю, то "прямое обращение" нужно только к функции ?
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
28053 / 18702 / 7372
Регистрация: 22.10.2011
Сообщений: 32,763
Записей в блоге: 6
16.12.2013, 19:50 3
В программе и так есть прямое обращение и к обеим процедурам (в 59-ой и 67-ой строках) и к функции (в строке №63), так что непонятно совершенно, что на что надо заменить...
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.12.2013, 19:50

Исправьте пожалуйста программу так, чтобы не было константы
const z=; x=; ---- вот эти 2 строчки нужно убрать так, чтобы работала программа, не добавляя...

Изменить программу, чтобы нельзя было посчитать с отрицательным числом
В программе ВВОД нужно сделать так, чтобы если введено число меньше или равно нулю то программа...

Защитить свой протокол от изменений так, чтобы нельзя было незаметно изменить его. Объект CAPICOM.HashedData (нужен комментарий)
Предполагается, что при записи протокола работы скрипта используется подписывание каждой строки...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.