Блок схема на 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);

@insolent · 28.12.2009, 16:18

1.

Блок-схема

Выведить 2

2.

Код

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program Min_Abs;
  Uses Crt;
  Var
    a,b : extended;
 
BEGIN
  ClrScr;
    Write('Введите a: ');  Readln(a);
    Write('Введите b: ');  Readln(b);
    If a < b Then
      Begin
        Writeln('a меньшее число.');
        a := Abs(a);
      End
    Else
      Begin
        Writeln('b меньшее число');
        b := Abs(b);
      End;
    Writeln('a = ',a:0:3,' b = ',b:0:3);
  Readkey;
END.

блок-схема

3.

блок-схема

Выведить 1

@Drug · 28.12.2009, 18:51 **[ТС]**

Как ты рисуеешь блок схемы?? С помощью чего??

@insolent · 28.12.2009, 19:45

Drug, С помощью рук и под руководством головы

@Drug · 29.12.2009, 13:24 **[ТС]**

а я думал ещё и прога какая-то удобная есть. Для Photoshopa мне кажется это давольно-таки приметивные фигуры...хотя если выбора нет буду пробовать в нем. А вот такую запись можно назвать "блок - схема"

Pascal
1
2
3
4
5
6
7
var 
k,f: integer; 
begin 
k:=1; f:=2; 
if k<3 then begin Writeln(f); k:=k + 1 end 
else f:=f - k; k:=k - 1; 
end.

Добавлено через 20 минут
?????????

@WolfCF · 29.12.2009, 13:28

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

а я думал ещё и прога какая-то удобная есть

вот вам программа для составления блок схем.

@WolfCF · 29.12.2009, 13:29

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

А вот такую запись можно назвать "блок - схема"

Pascal
1
2
3
4
5
6
7
var 
k,f: integer; 
begin 
k:=1; f:=2; 
if k<3 then begin Writeln(f); k:=k + 1 end 
else f:=f - k; k:=k - 1; 
end.

это клок из программы.

@insolent · 29.12.2009, 18:17

Drug, конечно блок-схемы рисую с помощью программ: Visio прекрасно справляется с этой рутиной(а для MSVS мелко-мягкие выпустили спец. тулзу MSVS Learning Pack 2.0), но блок-схемы, что я нарисовал были сделаны с помощью автофигур Word`а))

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

P. P. S. Почему это векторные фигуры для Photoshop примитив? или он только для рисования супер-пупер артов?

Добавлено через 7 минут

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

это клок из программы.

А точнее код программы)

@Drug · 29.12.2009, 18:22 **[ТС]**

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

P. P. S. Почему это векторные фигуры для Photoshop примитив? или он только для рисования супер-пупер артов?

именно так я и думаю, покрайне мере пока. Спасибо тебе.

@Drug · 05.01.2010, 12:43 **[ТС]**

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

Pascal
1
2
3
4
k:=1; f:=2;
if k<6 then k:=k + 1;
f:=f*k;
Writeln(k);

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

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

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

Людиии!!!!!!!

@Drug · 05.01.2010, 13:47 **[ТС]**

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

Pascal
1
2
3
4
k:=1; f:=2;
if k<6 then k:=k + 1;
f:=f*k;
Writeln(k);

Скажите так правельно,если нет,то что неправильно

@WolfCF · 05.01.2010, 14:31

криво нарисовано, но

@insolent · 05.01.2010, 15:01

1.

блок-схема

Выведить 2

ЗЫЖ Если k < 6, то выполниться только Inc(k), а f := f*k не в теле цикла), по этому будет выполняться в лубом случаи

2.

Блок-схема

Код

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program Max_Abs;
  Uses Crt;
  Var
    a,b : extended;
 
BEGIN
  ClrScr;
    Write('Введите a: ');  Readln(a);
    Write('Введите b: ');  Readln(b);
    If a > b Then
      Begin
        Writeln('a большее число.');
        a := a / 2;
      End
    Else
      Begin
        Writeln('b большее число');
        b := b / 2;
      End;
    Writeln('a = ',a:0:3,' b = ',b:0:3);
  Readkey;
END.

3. Аналогично с первой

@Drug · 05.01.2010, 17:29 **[ТС]**

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

Writeln('a = ',a:0:3,' b = ',b:0:3)

как эту строку понять??

@Drug · 05.01.2010, 19:16 **[ТС]**

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

3. Аналогично с первой

это так

А что за буква там такая

@Drug · 05.01.2010, 20:01 **[ТС]**

Постройте блок-схему и напишите программу:
Присвоить переменной Х значение 0, если ее начальное значение принадлежит отрезку [0;2].

@insolent · 05.01.2010, 22:43

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

как эту строку понять??

Это форматированный вывод, т.к. без этого числа вещественного типа выведутся в в экспоненциальном формате (со степенью). Например, если ввести число 0,000000000000001 и выводить значения без форматирования, то выводиться 1,000000000Е-16 или ввести 100000000000000000000 - 1,000000000000Е+20. При форматированном выводе значения выводятся в обычном формате с десятичной точкой. Форматированием,например, a:0:3 - будет полностью выведена целая часть, а дробная сокращена до 3 цифр, мы указываем первым числом количества позиций выделенных для целой части и вторым, сколько для дробной, причем Если же указанного числа позиций недостаточно для вывода значения параметра, то значение параметра будет выведено с использованием требуемого числа позиций и состояние ошибки не возникнет; а дробная будет округленна.

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

А что за буква там такая

Буква T - True - Истинное.

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

это так

Правильно

@insolent · 06.01.2010, 14:03

Drug, вот

блок-схема

, а код, думаю, что и сам уже сможешь написать)

@Drug · 06.01.2010, 16:59 **[ТС]**

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

Добавлено через 44 минуты

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

, а код, думаю, что и сам уже сможешь написать)

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

вау,круто я сам смог это сделать!! спасибо insolent . А кстати правильно? Работает по тексту.

@insolent · 06.01.2010, 17:14

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

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

А кстати правильно?

Да

ЗЫЖ Drug, ты блок-схемы уже сдавал? Они правильные? Ветку false дорисовывать не нужно?

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@Drug 0 / 0 / 1 Регистрация: 19.12.2009 Сообщений: 45
	28.12.2009, 18:51 [ТС]
	Как ты рисуеешь блок схемы?? С помощью чего?? 0

@insolent 829 / 353 / 64 Регистрация: 30.01.2009 Сообщений: 1,204
	28.12.2009, 19:45
	Drug, С помощью рук и под руководством головы 1

@WolfCF 3318 / 1380 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	05.01.2010, 14:31
	криво нарисовано, но Миниатюры 1

@Drug 0 / 0 / 1 Регистрация: 19.12.2009 Сообщений: 45
	05.01.2010, 20:01 [ТС]
	Постройте блок-схему и напишите программу: Присвоить переменной Х значение 0, если ее начальное значение принадлежит отрезку [0;2]. 0

@insolent 829 / 353 / 64 Регистрация: 30.01.2009 Сообщений: 1,204
	06.01.2010, 14:03
	Drug, вот блок-схема , а код, думаю, что и сам уже сможешь написать) 1