Связь с администрацией сайта:       

demo

Среди толпы я одинок

Pascal Описать структуру с именем AEROFLOT

Описать структуру с именем AEROFLOT, содержащую следующие поля:
-название пункта назначения рейса
-номер рейса
- тип самолета.
 
Написать программу, выполняющую следующие действия:
-ввод с клавиатуры данных в массив, состоящий из семи элементов типа AEROFLOT
- записи должны быть размещены в алфавитном порядке по названиям пунктов назначения
-вывести введенные данные на дисплей.
 
 
 
 
program Aero; 
 const max=7; 
 type AEROFLOT=record Point:string[25]; Number:integer; Typ:string[10] end;
 var S:array[1..max]of AEROFLOT; St:AEROFLOT; i,j,n:word;
   begin
    n:=0; writeln('Для завершения ввода вместо пункта назн. введите точку'); writeln;
    for i:=1 to max do with S[i] do
     begin
       write('Пункт назначения: ');ReadLn(Point); if Point='.' then break; inc(n);
       write('Номер рейса: '); Readln(Number); 
       write('Тип самолета: '); Readln(Typ);writeln;
     end;
    writeln;
    for i:=1 to n-1 do for j:=1 to n-i do if S[j].Point>S[j+1].Point then
      begin St:=S[j]; S[j]:=S[j+1]; S[j+1]:=St end;
        writeln('Список рейсов');
    for i:=1 to n do with S[i] do WriteLn(Point,'':25-length(Point),Number:5,' ':5,Typ);
       writeln; writeln('Для выхода нажмите Enter'); readln
    end.
 
 
 
Голосуй
(0 Голоса)