IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Одномерные числовые массивы, Работа с векторами
ёжик
сообщение 18.11.2007 22:56
Сообщение #1


Гость






Составить программу ввода двух одномерных массивов A и B размерностью n, A=|a1,a2,...,an|, B=|b1,b2,...,bn| и вычисления алгоритмической разности двух векторов - вектора C=|c1,c2,...,cn|, по формуле С:=a:-b:, i=1,2,...,n
 К началу страницы 
+ Ответить 
Гость
сообщение 18.11.2007 22:57
Сообщение #2


Гость






люди добрые помогите написать программу
 К началу страницы 
+ Ответить 
Boss
сообщение 18.11.2007 23:28
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


В чем проблема??? Делаешь ввод по элементно массивов А и В, а потом цикл от 1 до n, и пишешь ф-лу
C[i] := A[i] - B[i];

Посмотри в FAQ Задачи с массивами

Сообщение отредактировано: Boss - 18.11.2007 23:34
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Гость
сообщение 18.11.2007 23:41
Сообщение #4


Гость






непонятно, уже голова не работает, а завтра работу сдать надо может кто-нибудь сможет написать быстренько
 К началу страницы 
+ Ответить 
Boss
сообщение 18.11.2007 23:48
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Какой вид ввода??? Пользовательский или случайный???

Добавлено через 13 мин.
uses crt;  
const n = 10;
type mas = array[1..n] of integer;
var a, b, c : mas;
i : integer;
Begin
Randomize;
clrscr;
for i := 1 to n do
begin
a[i] := -50 +random(100-1);
b[i] := -50 +random(100-1);
end;
for i := 1 to n do
write(a[i]:3, ';');
writeln;
for i := 1 to n do
write(b[i]:3, ';');
writeln;
for i := 1 to n do
begin
c[i] := a[i] - b[i];
write(c[i]:3, ';');
end;
readln;
end.

Ихмо стыдно писать...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Гость
сообщение 19.11.2007 13:21
Сообщение #6


Гость






огромное спасибо
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 19.07.2025 13:57
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"