Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 1
Регистрация: 12.12.2015
Сообщений: 60
1

Реализовать в виде модуля набор подпрограмм

06.04.2017, 10:20. Просмотров 1403. Ответов 1
Метки нет (Все метки)

Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над числами:
1) сложения;
2) вычитания;
3) умножения;
4) деления;
Используя этот модуль, решить следующую задачу:
Дан массив чисел А[М]. Получить матрицу В[N], каждая строка которой получается умножением на число, равное номеру этой строки, данного массива.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.04.2017, 10:20
Ответы с готовыми решениями:

Реализовать в виде модуля набор подпрограмм для операций над комплексными числами.
1. Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над комплексными...

Модули. Реализовать в виде модуля набор подпрограмм для выполнения над обыкновенными дробями
Реализовать в виде модуля набор под программ для выполнения над обыкновенными дробями вида P/Q(где...

Реализовать в виде модуля набор подпрограмм для выполнения следущих операций с массивами размерности n x m
Реализовать в виде модуля набор подпрограмм для выполнения следущих операций с массивами...

Реализовать в виде модуля набор подпрограмм для выполнения следующих операций с целями числами:
Реализовать в виде модуля набор подпрограмм для выполнения следующих операций с целями числами: 1)...

1
Модератор
61574 / 46103 / 31822
Регистрация: 18.05.2008
Сообщений: 111,126
06.04.2017, 10:56 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Модуль.
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
unit arifmetika;
interface
function sum(a,b:integer):integer;
function vyc(a,b:integer):integer;
function umn(a,b:integer):integer;
function del(a,b:integer):real;
implementation
function sum(a,b:integer):integer;
begin
sum:=a+b;
end;
function vyc(a,b:integer):integer;
begin
vyc:=a-b;
end;
function umn(a,b:integer):integer;
begin
umn:=a*b;
end;
function del(a,b:integer):real;
begin
del:=a/b;
end;
end.
Программа.
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
uses arifmetika;
var a:array[1..15] of integer;
    b:array[1..20,1..15] of integer;
    m,n,i,j:integer;
begin
randomize;
repeat
write('Введите M от 2 до 15 m=');
readln(m);
until m in [2..15];
writeln('Массив А');
for i:=1 to m do
 begin
  a[i]:=1+random(40);
  write(a[i]:4);
 end;
writeln;
repeat
write('Введите N от 2 до 20 m=');
readln(n);
until n in [2..20];
writeln('Матрица В');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    b[i,j]:=umn(a[j],i);
    write(b[i,j]:4);
   end;
  writeln;
 end
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.04.2017, 10:56

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над натуральными числами в Р-ичной системе счисления
мой друг столкнулся с такой программкой хотелось бы помочь но не знаю как оформить ее помогите...

Реализовать в виде модуля набор подпрограммм
Реализовать в виде модуля набор подпрограмм для выполнения над обыкновенными дробями вида P/Q (где...

Реализовать в виде модуля набор подпрограмм.
Доброе времени суток . Реализовать в виде модуля набор подпрограмм для выполнения Сложения над...

Реализовать в виде модуля набор подпрограмм для выполнения действий над матрицами
Реализовать в виде модуля набор подпрограмм для выполнения следующих действий над матрицами: 1)...


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

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

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