|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
30.03.2014, 23:05 | #1 (permalink) |
Новичок
Регистрация: 26.02.2014
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Создание и использование модулей
Параметр– массив из N целых чисел(N– константа модуля). Действия: • нахождение минимального элемента; • нахождение максимального элемента; • нахождение суммы элементов массива; • перестановка элементов массива в обратном порядке. |
30.03.2014, 23:05 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пожалуйста, внимательно пролистайте данные посты Конфликт модулей Взаимодействие MySQL и модулей PHP Cвязка модулей С++ Bulder Использование дополнительных директив стандартных модулей Конфликт модулей памяти Совместимость конкретных модулей |
31.03.2014, 17:22 | #3 (permalink) |
Member
Регистрация: 05.03.2014
Сообщений: 200
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 834
|
const
N = 20; var i, min, max: byte; sum, tmp: integer; mas: array [1..N] of integer; begin randomize(); writeln('Vhodnoy massiv:'); for i:= 1 to N do begin mas[i]:= random(100); write(mas[i]:3); end; min:= mas[1]; max:= mas[1]; sum:= mas[1]; for i:= 2 to N do begin if mas[i]> max then max:= mas[i]; if mas[i]< min then min:= mas[i]; sum:= sum + mas[i]; end; writeln; writeln('min = ', min); writeln('max = ', max); writeln('summa = ', sum); for i:= 1 to (N+1) div 2 do begin tmp:= mas[i]; mas[i]:= mas[N-i+1]; mas[N-i+1]:= tmp; end; writeln('Obratniy massiv:'); for i:= 1 to N do write(mas[i]:3); readln; end. |
31.03.2014, 22:00 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Уважаемый poiu, конечно, это всё прекрасно, вот только... одного я тут в упор не вижу: модулей. А ведь, как я понял, именно работа с модулями и составляет суть задания. А потому осмелюсь предложить свой вариант:
1. Модуль (сохранить под именем My_Unit.pas. Другие названия недопустимы! Ну то есть можно поменять, но одновременно имя модуля в первой строке и имя файла - они должны быть строго одинаковыми): Код:
Unit My_Unit; Interface Const N=20; Type Arr=Array[1..N] of Byte; Function Minimum(Q:Arr):Byte; Function Maximum(Q:Arr):Byte; Function Sum(Q:Arr):Integer; Procedure Revers(var Q:Arr); Implementation Function Minimum(Q:Arr):Byte; var i,M:byte; begin M:=Q[1]; for i:=2 to N do if Q[i]<M then M:=Q[i]; Minimum:=M; end; Function Maximum(Q:Arr):Byte; var i,M:byte; begin M:=Q[1]; for i:=2 to N do if Q[i]>M then M:=Q[i]; Maximum:=M; end; Function Sum(Q:Arr):Integer; var i:byte; S:Integer; begin S:=0; for i:=1 to N do Inc(S,Q[i]); Sum:=S; end; Procedure Revers(var Q:Arr); var i,tmp:Byte; begin for i:=1 to (N div 2) do begin tmp:=Q[i]; Q[i]:=Q[N-i+1]; Q[N-i+1]:=tmp; end; end; End. Код:
Uses My_Unit; Var A:Arr; i:Byte; Begin Randomize; Writeln('Initial Array:'); For i:=1 to N do begin A[i]:=Random(100); write(A[i]:4); end; Writeln; Writeln; Writeln('Min= ',Minimum(A)); Writeln('Max= ',Maximum(A)); Writeln('Sum= ',Sum(A)); Writeln; Revers(A); Writeln('Reversed Array:'); For i:=1 to N do write(A[i]:4); Readln End. |
01.04.2014, 10:10 | #5 (permalink) |
Member
Регистрация: 05.03.2014
Сообщений: 200
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 834
|
извиняюсь. не внимательно прочел задание. выполнил только его внутренности.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
02.04.2014, 01:19 | #6 (permalink) |
Новичок
Регистрация: 26.02.2014
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Огромное спасибо, буду тестировать.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|