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

Программирование и использование программных модулей

06.12.2015, 00:33. Просмотров 193. Ответов 0
Метки нет (Все метки)

Здравствуйте! Помогите пожалуйста с написанием программы программный модуль, очень нужно уже все перерыл но не получается, вот задание: .
1 Процедура введения вектора, содержащего в себе n-элементов.
2 Процедура размещения элементов вектора в порядке возрастания их значений.
3 Функция определения количества положительных элементов вектора.
4 Процедура выведения элементов вектора на дисплей и на печать.
и у меня получился такой код:
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
program Lb9;
uses crt;
type TMas=array[1..10] of real;
  TVector=object
    Mas:TMas;
    n:byte;
    id:char;
    procedure inp; {The procedure}
    procedure out; {The procedure}
    procedure sort; {The procedure}
    end;
var vect:tvector;
procedure TVector.inp; {The procedure}
var i:byte;
begin
  Writeln('Enter identificator of vector (One symbol) :'); {The request for input}
  Write('id='); {The request for input}
  Readln(id);  {input}
  Writeln('Enter number of elements of vector ',id,' :'); {The request for input}
  Write('n='); {The request for input}
  readln(n);  {input}
  writeln('Enter elements of vector ',id,' :');  {The request for input}
  for i:=1 to n do
    begin Write(id,'[',i,']=');  {The request for input}
    readln(mas[i]);  {input} 
    end;
end;
procedure CreateVector(const mx : masiv; sz : integer;
                       var v : vector; var len : integer);
var
  i, j : integer;
begin
  len := 0;
  for i := 1 to sz div 2 + sz mod 2 do
    for j := i to sz - i + 1 do
      if mx[i, j] mod 2 <> 0 then
      begin
        len := len + 1;
        v[len] := mx[i, j];
      end;
end;
function k(var x: array of integer; kx: integer): integer;
var i, t: integer;
begin
  t := 0;
  for i := 0 to kx - 1 do if x[i] > 0 then inc(t);
  k := t
end;
procedure genout(s: string; var x: array of integer; p: integer);
var i: integer;
begin
  writeln('Вектор ', s, ':');
  for i := 0 to p - 1 do
    begin
      x[i] := -99 + random(199);
      write(x[i]:4)
    end;
  writeln
  end;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.12.2015, 00:33
Ответы с готовыми решениями:

Использование программных модулей
Добрый вечер. Буду благодарен всем, кто поможет с заданием: 1)Разработать программный модуль, в...

Программирование с использованием модулей и процедурных типов
Даны матрицы А и В. Из четных сумм элементов строк матрицы А сформировать вектор С. Из сумм...

Использование программ и модулей
Массив целых чисел. В процедуре удалить из массива четные элементы. Размерность итогового массива...

Создание и использование модулей
помогите пожалуйста написать программу на тему использования модулей. вот такое задание: ...

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

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.12.2015, 00:33

Использование подпрограмм и модулей
Создать программу для определения кратчайшего среди 3-х введенных пользователем строк. Определение...

Составить программу на тему: Использование подпрограмм и модулей.
Задание: В модуль нужно включить подпрограмму определения отношения дробей «равна». Помогите...

Программирование с использование основных операций с матрицей
Заданы матрицы А,В,С и вычислить матречное выражение (А*(С+В*А)+С)*А помогите пожалуста мужчины...


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

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

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