Вычисление студентов, сдающих нормы ГТО

@Irochka_sever · Регистрация: 22.05.2015

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

И еще один вопрос. вроде программа работает, все ок. но с блок-схемой затык получился.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var e,a,n,r:real;
begin
Write('Введите количество студентов =');
read(n); 
   write('введите норматив =');  
read(r); 
   write('введите результаты ='); 
repeat 
readln(a); 
if a>=r then e:=e+1; 
n:=n-1; 
until n<=0; 
  write(e); 
end.

@abit · 23.05.2015, 00:27

программа шлак, вот начнём с первой строк

Pascal
1
2
3
4
var e,a,n,r:real;
begin
Write('Введите количество студентов =');
read(n);

вы в базовых типах паскаля разберитесь, во первых real это костыль, как минимум double юзайте вместо real (но это уровень архитектурный, соглашусь, могли не знать), но какого компостера в тип real надо хоронить количество студентов, где бывает 3.1415 студента? да и вообще количество переменных здесь избыточно, научитесь нормально писать код, забудьте пока эти блок-схемы

сперва синтаксис паскаля изучите, а умение фигачить блок-схемы полезно разве что в ООП, но совсем с другим смыслом

@JokeR.BY · 23.05.2015, 00:45

Не по теме:

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

Добавлено через 1 минуту
а автору - напишите подробнее задание.

@abit · 23.05.2015, 06:52

Не по теме:

JokeR.BY, изначально в СССР программисты делились на алгоритмистов и кодеров, первые составляли алгоритмы, как раз у них был инструмент блок-схемы, вторые это всё писали в фортран/ассемблер/и прочее типа алгола, сейчас программист - это юнит, который выполняет всё - от распиновки конкретной платы, впайки туда микросхемы, написания дров под эту плату под разные платформы, до SDK и IDE, прошлое ушло, только в школах остались эти блок схемы на алгоритмы, давно пора им перейти на полноценную дискретную математику

@JokeR.BY · 23.05.2015, 15:11

Не по теме:

abit, что не отменяет полезности блок-схем на начальном этапе обучения.

@Irochka_sever · 24.05.2015, 16:36 **[ТС]**

abit, согласна, что могла использовать лопату чтобы разрезать хлеб (образно говоря), но ведь работает))))
JokeR.BY, по поводу полного задания:

Группа, состоящая из n студентов, сдает нормы ГТО по метанию гранаты. Результат каждого студента хранится в ЭВМ, определить, сколько студентов выполнило норму ГТО.

Вот.

Не по теме:

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

@JokeR.BY · 24.05.2015, 18:53

Сообщение от Irochka_sever

Результат каждого студента хранится в ЭВМ

эта фраза говорит о том, что результат заносится в массив. да, толку от этого никакого, но тем не менее.
Как я понимаю, результат метания гранаты должон быть вещественным. НО, так как данные вводятся с клавиатуры - вряд ли пользователь введёт число с очень высокой точностью. то бишь, можно с лёгкой душой выбрать тип Single. НО сравнивать вещественные на равенство (>=) - не лучшая идея. для этих целей находится разность чисел и сравнивается с заданной погрешностью.

Сообщение от Irochka_sever

Группа, состоящая из n студентов

Сообщение от Irochka_sever

сколько студентов выполнило норму

количество студентов - оно как бы неотрицательное число. имеет смысл использовать беззнаковый тип (Byte, Word).

выходит в общих чертах что-то типа такого:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
    eps = 0.01;
var
    i, n, count: Word;
    res: Array[Word] Of Single;
    norm: Single;
begin
    count := 0;
    repeat
        Write('n='); ReadLn(n);
    until (n > 0);
    repeat
        Write('norma='); ReadLn(norm);
    until (norm > 0);
    for i := 0 to n - 1 do
    begin
        Write('res[', i + 1, ']='); ReadLn(res[i]);
        if (norm - res[i] <= eps)
        then
            Inc(count);
    end;
    WriteLn('count=', count);
end.

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
    eps = 0.01;
var
    n, count: Word;
    res, norm: Single;
begin
    count := 0;
    repeat
        Write('n='); ReadLn(n);
    until (n > 0);
    repeat
        Write('norma='); ReadLn(norm);
    until (norm > 0);
    repeat
        Write('res: '); ReadLn(res);
        if (norm - res <= eps)
        then
            Inc(count);
        Dec(n);
    until (n = 0);
    WriteLn('count=', count);
end.

Новые блоги и статьи Все статьи Все блоги /
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 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	23.05.2015, 00:45
	Не по теме: abit, изначально блок схемы предназначались для предварительного составления алгоритма, то бишь графическая интерпретация псевдокода. и уже по оной писался код. так что зря вы так о них. Добавлено через 1 минуту а автору - напишите подробнее задание. 0

@abit
	23.05.2015, 06:52
	Не по теме: JokeR.BY, изначально в СССР программисты делились на алгоритмистов и кодеров, первые составляли алгоритмы, как раз у них был инструмент блок-схемы, вторые это всё писали в фортран/ассемблер/и прочее типа алгола, сейчас программист - это юнит, который выполняет всё - от распиновки конкретной платы, впайки туда микросхемы, написания дров под эту плату под разные платформы, до SDK и IDE, прошлое ушло, только в школах остались эти блок схемы на алгоритмы, давно пора им перейти на полноценную дискретную математику 0

@JokeR.BY
	23.05.2015, 15:11
	Не по теме: abit, что не отменяет полезности блок-схем на начальном этапе обучения. 0

@Irochka_sever 0 / 0 / 0 Регистрация: 22.05.2015 Сообщений: 4
	24.05.2015, 16:36 [ТС]
	abit, согласна, что могла использовать лопату чтобы разрезать хлеб (образно говоря), но ведь работает)))) JokeR.BY, по поводу полного задания: Группа, состоящая из n студентов, сдает нормы ГТО по метанию гранаты. Результат каждого студента хранится в ЭВМ, определить, сколько студентов выполнило норму ГТО. Вот. Не по теме: а вообще блок-схема нужна, ибо преподаватели смотрят первым делом ее, а потом уже программу. И для понимания - программистом я не буду, кодировщиком и т.д. зачем будущему специалисту банковского дела паскаль, делфи и культурология я понятия не имею. честно. 0