Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.06.2014, 20:11
MuPoZdATeL MuPoZdATeL вне форума
Прохожий
 
Регистрация: 03.06.2014
Сообщения: 2
Версия Delphi: Delphi 7
Репутация: 10
Сообщение Задача

Прошу помощи у опытных пользователей, учусь в ВУЗе, Заочник, знание делфи почти нет. (В школе было пару занятий). Задали задачу:
"Создать описание класса для объектов-векторов, задаваемых координатами концов в трехмерном пространстве. Обеспечить операции сложения и вычитания векторов с получением нового вектора вычисления скалярного произведения двух векторов, длины вектора.
Написать программу, демонстрирующую работу с этим классом. Программа должна содержать меню, позволяющая осуществлять проверку всех методов класса."
Если что в С++ она выглядит примерно так:
Код:
using System;
class Vector
{
    public Vector(double x, double y, double z)
    {
        X = x;
        Y = y;
        Z = z;
    }
    public double X;
    public double Y;
    public double Z;
    public double GetLength()
    {
        return Math.Sqrt(X * X + Y * Y + Z * Z);
    }
    public static Vector operator +(Vector l, Vector r) 
    {
        return new Vector(l.X + r.X, l.Y + r.Y, l.Z + r.Z);
    }
    public static Vector operator -(Vector l, Vector r)
    {
        return new Vector(l.X - r.X, l.Y - r.Y, l.Z - r.Z);
    }
    public static double operator *(Vector l, Vector r) 
    {
        return (l.X * r.X + l.Y * r.Y + l.Z * r.Z);
    }
    public static double Cos(Vector l, Vector r) 
    {
        return (l * r) / (l.GetLength() * r.GetLength());
    }
    public override string ToString()
    {
        return string.Format("({0},{1},{2})", X, Y, Z);
    }
}
class Program
{
    static void Main(string[] args)
    {
 
        Vector v1 = new Vector(1, 2, 3);
        Vector v2 = new Vector(4, 5, 6);
        Vector v3 = v1 + v2;
        Vector v4 = v1 - v2;
        double m = v2 * v3;
        double c = Vector.Cos(v1, v2);
 
        Console.WriteLine(v1);
        Console.WriteLine(v2);
        Console.WriteLine(v3);
        Console.WriteLine(v4);
        Console.WriteLine(m);
        Console.WriteLine(c);
        Console.ReadKey();
 
    }
}
Админ: Пользуемся тегами для оформления кода!

Последний раз редактировалось Admin, 03.06.2014 в 20:15.
Ответить с цитированием
  #2  
Старый 03.06.2014, 20:16
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

1) Это C#, а не C++.
2) Тег "КОД" обязателен для использования на форуме, если не оформите код - могут быть проблемы с модерами.
3) Больше похоже на тему для разделов "код на шару" или "работа".
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
  #3  
Старый 03.06.2014, 20:20
MuPoZdATeL MuPoZdATeL вне форума
Прохожий
 
Регистрация: 03.06.2014
Сообщения: 2
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от Bargest
1) Это C#, а не C++.
2) Тег "КОД" обязателен для использования на форуме, если не оформите код - могут быть проблемы с модерами.
3) Больше похоже на тему для разделов "код на шару" или "работа".

Да я вообще не разбираюсь в этом. Я просто прошу помощи.
Я же не заставляю, может просто кому делать нефиг.
Ответить с цитированием
  #4  
Старый 04.06.2014, 09:58
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

Основные преобразования:
вместо фигурных скобок - begin...end
вместо return - Result:= ...
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 15:30.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter