Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 08.11.2010, 17:39   #1 (permalink)
Виталик94
Новичок
 
Регистрация: 08.11.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите оформить програмный код (Pascal)

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

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

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

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

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

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

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


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


AAA.pas - функция


Unit AAA
Interface
var ..,..,..,..;
count (..,..,..,..)
f1=(var ..,..):real;
implementation
procedure count
var ...
const ...
end;
f1 ...
end;
end.
Миниатюры
aeaidheoi.png  
Виталик94 вне форума   Ответить с цитированием

Старый 08.11.2010, 17:39
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Чтобы вы не тратили время на поиск, я отправлю сюда аналогичные топики

Оформить в виде процедуры. Паскаль
Помогите в написании программы в Pascal
Помогите найти ошибку, Pascal abc
Ребят, помогите, пожалуйста, с Pascal

Старый 08.11.2010, 17:43   #2 (permalink)
Виталик94
Новичок
 
Регистрация: 08.11.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Вот правильный алгоритм K=K+1*
Миниатюры
aeaidheoi.png  
Виталик94 вне форума   Ответить с цитированием
Старый 10.11.2010, 00:21   #3 (permalink)
Виталик94
Новичок
 
Регистрация: 08.11.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

никто не поможет(
Виталик94 вне форума   Ответить с цитированием
Старый 10.11.2010, 09:42   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,853
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Понимаете, просто, очевидно, нет желающих разгадывать Ваши шарады. Вы просто вывалили какой-то невразумительный ком каких-то обрывков непонятно чего и ждете, что Вам всё распишут, решат и красиво оформят.
В качестве помощи могу посоветовать для начала вооружиться любым пособием по Паскалю и прочитать раздел о структуре модуля - по всему судя, Вы не удосужились этого сделать. То, что Вы выложили - абсолютно неправильно, там буквально ошибка на ошибке, т.е. никуда не годится.
А форум - не замена учебнику, у нас другой профиль.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 10.11.2010, 17:11   #5 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,940
Записей в дневнике: 57
Сказал(а) спасибо: 135
Поблагодарили 164 раз(а) в 69 сообщениях
Репутация: 67284
По умолчанию

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

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

Если я прав, не вижу никакого смысла в создании дополнительного модуля для реализации простейшего алгоритма.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 09:58.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.