Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Emelya14
1 / 1 / 1
Регистрация: 25.11.2011
Сообщений: 30
1

Описать запись с именем "Route"

13.02.2012, 17:07. Просмотров 426. Ответов 1
Метки нет (Все метки)

1. Описать запись с именем "Route", содержащую следующие поля:
*название начального пункта маршрута
*название конечного пункта маршрута
*номер маршрута

Это всё сделано , осталось задание

Написать программу,выполняющую следующие действия
ввод данных с клавиатуры в массив, состоящий из восьми элементов типа Route, с упорядочением записей по номерам маршрутов(т.е. сделать сортировку ) . Помогите пожалуйста, или хотябы подскажите как это делать вообще(

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
var a:array [1..8] of route;
i,n,x:integer;
S:string;
f:text;
 
Procedure Swap(x,y:route);
var t:route;
    begin
     t:=x;
     x:=y;
     y:=t;
    end;
 
begin
   clrscr;
   Write('Введите название файла для записи: ');readln(s);
   s:=s+'.txt';
   assign(f,s);
   rewrite(f);
   Write('Кол-во маршрутов = ');readln(n);
   For i:=1 to n do
   with a[i] do
     begin
     Writeln(f,i,'.',#13,#10);
     Write('Название ',i,'-го начального маршрута: ');readln(NachaloM); Writeln(f,NachaloM,#13,#10);
     Write('Название конечного маршрута: ');readln(KonecM); Writeln(f,KonecM,#13,#10);
     Write('Номер маршрута: ');readln(NomerM); Writeln(f,NomerM,#13,#10);
     writeln;writeln;
     end;
   Write('Укажите номер маршрута для вывода информации: ');readln(x);
   For i:=1 to n do
   with a[i] do
   if NomerM=x then
        begin
        writeln('Начало маршрута: ',NachaloM);
        writeln('Конец маршрута: ',KonecM);
        writeln('Номер маршрута: ',NomerM);
        end;
   close(f);
   readkey;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.02.2012, 17:07
Ответы с готовыми решениями:

Описать запись с именем "Route"
1. Описать запись с именем "Route", содержащую следующие поля: *название начального пункта...

Описать запись с именем Route
Ещё задание помогите если не сложно Задание 1: Описать запись с именем Route, содержащую...

Из слова "клоун" путем "вырезок" и "склеек" его букв получить слова "уклон","кулон" и "колун"
Из слова "клоун" путем "вырезок" и "склеек" его букв получить слова "уклон","кулон" и...

Даны текстовый файл "F" и строка "S". Получить все строки файла "F", содержащие в качестве фрагмента строку "S".
Плиз помогите написать прогу: Даны текстовый файл "F" и строка "S". Получить все строки файла "F",...

Пожалуйста, составьте программу, которая из слов"СТРАХ","БЕЛКА","ЦЫПЛЁНОК" получает слово "СТОЛБЕЦ"
Пожалуйста, составьте программу, которая из слов"СТРАХ","БЕЛКА","ЦЫПЛЁНОК" получает слово "СТОЛБЕЦ".

1
Puporev
Модератор
55003 / 42301 / 29210
Регистрация: 18.05.2008
Сообщений: 99,948
13.02.2012, 18:01 2
Ни о каком файле в задании и слова нет.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
uses crt;
const n=8;
type route=record
           NachaloM:string[20];
           KonecM:string[20];
           NomerM:integer;
           end;
var a:array [1..n] of route;
    i,j:integer;
 
Procedure Swap(var x,y:route);
var t:route;
begin
t:=x;
x:=y;
y:=t;
end;
 
begin
clrscr;
writeln('Введите данные о маршрутах:');
For i:=1 to n do
with a[i] do
 begin
  Write('Номер ',i,' маршрута: ');readln(NomerM);
  Write('Начальный пункт: ');readln(NachaloM);
  Write('Конечный пункт: ');readln(KonecM);
  writeln;
 end;
clrscr;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].NomerM>a[j].NomerM then Swap(a[i],a[j]);
writeln('Маршруты по возрастанию номеров:');
writeln('---------------------------------------------');
writeln('| Номер | Начальный пункт | Конечный пункт  |');
writeln('---------------------------------------------');
for i:=1 to n do
with a[i] do
 begin
  gotoXY(1,whereY);write('|',NomerM:6);
  gotoXY(9,whereY);write('| ',NachaloM);
  gotoXY(27,whereY);write('| ',KonecM);
  gotoXY(45,whereY);writeln('|');
 end;
writeln('---------------------------------------------');
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.02.2012, 18:01

Изобразить стрелку и осуществить движение по клавишам "вверх", "вниз", "вправо", "влево"
Необходимо изобразить стрелку и осуществить движение по клавишам "вверх", "вниз", "вправо", "влево".

Удвоить в строке буквы "ю", "ъ", "ф", "э", а между словами оставить только по одному пробелу
Пользователь заполняет символьную строку русскими буквами. Буквы ю, ъ, ф, э в ней нужно удвоить, а...

Описать запись с именем Gora
1. Описать запись с именем Gora, содержащую следующие поля: □ наименование; □ высота над...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru