Решение задачи на Pascal

[moravinger]

Решение задачи на Pascal

Написать программу, которая запрашивает исходные данные и проводит над ними выбранное пользователем действие. Выбор действия осуществляется с помощью меню.

Исходные данные: два вектора на плоскости а(х,у) и b(t,z).
меню действий
1. найти сумму векторов
2. найти разность векторов
3. найти скалярное произведение векторов
4. найти сумму длин векторов
5. выход
результат выводить после каждого действия

 

[Vladimir_S]

Исходные данные: два вектора на плоскости а(х,у) и b(t,z).

Это что - радиус-векторы или как?

 

[ИгорьМ]

Задача скинута , пояснений не будет. Завтра зайдет и проверит как выполнена работа )

 

[moravinger]

Видимо да, радиус-векторы.

 

[Vladimir_S]

Задача скинута , пояснений не будет. Завтра зайдет и проверит как выполнена работа )

Ладно. В детстве не воспитали, так что уж теперь - что выросло, то выросло. Пусть проверяет:

Var
 x,y,t,z:real;
 v:byte;
Begin
 Writeln('First vector:');
 Write('x= ');
 Readln(x);
 Write('y= ');
 Readln(y);
 Writeln('Second vector:');
 Write('x= ');
 Readln(t);
 Write('y= ');
 Readln(z);
 Repeat
  Writeln('Choose the action:');
  Writeln('   1 - sum of vectors');
  Writeln('   2 - difference between vectors');
  Writeln('   3 - scalar product');
  Writeln('   4 - sum of lengths');
  Writeln('   5 - exit');
  Readln(v);
  If (v=0) or (v>5) then v:=5;
  Case v of
   1: begin
       writeln('x= ',(x+t):0:3);
       writeln('y= ',(y+z):0:3);
      end;
   2: begin
       writeln('x= ',(x-t):0:3);
       writeln('y= ',(y-z):0:3);
      end;
   3: writeln((x*t+y*z):0:3);
   4: writeln((Sqrt(x*x+y*y)+Sqrt(t*t+z*z)):0:3);
  end;
 Until v=5;
End.

 

[moravinger]

Vladimir_S Большое вам спасибо! Все работает как положено.