Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 14.04.2019
Сообщений: 12

Выяснить, сколько учеников школы не имеют отметок ниже четверок

09.05.2019, 14:54. Показов 1362. Ответов 1

Студворк — интернет-сервис помощи студентам
Сведения об ученике состоят из его имени и фамилии и названия класса (года обучения и буквы), в котором он учится. Дан файл f, содержащий сведения об учениках школы и дополнительные отметки, полученные учениками в последней четверти. Выяснить, сколько учеников школы не имеют отметок ниже четверок.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
09.05.2019, 14:54
Ответы с готовыми решениями:

Выяснить, сколько учеников школы не имеют отметки ниже четырёх.
Задача на теме "запись данных" Выяснить, сколько учеников школы не имеют отметки ниже четырёх.

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

Выяснить, сколько учеников школы не имеют оценок ниже четырех
Дан файл f, содержащий сведения об учениках школы: имени и фамилии и наименование класса (года обучения и буквы), в котором он учится, и...

1
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
09.05.2019, 15:37
Правила: 5.4 Запрещено создавать темы с бессмысленными названиями вроде "Помогите!", "Вопрос" и т.п.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
type
  типФайла = record
    имя, фамилия : String[25];
    класс : String[3];
    отметки : array [1..5] of Byte;
  end;
begin
  var f : file of типФайла;
  var count : Integer;
  var r : типФайлаж
  Reset(f, 'сведения');
  while Not EOF(f) do
    begin
      Read(f, r);
      if (r.отметки[1]>3)and(r.отметки[2]>3)and(r.отметки[3]>3)and(r.отметки[4]>3)and(r.отметки[5]>3) then count+=1;
    end;
  Close(f);
  count.Print;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
09.05.2019, 15:37
Помогаю со студенческими работами здесь

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

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

Выясните, сколько учеников имеют оценки ниже 4
Сведения об ученике состоят с его имени и фамилии, названия класса (года учёбы и буквы), в котором он учится,оценок,полученных учеником за...

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

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


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru