Помогите оформить програмный код (Pascal)

[Виталик94]

Помогите оформить програмный код (Pascal)

Нужно офрмить програмный код в виде модулей

Основную часть модуля оформить в

а)процедуре
б)форме функции

Язык программирования Pascal

помогите сдать работу по инф-е.. буду благодарен

вот наброски.. но как именно правильно сделать - не знаю..

ISH.PAS - исходная


Program modul;
uses crt,graph,AAA;
var n,m:integer;
const k:=0;
begin
clrscr;
inc;
y=1+i;
m=f1(..,..);
count (..,..,..,..);


AAA.pas - функция


Unit AAA
Interface
var ..,..,..,..;
count (..,..,..,..)
f1=(var ..,..):real;
implementation
procedure count
var ...
const ...
end;
f1 ...
end;
end.

 

[Виталик94]

Вот правильный алгоритм K=K+1*

 

[Виталик94]

никто не поможет(

 

[Vladimir_S]

Понимаете, просто, очевидно, нет желающих разгадывать Ваши шарады. Вы просто вывалили какой-то невразумительный ком каких-то обрывков непонятно чего и ждете, что Вам всё распишут, решат и красиво оформят.
В качестве помощи могу посоветовать для начала вооружиться любым пособием по Паскалю и прочитать раздел о структуре модуля - по всему судя, Вы не удосужились этого сделать. То, что Вы выложили - абсолютно неправильно, там буквально ошибка на ошибке, т.е. никуда не годится.
А форум - не замена учебнику, у нас другой профиль.

 

[AlexZir]

По блок-схеме тоже непонятно, в каком случае начинает выполняться цикл и как должно отрабатываться условие в цикле. Вы хоть бы "да" и "нет" написали для наглядности. И ознакомьтесь, пожалуйста, с ГОСТ-ом оформления блок-схем, много нового оттуда почерпнёте

Я так понимаю, что в задании вам нужно подсчитать количество элементов массива X, равных (или неравных) 0?

Если я прав, не вижу никакого смысла в создании дополнительного модуля для реализации простейшего алгоритма.