Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.041 c
2-1179338905
Strate
2007-05-16 22:08
2007.06.03
Функция проверки строки...


1-1175780961
rvg666
2007-04-05 17:49
2007.06.03
Как с помощью потока создать компоненты


2-1179105337
Wood
2007-05-14 05:15
2007.06.03
TDateTimepicker, значение...


15-1178860817
Steep
2007-05-11 09:20
2007.06.03
FTP сервер


2-1178989842
Gaara_of_the_Desert
2007-05-12 21:10
2007.06.03
Создание объектов на форме





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский