Задать вопрос
5 октября, 03:46

Здравствуйте. Помогите сделать задачу на PascalABC, попросили сделать с помощью записей.

Составить программу, которая

вводит данные о студентах:

№ п/п, фамилию, год рождения, пол, курс, вид спорта и выводит: выводит данные только о спортсменках по курсам и

видам спорта в алфавитном порядке.

+4
Ответы (1)
  1. 5 октября, 07:39
    0
    const n=3;

    type student=record

    fam:string[20];

    year:integer;

    sex:string[1];

    kurs:integer;

    sport:string[30];

    end;

    var x:array[1 ... n] of student; i, j:integer;

    p:student;

    begin

    for i:=1 to n do

    with x[i] do begin

    writeln ('сведенья о ', i,' студенте:');

    writeln ('фамилия: ');

    read (fam);

    writeln ('год рождения: ');

    read (year);

    writeln ('пол (м или ж) : ');

    read (sex);

    writeln ('курс: ');

    read (kurs);

    writeln ('вид спорта: ');

    read (sport);

    end;

    for i:=1 to n-1 do

    for j:=i+1 to n do

    if x[i]. fam>x[j]. fam then begin

    p:=x[i];

    x[i]:=x[j];

    x[j]:=p;

    end;

    for i:=1 to n do begin

    with x[i] do

    if (sex='ж') then writeln ('Фамилия студентки: ', fam,' Курс: ', kurs,' Вид спорта: ', sport);

    end;

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Здравствуйте. Помогите сделать задачу на PascalABC, попросили сделать с помощью записей. Составить программу, которая вводит данные о ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы