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

Гистограмма успеваемости

22.03.2009, 20:21. Показов 2959. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Написать программу, которая выводит на экран гистограмму успеваемости студентов группы, например, по итогам контрольной работы. Исходные данные следует ввести в алфавитно-цифровом режиме работы.

Помогите, если не трудно!
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
22.03.2009, 20:21
Ответы с готовыми решениями:

Гистограмма массива
Подскажите что мне надо изменить в процедуре что бы в диаграмме показывались и отрицательные значения? procedure diagramma; var...

Массив гистограмма
Кто может написать прогу, которая строит из массива случайных чисел вертикальную гистограмму?

Столбчатая диаграмма (гистограмма)
Столбчатая диаграмма (гистограмма) представляет собой набор прямоугольников, основания которых равны, а высоты пропорциональны числовым...

3
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
22.03.2009, 21:51
Что есть
в алфавитно-цифровом режиме
Мне кажется сделать массив оценок, потом посчитать сколько 2,3,4,5 и нарисовать гистограмму.

Добавлено через 19 минут 1 секунду
Вот примерно так.
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
uses crt;
const n=25;{кол. студ.}
var a:array[1..n] of byte;{массив оценок}
    sm:array[1..4]of byte;{массив количеств}
    i,j:byte;
begin
clrscr;
randomize;
writeln('Spisok ocenok:');
for i:=1 to n do
  begin
    a[i]:=random(4)+2;{2 ..5}
    write(a[i],' ');
  end;
writeln;
writeln;
for i:=1 to 4 do sm[i]:=0;{обнуляем массив}
for i:=1 to n do
if a[i]=2 then {считаем двойки и так далее}
sm[1]:=sm[1]+1
else if a[i]=3 then
sm[2]:=sm[2]+1
else if a[i]=4 then
sm[3]:=sm[3]+1
else if a[i]=5 then
sm[4]:=sm[4]+1;
for i:=1 to 4 do
  begin
    textcolor(i);{устанавливаем цвет}
    write('Kolichestvo ',i+1,'   ');{подпись}
    for j:=1 to sm[i]*2 do{умножаем количество на 2, чтоб подлиннее была полоса}
    write(#220);{выводим квадратик}
    write('  ',sm[i]);{количество}
    writeln;
  end;
readln
end.
1
0 / 0 / 0
Регистрация: 17.03.2009
Сообщений: 5
23.03.2009, 19:20  [ТС]
Puporev, спасибо огромное, то, что нужно!))

P.S. по большей части "алфавитно-цифровой режим и смутил"

Ещё раз спасибо за помощь!
0
Erema-kz
25.11.2013, 20:18
Спасибо!!! Коротко и ясно-примечание и ответ!!!!
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
25.11.2013, 20:18
Помогаю со студенческими работами здесь

Гистограмма в графическом режиме.
ВВести три числа.Построить по ним гистограмму на языке Pascal.

Паскаль-массивы, матрицы , гистограмма.
1.Построить гистограмму для действительных положительных чисел а1, а2...а7. раскрасив каждый столбец в свой цвет. 2.Для...

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

Разработайте алгоритм для анализа успеваемости
4 задача. Разработайте алгоритм для анализа успеваемости. Если процент успеваемости более 60%, студент признан успевающим, иначе –...

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


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru