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


Ответ
 
Опции темы Опции просмотра
Старый 22.04.2011, 20:46   #1 (permalink)
Ксения)777)
Member
 
Регистрация: 25.12.2010
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Модуль в Паскале

Оформить в виде основной программы и процедуры (функции) (поместить в модуль) с параметрами программу, выполняющую заполнение массива случайными цифрами и поиск мак-симального элемента.
Ксения)777) вне форума   Ответить с цитированием

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

Ознакомление с подобными топиками очень эффективно в решении любых проблем

АМ/ЧМ модуль YTS920
Оптосимисторный модуль
Как закрыть модуль ABCObjects в Паскале?
Модуль Graph в TurboPascal

Старый 22.04.2011, 21:55   #2 (permalink)
KUS
Генсек ПЛВ
 
Аватар для KUS
 
Регистрация: 02.02.2007
Адрес: г. Мурманск
Сообщений: 13,370
Записей в дневнике: 13
Сказал(а) спасибо: 279
Поблагодарили 44 раз(а) в 16 сообщениях
Репутация: 47924
По умолчанию

Ксения, а шнурки Вам не погладить, уж простите?
__________________
-...варю манную кашу, жарю картофельные блины, езжу на дизеле.-

Йцукен сын.
KUS вне форума   Ответить с цитированием
Старый 23.04.2011, 03:10   #3 (permalink)
Mr.П 2.0
Member
 
Регистрация: 16.03.2011
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 11
По умолчанию

Конечно без модуля, но лучше что-то чем ничего.
Код:
Var a:array[1..1000] of longint;
n:integer; max:longint; i:byte;
begin
randomize;
Writeln('vvedite kol-vo elementow');
repeat
readln(n);
until ((n>=1) and ( n<=1000));
for i:=1 to n do
begin
begin
a[i]:=random(10000);
Write(i,' chlen = ');
Write(' ', a[i],' ');
end;
Writeln;
end;
max:=a[1];
for i:=2 to n do
begin
if a[i]>max
then
max:=a[i];
end;
Writeln('maxmal = ',max);
readln;
end.
Mr.П 2.0 вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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