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

Cписок абитуриентов, имеющих в аттестате одну оценку 4, а остальные 5

31.05.2015, 17:15. Показов 1610. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
список абитуриентов, имеющих в аттестате одну оценку 4, а остальные 5.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
31.05.2015, 17:15
Ответы с готовыми решениями:

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

Анкета. Определить абитуриентов-одесситов, имеющих максимальный средний балл в аттестате зрелости
Структура элемента массива «анкета»: фамилия, имя, отчество, год рождения, домашний адрес (город), средняя оценка, год окончания среднего...

Определить абитуриентов-одесситов, имеющих максимальный средний балл в аттестате зрелости
Задание: Структура элемента массива «анкета»: фамилия, имя, отчество, год рождения, домашний адрес (город), средняя оценка за 4 года, год...

4
 Аватар для Phiona
16 / 2 / 6
Регистрация: 08.10.2013
Сообщений: 258
31.05.2015, 21:58
конкретнее?
0
33 / 9 / 11
Регистрация: 20.05.2015
Сообщений: 121
31.05.2015, 22:17
booz, уточните задачу, пожалуйста
0
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 43
01.06.2015, 19:24  [ТС]
вывести список абитуриентов,которые имеют в аттестате только одну оценку 4 а все остальные 5
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,159
Записей в блоге: 1
02.06.2015, 12:40
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
const
  ne_max=100; nm=5;
type
  TEntrant = record
    FIO: String[59];
    m: array [1..nm] of Integer;
  end;
var
  e: array [1..ne_max] of TEntrant;
  i, j, n, n5, n4: Integer;
begin
  repeat
    Write('Количество абитуриентов [1..',ne_max,']: '); ReadLn(n);
  until n in [1..100];
  for i:=1 to n do with e[i] do begin
    Write(i:3,'Ф.И.О.: ':9); ReadLn(FIO);
    Write('Оценки: ':12); for j:=1 to nm do Read(m[j]); ReadLn;
  end;
  WriteLn('Список абитуриентов с одной 4, остальными 5:');
  for i:=1 to n do with e[i] do begin
    n4:=1; n5:=nm-1;
    for j:=1 to nm do case m[j] of 4: Dec(n4); 5: Dec(n5); end;
    if (n4=0) and (n5=0) then WriteLn(FIO);
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
02.06.2015, 12:40
Помогаю со студенческими работами здесь

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

Определить количество абитуриентов, получивших хотя бы одну оценку «7»
Определить количество абитуриентов, получивших хотя бы одну оценку «7».

Определить количество абитуриентов, получивших хотя бы одну оценку "7"
Определить количество абитуриентов, получивших хотя бы одну оценку "7".

Распечатать анкетные данные студентов, получивших за все время обучения одну оценку 3, остальные 4 и 5.
Помогите с заданием.. Распечатать анкетные данные студентов, получивших за все время обучения одну оценку 3, остальные 4 и 5.

Для студентов, имеющих хотя бы одну неудовлетворительную оценку, заменить величину стипендии на ноль
для студентов,имеющих хотя бы одну неудовлетворительную оценку, заменить величину степендии на ноль .Вывести фамилии этих студентов


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru