0 / 0 / 1
Регистрация: 21.03.2015
Сообщений: 126
1

Составить блок-схему к задаче с подпрограммой

01.04.2015, 18:26. Показов 553. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Добрый день, помогите составить блок-схему к задаче с подпрограммой:
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
const nmax=100;
type Mas=array[1..nmax] of integer;
var a,b:Mas; 
n,m,i:byte;
PROCEDURE vvod(var a:Mas;x,i,nmax:integer);
begin
randomize;
repeat
write('Размер массива А от 2 до ',nmax,' m=');
readln(x);
until x in [2..nmax];
writeln('Массив A');
for i:=1 to x do
begin
a[i]:=random(20);
write(a[i]:4);
end;
end;
PROCEDURE deystvie (var a,b:Mas;i,n,m:integer);
var x:integer;
begin
writeln;
n:=0;
for i:=1 to x do
begin
if a[i]>10 then
n:=n+1;
b[n]:=a[i];
end;
if n=0 then write('Нет чисел больше 10')
else
begin
writeln('Массив B');
for i:=1 to n-1 do
write(b[i]:4)
end;
end;
begin
vvod(a,m,i,nmax);
deystvie(a,b,i,n,m);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.04.2015, 18:26
Ответы с готовыми решениями:

Составить блок схему к задаче
var f:text; fname,s,s1:string; i,k,j,l,mx:integer; begin writeln('Введите имя файла');...

Составить блок-схему к задаче
program massiv; const nmax=0.915; D1=4.5; DM=0.6; H=192.62; nM:array of...

Составить блок-схему по задаче.
Известны размеры прямоугольного отверстия. Определить, можно ли просунуть в него шар заданного...

Составить блок-схему к задаче
program zadacha8; const n=20; var a:array of integer; max, min, i:integer; begin randomize;...

1
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,589
Записей в блоге: 1
02.04.2015, 05:51 2
....
Миниатюры
Составить блок-схему к задаче с подпрограммой   Составить блок-схему к задаче с подпрограммой  
Изображения
 
1
02.04.2015, 05:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.04.2015, 05:51
Помогаю со студенческими работами здесь

Составить блок-схему по задаче.
Найти сумму некоторого количества чисел, задаваемых пользователем. Program google; Uses Crt;...

Составить Блок-схему к задаче на строки
Дана строка. Подсчитать количество букв k в последнем ее слове. Var s,s1:string; i,k:byte;...

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

Составить словесное (математическое) описание и блок-схему следующей задаче

Составить программу и блок-схему к задаче: вычислить значение выражения
Пользуясь тем, что sin(x)=x-\frac{{x}^{3}}{3!}+\frac{{x}^{5}}{5!}-\frac{{x}^{7}}{7!}+...\ \ \ \...

1. Составить словесное (математическое) описание и блок-схему следующей задаче:
составить словесное (математическое) описание и блок-схему следующей задаче: вычислить значение...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru