Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
flexs
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 54
1

Умножение вектора на число

03.04.2014, 12:21. Просмотров 510. Ответов 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
uses crt;
const max=100;
var n:byte;
type mas=array[1..max] of integer;
 
procedure vvod(var a:mas;c:char);
var i:byte;
begin
writeln('введите вектор ',c);
for i:=1 to n do
read(a[i]);
end;
 
procedure umnog(w,a:mas; var w1:integer);
var i:byte;
begin
write('число');
 read(w1);
for i:=1 to n do
 w[i]:=w1*a[i];
  writeln('=',w[i]) ;
   writeln('Нажмите Enter');
end;
 
Procedure r5;
var w,a:mas;
    w1,e,r:integer;
begin
clrscr;
write('введите размер вектора :');
read(n);
vvod(a,'A');
umnog(a,w,w1);
readln
end;
begin
r5;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2014, 12:21
Ответы с готовыми решениями:

Умножение всех элементов вектора на число
Есть код который вычесляет: умножения всех елементов вектора на число типа...

Найти такое число, при умножение которой получится целое число
Дано число. Требуется найти такое число, при умножение которой получится целое...

описание точки вектора...Умножение вектора
описание точки вектора...Умножение вектора

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

Подсчитать число отрицательных и число положительных компонент вектора
помогите решить с помощью подпрограмм У вещественного вектора Y (y1, y2, …,...

4
Puporev
Модератор
54677 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,348
03.04.2014, 13:53 2
Цитата Сообщение от flexs Посмотреть сообщение
что бы размер вектора задовался в ручную
А у тебя разве не так?
Pascal
1
2
write('введите размер вектора :');
read(n);
0
flexs
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 54
03.04.2014, 15:38  [ТС] 3
Забыл описать саму проблему , проблема с работой она или выводит результат 0 либо огромное число
0
flexs
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 54
04.04.2014, 16:34  [ТС] 4
Все сделал.
0
Cyborg Drone
04.04.2014, 17:10     Умножение вектора на число
  #5
 Комментарий модератора 
flexs, по правилам форума, если решение найдено самостоятельно, его следует выложить на форум: вдруг кому-нибудь пригодится.
0
04.04.2014, 17:10
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.04.2014, 17:10
Привет! Вот еще темы с ответами:

Умножение массива на число
надо написать " составить процедуру умножение одномерного массива на числа...

Умножение числа на число без использования арифметических знаков
Нужно написать программу для умножения любого числа на любое число без...

Дано число a Используя только умножение, получить значения
Дано число a. Используя только умножение, получить значения: а) a^8 за 3...


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

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

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