Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Одномерные числовые массивы

Автор: ёжик 19.11.2007 2:56

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

Автор: Гость 19.11.2007 2:57

люди добрые помогите написать программу

Автор: Boss 19.11.2007 3:28

В чем проблема??? Делаешь ввод по элементно массивов А и В, а потом цикл от 1 до n, и пишешь ф-лу

C[i] := A[i] - B[i];

Посмотри в FAQ http://forum.pascal.net.ru/index.php?showtopic=1212

Автор: Гость 19.11.2007 3:41

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

Автор: Boss 19.11.2007 3:48

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

Добавлено через 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.

Ихмо стыдно писать...

Автор: Гость 19.11.2007 17:21

огромное спасибо