| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Структуры

N3xt_ ©   (2007-05-16 21:45:00) 

Помогите сделать задачу:
Описать структуру с именем AEROFLOT, содержащую следующие поля:
- NAZN - название пункта назначения рейса;
- NUMR - номер рейса;
- TIP - тип самолёта;
Написать программу выполняющую следующие действия:
- ввод с клавиатуры данных в массив AIPORT, состоящий из трех элементов типа AEROFLOT, записи должны быть размещены в алфавитном порядке по названиям пунктов назначения.;
- вывод на экран пунктов назначения и номеров рейсов, обслуживаемых самолётом, тип которого введён с клавиатуры;
- если таких рейсов нет, выдать соответствующее сообщение.
program var5;
uses crt;
type
aeroflot=record
NAZN:string[20];
NUMR:Integer;
TIP:string[20];
end;
var
Aiport:array[1..3] of aeroflot;
i:integer;
begin
clrscr;
for i:=1 to 3 do
begin
Textcolor(green);
writeln(i,')');
Textcolor(white);
with aiport[i] do
 begin
  write('Punkt nazn.: ');readln(NAZN);
  write('Nomer reysa: ');readln(NUMR);
  write('Tip samoleta: ');readln(TIP);
 end;
end;
end.
Вот всё что сделал, дальше не знаю как :(

---

Loginov Dmitry   (2007-05-17 07:51:00) [1]

Чесь громко слишком получилось. Лучше скажу по-другому: для выполнения подобных работ русский язык использовать, ИХМО, не стоит.

А то получается, у кого-то он в Досе не поддерживается, у всех начинается период переписывания всех русских слов заново в ворде, нафик такой геромой.

---

Loginov Dmitry   (2007-05-17 07:41:00) [2]

> не можем в ТР (MSDOS) вывести сообщения на русском


А вот этого делать не надо! Особливо для учебного процесса :)

---

N3xt_   (2007-05-17 05:49:00) [3]

> И аглицкий не знаем и не можем в ТР (MSDOS) вывести сообщения
> на русском :)

Знаю инглиш, препод не знает :)

> Но форматирование кода отвратное!

Ога, отвратительное! :)

---

Германн   (2007-05-17 02:11:00) [4]

Всего-то 4-ре часа и задача решена.
Так зачем было лезть в И-нет?
Но форматирование кода отвратное! Даже с учётом проблем данного форума с вышеназванным.


> Может кому-нибудь пригодится :)
>

Может. Сдавать учебные работы скоро будут многие.
P.S.
> 'Takih tipov samoletov net!

И аглицкий не знаем и не можем в ТР (MSDOS) вывести сообщения на русском :)

---

N3xt_   (2007-05-17 01:53:00) [5]

program var5;
uses crt;
type
aeroflot=record
NAZN:string[20];
NUMR:Integer;
TIP:string[20];
end;
var
Aiport:array[1..3] of aeroflot;
i,j,n,f2:integer;
f,tip2:string;
begin
clrscr;
for i:=1 to 3 do
begin
Textcolor(green);
writeln(i,')');
Textcolor(white);
with aiport[i] do
 begin
  write('Punkt nazn.: ');readln(NAZN);
  write('Nomer reysa: ');readln(NUMR);
  write('Tip samoleta: ');readln(TIP);
 end;
end;
n:=3;
For i:=1 to n-1 do
For j:=n downto i do
With aiport[i] do
If aiport[j].nazn < aiport[j-1].nazn Then
 Begin
  f:=aiport[i].nazn;
  aiport[i].nazn:=aiport[j].nazn;
  aiport[j].nazn:=f;
  f2:=aiport[i].numr;
  aiport[i].numr:=aiport[j].numr;
  aiport[j].numr:=f2;
  f:=aiport[i].tip;
  aiport[i].tip:=aiport[j].tip;
  aiport[j].tip:=f;
End;
clrscr;
textcolor(green);
writeln('Zapis uporydochennaya po mestu nazn: ');
writeln('NAZN',' ','NUMR',' ','TIP');
textcolor(white);
for i:=1 to 3 do
begin
with aiport[i] do
begin
writeln(aiport[i].nazn,' ',aiport[i].numr,' ',aiport[i].tip);
end;
end;
writeln;
textcolor(green);
write('Vvedite tip samoleta: ');readln(tip2);
textcolor(white);
n:=0;
for i:=1 to 3 do
begin
with aiport[i] do
if aiport[i].tip=tip2 then begin
writeln(aiport[i].nazn,' ', aiport[i].numr);
n:=n+1;
end;
end;
if n=0 then writeln('Takih tipov samoletov net!');
readln;
end.
Может кому-нибудь пригодится :)

---

N3xt_   (2007-05-16 22:24:00) [6]

Уже не надо, сам сделал :)

---

Наверх