Паскаль. Типы данных

[kolashik]

не понимаю, помогите написать программу



1. Описать пользовательский тип данных с именем MARSH типа запись
(RECORD), содержащий следующие поля:
- BEGST - название начального пункта маршрута - (тип STRING);
- TERM - название конечного пункта маршрута - (тип STRING);
- NUMER - номер маршрута (тип INTEGER).
2. Написать программу, выполняющую следующие действия:
- ввод с клавиатуры данных в массив TRAFIC, состоящий из 8-и эле-
ментов типа MARSH; записи должны быть упорядочены по номерам маршру-
тов.
- вывод на экран информации о маршрутах, которые начинаются или
кончаются в пункте, название которого введено с клавиатуры;
- если таких маршрутов нет - выдать на дисплей соответствующее
сообщение
Выбор режима работы программы и ввод исходных данных осуществля-
ется через окно диалога. Формируемый массив TRAFIC отображаетя в окне
исходных данных. Результаты поиска отображаются в окне результатов.

[Linky]

Как-то так..

uses crt;
const N=8;
type
    MARSH=record
        BEGST:string;
        TERM:string;
        NUMBER:integer;
    end;

var
    TRAFIC:array[1..N]of MARSH;
    
procedure input;
var
i:integer;
begin
    for i:=1 to N do
    begin
        writeln('Введите название начального пункта маршрута');
        read(trafic[i].begst);
        writeln('название конечного пункта маршрута');
        read(trafic[i].term);
        writeln('Введите номер маршрута');
        read(trafic[i].number);
    end;
end;

procedure sort;
var
i,j,tmp:integer;
tmp1,tmp2:string;
begin
for i:=n-1 downto 1 do
    for j:=1 to i do
        if trafic[j].number>trafic[j+1].number then
        begin
            tmp:=trafic[j].number;
            trafic[j].number:=trafic[j+1].number;
            trafic[j+1].number:=tmp;
            
            tmp1:=trafic[j].begst;
            trafic[j].begst:=trafic[j+1].begst;
            trafic[j+1].begst:=tmp1;
            
            tmp2:=trafic[j].term;
            trafic[j].term:=trafic[j+1].term;
            trafic[j+1].term:=tmp2;
        end;
end;

procedure output;
var
s:string;
i,k:integer;
begin
    writeln('Введите название маршрута по которому хотите получить информацию');
    read(s);k:=0;
    for i:=1 to N do
        if (s=trafic[i].begst) or (s=trafic[i].term)then
        begin
             writeln('Искомый маршрут:');
             writeln('    Начальный пункт: ', trafic[i].begst);
             writeln('    Конечный: ', trafic[i].term);
             writeln('    Номер маршрута: ', trafic[i].number);
             k:=1;
        end;
    if k=0 then writeln('Таких маршрутов нет.');
end;
{*****************}
begin
    clrscr;
    input;
    sort;
    output;
    readkey;
end.

[kolashik]

Спасибо ОГРОМНОЕ
Выручил

[Alenchik]

Введите 3 стороны одного треугольника и 3 стороны другого. Будут ли они подобные

[MyLastHit]

Введите 3 стороны одного треугольника и 3 стороны другого. Будут ли они подобные.

Ты наверное еще в классе эдак шестом... трейгольник подобны, если их стороны равно-пропорциональны, говорилось на уроках геометрии 7 класса... А вообще лучше в этой задаче(чтоб не рассматривать все возможные случаи пропорции) найти 3 угла одно треугольника и 3 угла второго, по теореме косинусов. И сравнить их