singlepost

Ктонибудь может помочь решить задачу на паскале? << На главную или назад  

Составить укрупненный алгоритм и программу на языке высокого уровня для решения задачи по своему варианту. Язык программирования и вариант исходных данных выбрать по последней цифре номера зачетной книжки.
В текстовом файле имеются данные для N воздушных целей, опреде-ленных станцией слежения в момент времени T0
альфа i, V гор i ,V вер i , фи i ,H i ,L i
… и т.д. (число целей заранее не известно)
Параметры движения постоянны. Составить программу для расчета траектории движения целей и определения величин, указанных в таблице для своего варианта.
Программа должна визуализировать начальное положение целей и траекторию их движения, а также основные показатели целей, включая расчетные значения по своему варианту.

Номер цели, которая пройдет на минимальном расстоянии по прямой дальности от станции слежения.

17 ответов в теме “Ктонибудь может помочь решить задачу на паскале?”

  1. 3
    Дмитрий Бородин ответил:

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

  2. 2
    Серж Андреев ответил:

    Моделирование. Ну, нарисовать, полагаю, сможете. Формулы есть? Давайте с начала.

    Чтение файла на паскале:
    var textfile : text;
    ___strings : array[1..1000] of string[30];
    ___i : integer;

    begin
    __Assign(textfile,'FileOfData.txt');
    __Reset(textfile);
    __i := 1;
    __while not Eof(TextFile) do begin readln(textfile,strings[i]); inc(i); end;
    end.

    Вот таким образом файл читаем. Это, конечно, самый простой способ. Дальше развивайте мысль…

    Я бы еще объект описал например так:
    Type
    __target = object
    ____vx,vy,fi ,HOfi,LOfi…: real;
    ____constructor create(var textfile: text;varindex : integer); {бум грузить сразу в объект}
    ____function flytointimedo(…):boolean;
    ____procedure printcoord(…);
    ____…
    __end;

    Ну и так далее…

    И вся прога в итоге выльется в нечто типа:

    var targets : array[1..1000] of ^target;
    ___tf : text;
    ___i : integer;

    begin
    __Assign(tf,'file.txt');
    __i := 1;
    __while Not Eof(tf) do new(targets[i],create(fl,i));
    __for i:=1 to i do targets[i]^.printcoord();
    end;

  3. 1
    Жека Кирпичев ответил:

    В чем затруднения?

Клуб программистов работает уже ой-ой-ой сколько, а если поточнее, то с 2007 года.