Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 29.10.2014
Сообщений: 8

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

25.11.2014, 23:21. Показов 1621. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Привет всем , помогите пожалуйста с данной задачей
Подготовить данные об абитуриентах,поступающих в техникум.Информацию о каждом абитуриенте оформить в виде записи,содержащей следующие поля:
1.Фамилия,Имя,Отчество
2.Год рождения
3.Год окончания школы
4.Оценки в аттестате
5.Признак--нуждается ли в общежитии
6.Оценки вступительных экзаменов.
В паскале сделать надо
А вариант попался такой: Абитуриентам, имеющим средний балл больше 4,5 и нуждающимся в общежитии
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
25.11.2014, 23:21
Ответы с готовыми решениями:

Подготовить данные об абитуриентах, поступающих в техникум
Подготовить данные об абитуриентах, поступающих в техникум. Информацию о каждом абитуриенте оформить в виде записи, содержащей следующие...

Подготовить данные об абитуриентах,поступающих в техникум
Помогите плиззз))вот такое зание((: Постановка задачи: Подготовить данные об абитуриентах,поступающих в техникум.Информацию о каждом...

Подготовить данные об абитуриентах, поступающих в техникум
Подготовить данные об абитуриентах, поступающих в техникум. Информацию о каждом абитуриенте оформить в виде записи, содержащей следующие...

5
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
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.
0
0 / 0 / 0
Регистрация: 29.10.2014
Сообщений: 8
26.11.2014, 01:17  [ТС]
Из внешнего файла , содержащие исходные данные, удалить записи, соответствующие :Абитуриентам, имеющим средний балл больше 4,5 и нуждающимся в общежитии
0
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
26.11.2014, 02:02
pepers123, ну тут уж сами. коль скоро не написано было в первом посте.
0
0 / 0 / 0
Регистрация: 29.10.2014
Сообщений: 8
26.11.2014, 03:04  [ТС]
Я просто не успел, эх, жаль.
Рассчитывал на вашу помощь
0
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
26.11.2014, 16:31
Помогаю со студенческими работами здесь

Подготовить данные об абитуриентах, поступающих в техникум
Подготовить данные об абитуриентах, поступающих в техникум. Информацию оформить в виде записей, содержащих следующие поля: 1. Фамилия,...

Подготовить анкетные данные своих ближайших родственников. Оформить сведения о каждом родственнике в виде записи, в котор
Подготовить анкетные данные своих ближайших родственников. Оформить сведения о каждом родственнике в виде записи, в которой определены...

Подготовить данные содержащие информацию о странах мира, данные оформить в виде записи
Исправте ошибки в коде. Програма создания файла не работает. Исправьте пожалуйста ошибки и как нужно переделайте ее. Подготовить...

Подготовить данные содержащие информацию о странах мира, данные оформить в виде записи
у меня есть пример задачи, нужно ее переделать под мое условие помогите пожалуйста вот условие: Подготовить данные содержащие...

Создать файл и занести в него данные об абитуриентах
Создать файл и занести в него данные об абитуриентах: фамилия, год рождения, средний балл аттестата и среднюю оценку на вступительных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Подключение 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 и т. д. Сборка примера Скачайте. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru