Текущий архив: 2007.06.03;
Скачать: CL | DM;

Вниз

Структуры   Найти похожие ветки 

← →
N3xt_   (2007-05-16 21:45) [0]

Помогите сделать задачу:
Описать структуру с именем 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.
Вот всё что сделал, дальше не знаю как :(

---

← →
N3xt_   (2007-05-16 22:24) [1]

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

---

← →
N3xt_   (2007-05-17 01:53) [2]

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.
Может кому-нибудь пригодится :)

---

← →
Германн ©   (2007-05-17 02:11) [3]

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


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

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

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

---

← →
N3xt_   (2007-05-17 05:49) [4]

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

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

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

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

---

← →
Loginov Dmitry ©   (2007-05-17 07:41) [5]

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


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

---

← →
Loginov Dmitry ©   (2007-05-17 07:51) [6]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2007.06.03;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.038 c