Векторное произведение векторов

@GSVE · Регистрация: 07.12.2008

Author24 — интернет-сервис помощи студентам

Программа должна осуществлять:
1 Ввод с клавы первых эл-в векторов 1х7 и 7х1
2 Расчет остальеых эл-в по законам V[i]=V[i-1]+1 и A[i]=A[i-1]-2
3 Вывод векторов на экран
4 Векторное произведение векторов
5 Вывод результата на экран

Добавлено через 14 минут 11 секунд
Срочно надо, помогите пожалуйста!

@NasmAPIk · 26.03.2009, 15:41

Решение:

Pascal

Program Vektora;
uses crt;
var
 v,a,av:array[1..7] of integer;
 i:byte;
 
begin
 clrscr;
 write('Vvedite pervii element vektora V: '); readln(v[1]);
 write('Vvedite pervii element vektora A: '); readln(a[1]);
 for i:=2 to 7 do begin
    v[i]:=v[i-1]+1;
    a[i]:=a[i-1]-2;
 end;
 writeln;
 for i:=1 to 7 do av[i]:=a[i]*v[i];
 for i:=1 to 7 do write(v[i]:4);
 writeln; writeln;
 for i:=1 to 7 do write(a[i]:4);
 writeln; writeln;
 for i:=1 to 7 do write(av[i]:4);
 readkey;
end.

@GSVE 0 / 0 / 0 Регистрация: 07.12.2008 Сообщений: 24
		1
	Векторное произведение векторов 26.03.2009, 14:49. Показов 6587. Ответов 1 Метки нет (Все метки) Программа должна осуществлять: 1 Ввод с клавы первых эл-в векторов 1х7 и 7х1 2 Расчет остальеых эл-в по законам V[i]=V[i-1]+1 и A[i]=A[i-1]-2 3 Вывод векторов на экран 4 Векторное произведение векторов 5 Вывод результата на экран Добавлено через 14 минут 11 секунд Срочно надо, помогите пожалуйста! 0

	26.03.2009, 15:41