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

Блок-схема с оператором цикла.

03.04.2010, 11:34. Показов 25870. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана задача:
Дан одномерный массив В [30] элементы которого формулируются по формуле Bi=i sin i,где i-номер элемента в массиве В .Подсчитать сумму всех отрицательных элементов массива. На экран вывести сам массив и сумму.

Решение:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
{type}
var i:integer;
     f:array[1..30] of real;
     s:real;
begin
     s:=0;
     for i:=1 to 30 do
      begin
        f[i]:=i*sin(i);
        if f[i]<0 then s:=s+f[i];
      end;
     for i:=1 to 30 do
      begin
        writeln('f[',i,']=',f[i]:3:3)
      end;
     writeln ('Summa otricatelnyh elementov massiva', s);
end.
В блок-схеме препод придрался, что якобы не по ГОСТу, подскажите, может, кто-то понимает в чем дело?
Миниатюры
Блок-схема с оператором цикла.  
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
03.04.2010, 11:34
Ответы с готовыми решениями:

Блок-схема цикла repeat
Здравствуйте. Помогите пожалуйста, как выглядит блок-схема для данной программы? repeat writeln('Кол. строк и столбцов'); ...

Блок-Схема (С оператором CASE)
program zadanie3-11; Var a,b,x,y,c:real; n:1..5; Begin write('1&lt;=N&lt;=5: ');readln(n); Case n of 1: Begin write('a,b,c,x:...

Операторы цикла и блок-схема к нему
Помогите решить. Буду безмерно благодарен

9
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
03.04.2010, 12:07
А не нужно таскать к преподу схемы, нарисованные редактором, нужно на их основе рисовать свои, как вам показывали.
0
0 / 0 / 0
Регистрация: 08.11.2009
Сообщений: 13
03.04.2010, 12:22  [ТС]
Ну не в ворде же её рисовать?
тем более, что в программе я её сама правила... вопрос в том, что черточки в операторе цикла я не могу понять зачем? Смотрю ГОСТ, их там нет.. Я думала, может, не те ГОСТы смотрю...

Добавлено через 42 секунды
Только вот как рисовать заочникам не особо показывают

Добавлено через 2 минуты
Составила другую схему, но вот с черточками так и не поняла, зачем они?
0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
03.04.2010, 12:22
Ptica-govorun, тут все рисуют через программы, потому как блок-схемы - это никому ненужная лабуда. Тебе же надо просто спросить у того препода, который не принял её у тебя про ГОСТы и переделать её так как он требует. Тут навряд ли кто-то будет тебе рисовать "вручную".
0
0 / 0 / 0
Регистрация: 08.11.2009
Сообщений: 13
03.04.2010, 12:24  [ТС]
Вот такая блок-схема получилась.
Миниатюры
Блок-схема с оператором цикла.  
0
0 / 0 / 0
Регистрация: 08.11.2009
Сообщений: 13
03.04.2010, 12:26  [ТС]
Да я и не хотела, чтобы мне кто-то рисовал вручную, я просто думала, может, кто ГОСТы подскажет.
0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
03.04.2010, 12:28
Ptica-govorun, у каждого препода эти ГОСТы меняются 8 дней в неделю. Спроси у него как тебе нужно и переделай.
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
03.04.2010, 12:48
Ptica-govorun, Введите в Гугле ГОСТ 19.701-90 (ИСО 5807-85) там много всего.

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

Добавлено через 10 минут
Вот здесь есть пример правильной отрисовки цикла, хоть и не по Госту.
http://subscribe.ru/archive/jo... 04652.html
0
3316 / 1378 / 110
Регистрация: 28.04.2009
Сообщений: 4,822
03.04.2010, 18:27
Ptica-govorun, препод прав.
таких блоков нет в ГОСТе.
Вот на это исправьте.
Миниатюры
Блок-схема с оператором цикла.  
0
 Аватар для all4happy
5 / 1 / 0
Регистрация: 03.04.2010
Сообщений: 23
03.04.2010, 20:10
Вот блок схема, сделанная в ворде.Может кому поможет.
Вложения
Тип файла: doc laba7_alg.doc (79.0 Кб, 667 просмотров)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
03.04.2010, 20:10
Помогаю со студенческими работами здесь

Блок-схема для цикла
Помогите с блок-схемой program one; var x,dob:real; i,j:integer; begin readln(x); sum:=0; for i:=1 to 4 do begin ...

Как выглядит блок-схема цикла с предусловием
КАк выглядит блок-схема цикла с предусловием (Whil do)?

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

Задачи c оператором цикла.
Продолжение задания во вложение

Задача с оператором цикла while
Помогите написать код к задаче: Написать программу, которая вычисляет сумму и среднее арифметическое элементов вектора-строки B=(18 32...


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru