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

функции

11.05.2010, 21:43. Показов 377. Ответов 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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Program funk;
type
mass = array[1..19] of integer;
procedure sredaripth(c: mass; m: integer);
var
sr, su: real;
i, k: integer;
begin
sr := 0;
su := 0;
k := 0;
for i := 1 to m do 
begin
f c[i] > 0 then begin
inc(k);
su := su + c[i];
end;
end;
sr := su / k;
writeln('среднее арифмет') ;
writeln(sr:2:2);
end;
procedure koli(w: mass; l: integer);
var
i, p: integer;
begin
p := 0;
for i := 1 to l do 
begin
if (w[i] < 0) and (i mod 2 <> 0) then
inc(p);
end;
writeln('кол-во элементов') ;
writeln(p);
end;
var
a, b, c: mass;
i, n: integer;
begin
randomize;
repeat
writeln('размер массива A') ;
readln(n);
until n in [1..19];
for i := 1 to n do 
begin
a[i] := random(10)-3;
write(a[i], ' ') ;
end;
sredaripth(a, n);
writeln;
koli(a, n);
writeln;
n := 0;
randomize;
repeat
writeln('размер массива B') ;
readln(n);
until n in [1..19];
for i := 1 to n do 
begin
b[i] := random(10);
write(b[i], ' ' );
end;
sredaripth(b, n);
writeln;
koli(b, n);
writeln;
n := 0;
randomize;
repeat
writeln('размер массива C') ;
readln(n);
until n in [1..19];
for i := 1 to n do 
begin
c[i] := random(10);
write(c[i], ' ' );
end;
sredaripth(c, n);
writeln;
koli(c, n);
writeln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.05.2010, 21:43
Ответы с готовыми решениями:

Функции. Как после одного возвратного значения функции отталкиваться от возврата другой функции
Написал код, в котором 2 функции одна возвращает стринговое значение, вторая должна бы вернуть...

excel. создать таблицу значение кусочно-непрерывной функции y на интервале [xmin; xmax] с шагом h, для расчета функции y используя логические функции

Построить график функции и отметить точки пересечения функции с осями координат
Построить график функции при значении коэффициентов: а = 2, b = 3. Отметить точки пересечения...

Найти среднее арифметическое значений функции f(x) в точках а, b, (a+b)/2, используя обращение к функции
f=((e^x+e^(-x))/2)*lg()2*x) Добавлено через 3 часа 7 минут что реально никто не может помочь?

1
846 / 84 / 7
Регистрация: 06.12.2009
Сообщений: 343
12.05.2010, 08:27 2
в прицепе
Миниатюры
функции   функции   функции  

Вложения
Тип файла: doc noName.pas.xls.doc (51.5 Кб, 12 просмотров)
Тип файла: xls noName.pas.xls (40.0 Кб, 10 просмотров)
1
12.05.2010, 08:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.05.2010, 08:27
Помогаю со студенческими работами здесь

Как находясь в функции узнать имя данной функции? (Compact Framework)
Как находясь в функции узнать имя данной функции? Нашел несколько вариантов для обычного...

Как в функции вернуть значение, а потом продолжить работу этой функции?
Есть функция main, которая возвращает определенное значение. Это значение должно вернутся в течении...

Вызов функции внутри другой функции с передачей локальной переменной по ссылке
Столкнулся с очень с интересной проблемой. Можно ли так делать? #include &lt;iostream&gt; using...

Работать в главной функции с массивом, который лежит во второстепенной функции - реально?
Знаю что когда мы вызываем функцию, то после завершения её работы, автоматически всё что делалось в...

Изобразить схематически график функции на интервале, зная знаки функции и 1 и 2 производной
Пожалуйста, проверте моё решение этих примеров: Изобразите схематически график функции f(x) над...

Вычислить значение функции e^x=1+x+x^2/2+x^3+3 и сравнить полученной результат c значением стандартной функции
Здраствуйте! Пожалуйста укажите услугу в помочи, вот задачка: Оформить у виде программы...


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

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

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