Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 21.06.2018
Сообщений: 28

Составить блок схему для программы

23.06.2018, 13:39. Показов 1383. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Program2.rar
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
23.06.2018, 13:39
Ответы с готовыми решениями:

Составить блок-схему для программы
var s:string; c:char; begin writeln('Введите строку'); readln(s); for var i:=1 to length(s) div 2 do begin c:=s; ...

Составить блок-схему для программы
Помогите составить блок-схему для задачи. Задача58. Для данного вещественного х найти значение следующей функции f, принимающей...

Составить блок-схему для программы в Паскале
program var6; var n,n1,n2:integer; i,right,mark,v:longint; answer,true1,true2,true3,true4,true5: integer; begin right:=0; //...

5
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
23.06.2018, 13:52
Опять со своими закорючками
в•љв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•©в•ђв•ђв •ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ќ
0
0 / 0 / 0
Регистрация: 21.06.2018
Сообщений: 28
23.06.2018, 13:59  [ТС]
а как вам сбросить, чтобы их не было?
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
23.06.2018, 14:07
Там вообще не вся программа, нет начала, до begin, и нужно указать на каком Паскале (АВС или АВС.net) написана программа.

Добавлено через 2 минуты
Вот что там
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
п»їbegin
          writeln('Дан отрезок Рџ/2,Рџ');
          writeln('Цикл СЃ предусловием');
          writeln('╔═════════╦══════════╗');
          writeln('в•‘    X    в•‘     Y    в•‘');
          writeln('в•*═════════╬══════════╣');
          a := Pi / 2;
          b := Pi;
          toch := 15;
          otrezok := (b - a) / toch;
          x := a;
          repeat
            REZ := sin(x / 4) / 2;
            writeln('в•‘  ', x:5:3, '  в•‘   ', REZ:5:3, '  в•‘ '); 
            x := x + otrezok;
          until x >= b;
          writeln('в•љв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•©в•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ќ  ');
          writeln('Цикл СЃ постусловием');
          writeln('╔═════════╦══════════╗');
          writeln('в•‘    X    в•‘     Y    в•‘');
          writeln('в•*═════════╬══════════╣');
          a := Pi / 2;
          b := Pi;
          toch := 15;
          otrezok := (b - a) / toch;
          x := a;
          while x <= b do
          begin
            REZ := sin(x / 4) / 2;
            writeln('в•‘  ', x:5:3, '  в•‘   ', REZ:5:3, '  в•‘ '); 
            x := x + otrezok;
          end;
          writeln('в•љв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•©в•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ќ  ');             
          readln;
          end.
Вы думаете какой-то компилятор это поймет?
0
0 / 0 / 0
Регистрация: 21.06.2018
Сообщений: 28
23.06.2018, 14:35  [ТС]
на Паскале АВС

Добавлено через 2 минуты
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
38
var
  x, e, y, a, b, otrezok, rez: real;
  kl, i, toch: integer;
begin
          writeln('Дан отрезок П/2,П');
          writeln('Цикл с предусловием');
          writeln('----------------------');
          writeln('-    X    -     Y    -');
          writeln('---------------------');
          a := Pi / 2;
          b := Pi;
          toch := 15;
          otrezok := (b - a) / toch;
          x := a;
          repeat
            REZ := sin(x / 4) / 2;
            writeln('-  ', x:5:3, '  -   ', REZ:5:3, '  - '); 
            x := x + otrezok;
          until x >= b;
          writeln('-----------------------------------  ');
          writeln('Цикл с постусловием');
          writeln('----------------------------------');
          writeln('-    X    -     Y    -');
          writeln('----------------------------------');
          a := Pi / 2;
          b := Pi;
          toch := 15;
          otrezok := (b - a) / toch;
          x := a;
          while x <= b do
          begin
            REZ := sin(x / 4) / 2;
            writeln('-  ', x:5:3, '  -   ', REZ:5:3, '  - '); 
            x := x + otrezok;
          end;
          writeln('------------------------------------  ');             
          readln;
         end.
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
23.06.2018, 14:50
Лучший ответ Сообщение было отмечено Самит как решение

Решение

Другое дело. В принципе так, построено в редакторе блок-схем, если что не так, перерисуйте принцип верный.
Миниатюры
Составить блок схему для программы  
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
23.06.2018, 14:50
Помогаю со студенческими работами здесь

Составить блок-схему для программы в Паскале
Program var6; var M,N,nok: integer; begin readln(M,N); nok:=m*n;//вычисляем произведение до входа в цикл while M&lt;&gt;N do...

Составить блок схему для следующей программы
var i,j:integer; x:array of integer; y:array of real; begin writeln('Массив X: '); for i:=1 to 5 do begin ...

Составить блок схему для текста программы на pascal
Ввести одномерный массив A из 14 элементов. Определить в нём произведение элементов, квадрат которых меньше 16. Program lab5; const...

Составить блок схему для текста программы Pascal
Ввести одномерный массив A из N элементов. Каждый элемент в массиве больший 7 домножить на результат целочисленного деления этого ...

Составить блок схему для текста программы Pascal
Задан одномерный массив А(N) (N&lt;=60). На место минимального элемента массива записать сумму последних К элементов массива. Если А &gt;=0,...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru