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

Составить блок схему

25.11.2019, 18:28. Показов 1068. Ответов 4

Студворк — интернет-сервис помощи студентам
Добрый вечер
Помогите составить блок схему для данной задачи


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
uses crt;
const n=20;
var a,b:array[1..n] of integer;
    i:byte;
    s:Longint;
begin
clrscr;
writeln('Введите ',n,' элементов массива А, целые числа');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
writeln('Введите ',n,' элементов массива B, целые числа');
for i:=1 to n do
 begin
  write('b[',i,']=');
  readln(b[i]);
 end;
s:=0;
for i:=1 to n do
s:=s+a[i]*b[i];
write('S=',s);
readln
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.11.2019, 18:28
Ответы с готовыми решениями:

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

Составить блок-схему
uses crt; var a,b,c,x,y:integer; Begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c);

Составить блок-схему!!!
Программа готовая, но я затрудняюсь в составлении блок-схемы. Помогите.... Program srs3; var n, i : integer; a, p : real; ...

4
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
25.11.2019, 19:08
https://www.softsalad.ru/softw... y/fceditor
0
0 / 0 / 0
Регистрация: 22.11.2019
Сообщений: 21
25.11.2019, 21:17  [ТС]
Я, конечно , извиняюсь , но я ничего не понял как там делать
0
Модератор
10448 / 5739 / 3407
Регистрация: 17.08.2012
Сообщений: 17,460
29.11.2019, 01:46
CAMOBAP31... Вас что, в google забанили?

Кликните здесь для просмотра всего текста
Скачивайте по указанной ссылке FCEditor.msi, устанавливаете его.

Запускаете.

Для корректного отображения русского текста в программах:
View -> Preferences, установить Import with coding в Cyrillic (Windows), если, конечно, не собираетесь делать блок-схемы из исходников Turbo Pascal или Borland Pascal, тогда нужно оставить Cyrillic (DOS).

Замечание: текст программы должен находиться в известной Вам папке Вашего компьютера. В первой строке программы обязательно должен быть быть заголовок программы, то есть, программа должна начинаться со строки типа
Pascal
1
program Project1;
Естественно, имя программы не обязательно Project1. Текст программы не должен содержать ошибок.

Далее File -> Import..., устанавливаете тип файлов "Pascal file (*.pas)", добираетесь до файла с текстом Вашей программы, и открываете его.

Всё. В программе появятся две вкладки с именами "code", там будет текст программы, и "Project1" (или какое там у Вас имя программы), там будет готовая блок-схема. Если текст программы содержит процедуры и / или функции, для каждой из них будет создана отдельная вкладка с блок-схемой.

Можете немного подредактировать блок-схему: если правой кнопкой кликнуть на элемент блок-схемы, во вкладке "Convert to..." можно выбрать вариант отображения данного элемента. Если кликнуть левой клавишей мыши на текст блока, можно изменить текст блока. Можно также удалить или добавить блоки, перейдя на вкладку "code" и отредактировав текст программы. После чего, чтобы изменения отобразились на блок-схеме, выберите в меню Parsing -> Try to parse again.

Пожалуй, всё. Единственное неудобство: из не зарегистрированной версии блок-схему скопировать не получится. Можете найти ключи к программе. А вообще, скриншот с последующим редактированием в фотошопе никто не отменял.
0
1 / 1 / 0
Регистрация: 12.11.2019
Сообщений: 85
30.11.2019, 14:05
https://almiur.ru/show_prog_9.html
Я етим пользуюсь)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
30.11.2019, 14:05
Помогаю со студенческими работами здесь

Составить блок-схему
program z; uses Crt; const n = 4; m = 6; var a: array of integer; a1: array of integer; i,j,i1: integer; t1,t2,t3: integer; ...

составить блок-схему
uses crt; var a,b:arrayof integer; i,n,k:integer; s:real; begin clrscr; write('N-> '); readln(n); for i:=1 to n do...

Составить блок-схему
uses crt; var a,b,c,d,k,p,n:longint; function NOD(a,b:longint):longint; begin if b=0 then NOD:=a else nod:=nod(b,a mod b); ...

Составить блок схему
Составить блок схему uses crt; const n=6; Type mas2=array of integer; var p,k,x,y:integer; a:mas2; procedure vvod (var...

Составить блок схему
Дан символ C. Вывести два символа, первый из которых предшествует символу C в кодовой таблице, а второй следует за символом C. Сделать...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru