Подготовить данные об абитуриентах

@pepers123 · Регистрация: 29.10.2014

Студворк — интернет-сервис помощи студентам

Привет всем , помогите пожалуйста с данной задачей
Подготовить данные об абитуриентах,поступающих в техникум.Информацию о каждом абитуриенте оформить в виде записи,содержащей следующие поля:
1.Фамилия,Имя,Отчество
2.Год рождения
3.Год окончания школы
4.Оценки в аттестате
5.Признак--нуждается ли в общежитии
6.Оценки вступительных экзаменов.
В паскале сделать надо
А вариант попался такой: Абитуриентам, имеющим средний балл больше 4,5 и нуждающимся в общежитии

@JokeR.BY · 26.11.2014, 00:03

а что именно этим абитуриентам?

Добавлено через 17 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
type
    F_I_O = record
        familia : String[25];
        imia : String[15];
        otchestvo : String[30];
    end;
    Ocenka = record
        predmet : String;
        ocenka : Byte;
    end;
    Abiturient = record
        fio : F_I_O;
        god_rozhd : Word;
        god_shkl : Word;
        attestat : Array[0..255] Of Ocenka;
        obsch : Boolean;
        ekzam : Array[0..2] Of Ocenka; //или сколько там вступительных
    end;
 
var
    a : Array[0..255] Of Abiturient;
    state : Array[0..255] Of Byte;
    i, j, n, no : Byte;
    isOK : Byte = 0;
    sum : Word;
    s : String[3];
 
begin
    Write('Количество абитуриентов: '); ReadLn(n);
    for i := 0 to n-1 do
    begin
        with a[i] do
        begin
            with fio do
            begin
                Write('Фамилия: '); ReadLn(familia);
                Write('Имя: '); ReadLn(imia);
                Write('Отчество: '); ReadLn(otchestvo);
            end;
            Write('Год рождения: '); ReadLn(god_rozhd);
            Write('Год окончания школы: '); ReadLn(god_shkl);
            Write('Количество предметов в аттестате: '); ReadLn(no);
            sum := 0;
            for j := 0 to no-1 do
                with attestat[j] do
                begin
                    Write('Введите название предмета: '); ReadLn(predmet);
                    Write('Оценка: '); ReadLn(ocenka);
                    sum := sum + ocenka;
                end;
            Write('Нуждается ли в общежитии [Да / Нет]: '); ReadLn(s);
            obsch := (s = 'Да');
            for j := 0 to 2 do
                with ekzam[j] do
                begin
                    Write('Название экзамена: '); ReadLn(predmet);
                    Write('Оценка: '); ReadLn(ocenka);
                end;
            if (obsch And ((sum / no) > 4.5)) then
            begin
                state[isOK] := i;
                Inc(isOK);
            end;
        end;
    end;
    WriteLn; WriteLn;
    for i := 0 to isOK-1 do
        with a[state[i]].fio do
            WriteLn(familia, ' ', imia, ' ', otchestvo);
end.

@pepers123 · 26.11.2014, 01:17 **[ТС]**

Из внешнего файла , содержащие исходные данные, удалить записи, соответствующие :Абитуриентам, имеющим средний балл больше 4,5 и нуждающимся в общежитии

@JokeR.BY · 26.11.2014, 02:02

pepers123, ну тут уж сами. коль скоро не написано было в первом посте.

@pepers123 · 26.11.2014, 03:04 **[ТС]**

Я просто не успел, эх, жаль.
Рассчитывал на вашу помощь

@JokeR.BY · 26.11.2014, 16:31

запись в файл

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
type
    F_I_O = record
        familia : String[25];
        imia : String[15];
        otchestvo : String[30];
    end;
    Ocenka = record
        predmet : String;
        ocenka : Byte;
    end;
    Abiturient = record
        fio : F_I_O;
        god_rozhd : Word;
        god_shkl : Word;
        attestat : Array[0..255] Of Ocenka;
        obsch : Boolean;
        ekzam : Array[0..2] Of Ocenka; //или сколько там вступительных
    end;
 
var
    a : Abiturient;
    i, j, n, no : Byte;
    s : String[3];
    f : File Of Abiturient;
 
begin
    Assign(f, 'f.dat'); ReWrite(f);
    Write('Количество абитуриентов: '); ReadLn(n);
    for i := 0 to n-1 do
    begin
        with a do
        begin
            with fio do
            begin
                Write('Фамилия: '); ReadLn(familia);
                Write('Имя: '); ReadLn(imia);
                Write('Отчество: '); ReadLn(otchestvo);
            end;
            Write('Год рождения: '); ReadLn(god_rozhd);
            Write('Год окончания школы: '); ReadLn(god_shkl);
            Write('Количество предметов в аттестате: '); ReadLn(no);
            attestat[0].predmet := 'Количество оценок';
            attestat[0].ocenka := no;
            for j := 1 to no do
                with attestat[j] do
                begin
                    Write('Введите название предмета: '); ReadLn(predmet);
                    Write('Оценка: '); ReadLn(ocenka);
                end;
            Write('Нуждается ли в общежитии [Yes / No]: '); ReadLn(s);
            obsch := (s = 'Yes');
            for j := 0 to 2 do
                with ekzam[j] do
                begin
                    Write('Название экзамена: '); ReadLn(predmet);
                    Write('Оценка: '); ReadLn(ocenka);
                end;
        end;
        Write(f, a);
    end;
    Close(f);
end.

Добавлено через 15 секунд
фильтрация файла

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
type
    F_I_O = record
        familia : String[25];
        imia : String[15];
        otchestvo : String[30];
    end;
    Ocenka = record
        predmet : String;
        ocenka : Byte;
    end;
    Abiturient = record
        fio : F_I_O;
        god_rozhd : Word;
        god_shkl : Word;
        attestat : Array[0..255] Of Ocenka;
        obsch : Boolean;
        ekzam : Array[0..2] Of Ocenka; //или сколько там вступительных
    end;
 
var
    a : Abiturient;
    i, j : Byte;
    sum : Word;
    f : File Of Abiturient;
 
begin
    Assign(f, 'f.dat'); Reset(f);
    Seek(f, 0);
    WriteLn('Список нефильтрованных абитуриентов: ');
    while Not(Eof(f)) do
    begin
        Read(f, a);
        with a.fio do
            WriteLn(familia, ' ', imia, ' ', otchestvo);
    end;
    //фильтрация
    Seek(f, 0);
    while Not(Eof(f)) do
    begin
        Read(f, a);
        with a do
        begin
            sum := 0;
            for i := 1 to attestat[0].ocenka do
                with attestat[i] do
                    sum := sum + ocenka;
            if (obsch And ((sum / attestat[0].ocenka) > 4.5)) then
            begin
                j := FilePos(f) - 1;
                Seek(f, j);
                for i := j to FileSize(f) - 2 do
                begin
                    Seek(f, i+1);
                    Read(f, a);
                    Seek(f, i);
                    Write(f, a);
                end;
                Seek(f, FileSize(f) - 1);
                TrunCate(f);
                Seek(f, j);
            end;
        end;
    end;
    Seek(f, 0);
    WriteLn('Список фильтрованных абитуриентов: ');
    while Not(Eof(f)) do
    begin
        Read(f, a);
        with a.fio do
            WriteLn(familia, ' ', imia, ' ', otchestvo);
    end;
    Close(f);
end.

Новые блоги и статьи Все статьи Все блоги /
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

@pepers123 0 / 0 / 0 Регистрация: 29.10.2014 Сообщений: 8

	Подготовить данные об абитуриентах 25.11.2014, 23:21. Показов 1621. Ответов 5 Метки нет (Все метки) Привет всем , помогите пожалуйста с данной задачей Подготовить данные об абитуриентах,поступающих в техникум.Информацию о каждом абитуриенте оформить в виде записи,содержащей следующие поля: 1.Фамилия,Имя,Отчество 2.Год рождения 3.Год окончания школы 4.Оценки в аттестате 5.Признак--нуждается ли в общежитии 6.Оценки вступительных экзаменов. В паскале сделать надо А вариант попался такой: Абитуриентам, имеющим средний балл больше 4,5 и нуждающимся в общежитии 0

@pepers123 0 / 0 / 0 Регистрация: 29.10.2014 Сообщений: 8
	26.11.2014, 01:17 [ТС]
	Из внешнего файла , содержащие исходные данные, удалить записи, соответствующие :Абитуриентам, имеющим средний балл больше 4,5 и нуждающимся в общежитии 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	26.11.2014, 02:02
	pepers123, ну тут уж сами. коль скоро не написано было в первом посте. 0

@pepers123 0 / 0 / 0 Регистрация: 29.10.2014 Сообщений: 8
	26.11.2014, 03:04 [ТС]
	Я просто не успел, эх, жаль. Рассчитывал на вашу помощь 0