Помогите, пожалуйста, с программой на Паскале

Juliet · 16.12.2011, 16:08

Заданы четыре вектора x={x1,x2,x3}; y={y1,y2,y3}; z={z1,z2,z3,z4} и p={p1,p2,p3,p4}. Логической переменной a присвоить значение TRUE, если скалярное произведение векторов x и y больше скалярного произведения векторов z и p и значение FALSE, в противном случае.
Вычисление скалярного произведения оформить в виде процедуры.
Исходные данные: x=(1;2;3); y=(2,5;6;3,2); z=(3,7;1,2;6,4;-5,3); p=(-1;4;1;-2)

Juliet · 16.12.2011, 16:18

И вот еще одна...))
Проверить численно первый замечательный предел lim(x→∞)(sin(x)/x)=1, задавая x значения 1; 1/2; 1/4; 1/8;… до тех пор, пока левая часть равенства не будет отличаться от правой менее, чем на заданную погрешность Ɛ.

Vladimir_S · 16.12.2011, 16:28

Так устроит?

Код:

TYPE
 Vect=Array[1..4] of Real;
CONST
 x:Vect=(1,2,3,0);
 y:Vect=(2.5,6,3.2,0);
 z:Vect=(3.7,1.2,6.4,-5.3);
 p:Vect=(-1,4,1,-2);

Function SP(M1,M2:Vect):Real;
var
 j:Byte;
 Sum:Real;
begin
 for j:=1 to 4 do
  Sum:=Sum+M1[j]*M2[j];
 SP:=Sum;
end;

BEGIN
 Write(SP(x,y)>SP(z,p));
 Readln;
END.

Vladimir_S · 16.12.2011, 16:35

Цитата:

Сообщение от Juliet

И вот еще одна...))
Проверить численно первый замечательный предел lim(x→∞)(sin(x)/x)=1, задавая x значения 1; 1/2; 1/4; 1/8;… до тех пор, пока левая часть равенства не будет отличаться от правой менее, чем на заданную погрешность Ɛ.

Ладно, проверим:

Код:

CONST
 Eps=0.00001;
VAR
 i:Word;
 x:Real;
BEGIN
 i:=0;
 Repeat
  i:=i+1;
  x:=1.0/i;
 Until ABS(Sin(x)/x-1)<Eps;
 Writeln('i= ',i,'   Result= ',Sin(x)/x:0:6);
 Readln;
END.

Juliet · 16.12.2011, 16:36

Спасибо большое, но надо именно процедурой сделать...)

Juliet · 16.12.2011, 16:36

Цитата:

Сообщение от Vladimir_S

Ладно, проверим:

Код:

CONST
 Eps=0.00001;
VAR
 i:Word;
 x:Real;
BEGIN
 i:=0;
 Repeat
  i:=i+1;
  x:=1.0/i;
 Until ABS(Sin(x)/x-1)<Eps;
 Writeln('i= ',i,'   Result= ',Sin(x)/x:0:6);
 Readln;
END.

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

Vladimir_S · 16.12.2011, 16:43

Цитата:

Сообщение от Juliet

Спасибо большое, но надо именно процедурой сделать...)

Да пожалуйста:

Код:

TYPE
 Vect=Array[1..4] of Real;
CONST
 x:Vect=(1,2,3,0);
 y:Vect=(2.5,6,3.2,0);
 z:Vect=(3.7,1.2,6.4,-5.3);
 p:Vect=(-1,4,1,-2);

VAR
 R1,R2:Real;

Procedure SP(M1,M2:Vect;var Res:Real);
var
 j:Byte;
begin
 Res:=0;
 for j:=1 to 4 do
  Res:=Res+M1[j]*M2[j];
end;

BEGIN
 SP(x,y,R1);
 SP(z,p,R2);
 Write(R1>R2);
 Readln;
END.

Juliet · 16.12.2011, 17:06

Цитата:

Сообщение от Vladimir_S

Код:
TYPE
Vect=Array[1..4] of Real;
CONST
x:Vect=(1,2,3,0);
y:Vect=(2.5,6,3.2,0);
z:Vect=(3.7,1.2,6.4,-5.3);
p:Vect=(-1,4,1,-2);

VAR
R1,R2:Real;

Procedure SP(M1,M2:Vect;var Res:Real);
var
j:Byte;
begin
Res:=0;
for j:=1 to 4 do
Res:=Res+M1[j]*M2[j];
end;

BEGIN
SP(x,y,R1);
SP(z,p,R2);
Write(R1>R2);
Readln;
END.
__________________

Хм...спасибо...но что-то не работает она... Здесь ошибку выдает: x:Vect=(1,2,3,0);

Vladimir_S · 16.12.2011, 17:27

Цитата:

Сообщение от Juliet

Хм...спасибо...но что-то не работает она... Здесь ошибку выдает: x:Vect=(1,2,3,0);

Ну, не знаю - естественно, перед выкладыванием программы тестировались. У меня работают безупречно. А что у Вас за Паскаль? Если АВС, то я против его глюков - пас.
Да, и напишите подробнее - что за ошибка? Что пишет?

Juliet · 16.12.2011, 17:41

Цитата:

Сообщение от Vladimir_S

А что у Вас за Паскаль? Если АВС, то я против его глюков - пас.

Да, ABC Pascal у меня...

Цитата:

Сообщение от Vladimir_S

Да, и напишите подробнее - что за ошибка? Что пишет?

Пишет: ожидалось равенство "=" и курсор ставит между x и :

16.12.2011, 16:08	#1 (permalink)
Juliet Member Регистрация: 16.12.2011 Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите, пожалуйста, с программой на Паскале Заданы четыре вектора x={x1,x2,x3}; y={y1,y2,y3}; z={z1,z2,z3,z4} и p={p1,p2,p3,p4}. Логической переменной a присвоить значение TRUE, если скалярное произведение векторов x и y больше скалярного произведения векторов z и p и значение FALSE, в противном случае. Вычисление скалярного произведения оформить в виде процедуры. Исходные данные: x=(1;2;3); y=(2,5;6;3,2); z=(3,7;1,2;6,4;-5,3); p=(-1;4;1;-2)

16.12.2011, 16:28	#3 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Так устроит? Код: TYPE Vect=Array[1..4] of Real; CONST x:Vect=(1,2,3,0); y:Vect=(2.5,6,3.2,0); z:Vect=(3.7,1.2,6.4,-5.3); p:Vect=(-1,4,1,-2); Function SP(M1,M2:Vect):Real; var j:Byte; Sum:Real; begin for j:=1 to 4 do Sum:=Sum+M1[j]*M2[j]; SP:=Sum; end; BEGIN Write(SP(x,y)>SP(z,p)); Readln; END.

16.12.2011, 16:08
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Пока вам дают ответы вы можете почитать похожие темы Помогите пожалуйста с программой на паскале Помогите, пожалуйста, с программой

16.12.2011, 16:18	#2 (permalink)
Juliet Member Регистрация: 16.12.2011 Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	И вот еще одна...)) Проверить численно первый замечательный предел lim(x→∞)(sin(x)/x)=1, задавая x значения 1; 1/2; 1/4; 1/8;… до тех пор, пока левая часть равенства не будет отличаться от правой менее, чем на заданную погрешность Ɛ.

16.12.2011, 16:36	#5 (permalink)
Juliet Member Регистрация: 16.12.2011 Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо большое, но надо именно процедурой сделать...)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070