VPF::2-хмерный массив ? - Форум программистов

kolashik

Дата 11.3.2009, 00:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 11.3.2009

Репутация: нет
Всего: нет

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

Добавлено через 1 минуту и 27 секунд
Что можно с этим сделать эксперты?

Christoph

Дата 11.3.2009, 00:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: нет
Всего: 11

Тут же написали, как что делать, по шагам расписано

--------------------

kolashik

Дата 11.3.2009, 00:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 11.3.2009

Репутация: нет
Всего: нет

не могу понять с чего начать, и как продолжить((

Christoph

Дата 11.3.2009, 00:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: нет
Всего: 11

Цитата(kolashik @ 11.3.2009, 00:19)

не могу понять с чего начать, и как продолжить((

написано создать пользовательский тип данных типа Record посмотри в книге, в инете, как объявлять, какой синтаксис, надо сделать массив из записи смотри примеры в инете, пробуй написать что то сам, а потом мы подскажем

--------------------

kolashik

Дата 11.3.2009, 01:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 11.3.2009

Репутация: нет
Всего: нет

попробую

Metalex

Дата 11.3.2009, 10:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

Даю подсказку:

Код

type
MARSH=record
BEGST:string [здесь макс. кол-во символов на слово];

А дописать попробуй сам.

--------------------

Don't let the system get you down.

kolashik

Дата 11.3.2009, 23:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 11.3.2009

Репутация: нет
Всего: нет

Как то так, если где то не правильно помогите исправить пожалуйста))

Код

PROGRAM Lab6;

type
  TMarsh = record
    BegSt: String;
    Term: String;
    Numer: Integer;
  end;

VAR
TRAFIC,TRAFIC_bef: ARRAY[1..8] of TMarsh;
Hours, Minutes, S:String;
Hr, Min, i, j, i0, Max, Num,TMarsh_Numer:Integer;
TMarsh_Exists:BOOLEAN;

BEGIN

FOR i:=1 TO 8 DO
BEGIN
Write(Ââåäèòå íîìåð ïîåçäà ); ReadLn(TRAFIC_bef[i].Numer);
Write('Ââåäèòå ïóíêò íàçíà÷åíèÿ '); ReadLn(TRAFIC_bef[i].BegSt);
Write('Âðåìÿ îòïðàâëåíèÿ. Ââåäèòå ÷àñû '); Readln(Hr);
Str(Hr,S);
IF Hr>=10 THEN Hours:=S ELSE Hours:='0'+S[1];
Str(Min,S);
Write('Âðåìÿ îòïðàâëåíèÿ. Ââåäèòå ìèíóòû '); Readln(Min);
IF Min>=10 THEN Minutes:=S ELSE
Minutes:='0'+S[1];
TRAFIC_bef[i].Term:=Hours+'.'+Minutes;
END;

Num:=8;
FOR j:=1 TO 8 DO
BEGIN
Max:=10000;
FOR i:=1 TO Num DO
IF TRAFIC_bef[i].Numer<Max THEN
BEGIN
Max:= TRAFIC_bef[i].Numer;
i0:=i;
END;
TRAFIC[j]:=TRAFIC_bef[i0];
IF i0=Num THEN Dec(Num) ELSE
BEGIN
FOR i:=i0+1 TO Num DO TRAFIC_bef[i-1]:=TRAFIC_bef[i];
Dec(Num);
END;
END;

WriteLn;
WriteLn('Ðàñïèñàíèå:');
FOR i:=1 TO 8 DO
BEGIN
Write('Ïîåçä N: ', TRAFIC[i].Numer);
Write(' Ïóíêò: ', TRAFIC[i].BegSt);
Write(' Âðåìÿ: ', TRAFIC[i].Term);
Writeln;
END;
WriteLn('Äëÿ ïðîäîëæåíèÿ íàæìèòå "ENTER"');
ReadLn;

WriteLn;
Writeln('Äëÿ âûõîäà èç ïðîãðàììû ââåäèòå íóëåâîé íîìåð ïîåçäà');
REPEAT
TMarsh_Exists:=FALSE;
Write('Ââåäèòå íîìåð ïîåçäà '); ReadLn(TMarsh_Numer);
IF TMarsh_Numer>0 THEN
BEGIN
i:=0;
REPEAT
Inc(i);
IF i<9 THEN
IF TRAFIC[i].Numer=TMarsh_Numer THEN
BEGIN
TMarsh_Exists:=TRUE;
Writeln('Ïîåçä N: ', TMarsh_Numer);
Writeln('Ïóíêò íàçíà÷åíèÿ: ', TRAFIC[i].BegSt);
Writeln('Âðåìÿ îòïðàâëåíèÿ: ', TRAFIC[i].Term);
END;
UNTIL (TMarsh_Exists) OR (i=9);
IF i=9 THEN WriteLn('Òàêîãî ïîåçäà íåò!');
WriteLn;
END;
UNTIL TMarsh_Numer = 0;

END.

Это сообщение отредактировал(а) volvo877 - 14.3.2009, 13:11

volvo877

Дата 14.3.2009, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(kolashik @ 11.3.2009, 22:50

)

если где то не правильно помогите исправить пожалуйста

Возьми и запусти это, узнаешь, правильно или нет. И где неправильно - тоже узнаешь, компилятор тебе скажет. А разбираться в тех каракулях, которые ты сюда вывалил (ты даже кодировку поправить не соизволил) - извини, никому не надо.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »