Блок схема на Pascal

@Drug · Регистрация: 19.12.2009

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

Всем заранее спасибо!!
1. Постройте блок-схему для фрагмента программы и определите, что будет напечатано:

Pascal
1
2
3
k:=1; f:=2;
if k<3 then begin Writeln(f); k:=k + 1 end
else f:=f - k; k:=k - 1;

2. Постройте блок-схему и напишите программу: {это задание мне особенно не понятно}
Меньшее из двух чисел заменить его абсолютной величиной.

3. Постройте блок-схему для фрагмента программы и определите, что будет напечатано:

Pascal
1
2
3
k:=1; f:=2;
if k<1 then begin k:=k + 1; f:=f + k end;
Writeln(k);

@Drug · 06.01.2010, 17:15 **[ТС]**

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

Постройте блок-схему и напишите программу:
Если значение переменной Х отрицательное, то оставить его без изменения, если нет, то присвоить этой переменной значение Y..

Pascal
1
2
3
4
5
6
7
8
9
10
var
x,y: integer;
begin
Readln(x);
Readln(y);
 if (x<0) 
then Writeln(x);
if (x>=0)
then Writeln(y);
end.

Люди правильно я прогу написал??

А как с этим поступить :

Постройте блок-схему и напишите программу:
Если текущее значение переменной j не больше 10, то значение j увеличить на 1.

@diam · 05.05.2010, 10:50

вот программа, которая тебе поможет рисовать блок-схемы. Программа платная, но для твоих исходников она сделает все бесплатно.
Если модераторы посчитают это сообщение рекламой - удаляйте )

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .