Форум программистов, компьютерный форум, киберфорум
Наши страницы
Алгоритмы
Войти
Регистрация
Восстановить пароль
 
lexflax
11 / 11 / 6
Регистрация: 03.04.2011
Сообщений: 627
1

Блок схемы по паскалю

03.04.2011, 11:37. Просмотров 474. Ответов 0
Метки нет (Все метки)

Помогите составить блок схему по тексту данной программы.
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
program tt; 
cоnst nmax = 100;  
type tarray=array[1..2 * nmax] of integer; 
{Процедура ввода массива } 
procedure input(var a:tarray; var n:integer); 
var i:integer; 
begin 
write('Введите размер массива: '); 
repeat 
readln(n); 
if (n > nmax) or (n < 1) then 
write('Введите число от 1 до ',nmax,': '); 
until (n > 0) and (n <= nmax); 
for i := 1 to n do begin 
write('Введите A[',i,']: '); 
readln(a[ i]); 
end; 
end; 
{Процедура вывода массива на экран} 
procedure print(a:tarray; n:integer); 
var i:integer; 
begin 
writeln(' массив (размер ',n,'):'); 
for i := 1 to n do 
write(a[ i]:8); 
writeln; 
end; 
{Процедура обработки массива} 
procedure process(var a:tarray; var n:integer); 
var i,k,d:integer; 
begin 
d := 0; 
for i := 1 to n do 
if a[ i+d] < 0 then begin 
writeln('Отрицательный элемент А[',i,']=',a[ i+d]); 
for k := n+d downto i+d do 
a[ k+1] := a[k]; 
write('Введите вставляемый элемент: '); 
readln(a[ i+d]); 
inc(d); {или d := d + 1;} 
end; 
inc(n,d); {или n := n + d} 
end; 
var a:tarray; 
n:integer; 
begin {Начало программы} 
input(a,n); 
write('Исходный'); 
print(a,n); 
process(a,n); 
write('Получившийся'); 
print(a,n); 
readln ;
End.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2011, 11:37
Ответы с готовыми решениями:

Блок схемы
Помогите. Мне задали задачу создать блок схему на тему шахмат. Нужно что бы выводились по запросу...

Блок-схемы
Всем доброго времени суток! У нас в ВУЗе обязательно нужно делать блок-схемы к коду. И нам...

БЛОК-Схемы
1) Какой блок (или блоки) не используется для передачи данных внутри программы? 2) Можно ли у...

Блок-схемы
Помогите составить задачи в виде блок-схем. 1)Даны 2 угла треугольника.Определить какой это...

Исправление блок-схемы
Уважаемые знатоки, помогите с блок-схемой. Мне сказали что в неё нужно добавить K , а я не знаю...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.04.2011, 11:37

Сделать 2 блок схемы
Ребят нужна помощь. Нужно сделать 2 по простеньким заданиям блок схему. 1 Задача. Если сумма...

Блок-схемы программирование
Приветствую, форумчане. Всех с праздником и заслуженными выходными) Требуется помощь в...

Создание блок схемы
Добрый вечер. Есть задание, нужно составить блок-схему. С небольшими выражениями всё ясно. Но как...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru