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

Использование процедур в программах

28.03.2019, 13:05. Показов 1033. Ответов 1
Метки нет (Все метки)

Помогите решить практику, куча долгов до конца месяца, буду очень признателен


Написать процедуру нахождения суммы положительных элементов одномерного массива. Применить процедуру для массивов A[1..6] и S[1.. 6].
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.03.2019, 13:05
Ответы с готовыми решениями:

Использование функций в программах
Помогите решить задачу. Дано натуральное число n. Выяснить, можно ли представить его в виде...

Использование подпрограмм-функций в программах
Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде одного...

Использование подпрограмм-функций в программах
Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде одного...

использование процедур
Даны действительные числа a, b, c. Получить (max(a,a+b)+max(a,b+c))/(1+max(a+bc, 1,15))

1
2363 / 766 / 560
Регистрация: 15.01.2019
Сообщений: 2,383
28.03.2019, 15:24 2
Лучший ответ Сообщение было отмечено HEumnik как решение

Решение

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
program zadanie016;
type
  arr = array[1..6] of integer;
 
procedure sumarr(b:arr; var sum: integer);
var
  i: integer;
begin
sum:= 0;
 for i:=1 to 6 do
  if b[i] > 0 then
      sum:=sum + b[i];
end;
 
 
procedure randarr(var c:arr);
var
  i: integer;
begin
 for i:=1 to 6 do
  c[i]:= random(200) - 100;
end;
 
 
procedure vyvarr(d:arr);
var
  i: integer;
begin
 for i:=1 to 6 do
   write(d[i]:4);
 writeln;
end;
 
 
 
var
  a,s: arr;
  sumA,sumS: integer;
begin
randarr(a);
sumarr(a, sumA);
vyvarr(a);
Writeln('The sum of the elements of the array A: ',sumA);
randarr(s);
sumarr(s, sumS);
vyvarr(s);
Writeln('The sum of the elements of the array S: ',sumS);
 
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.03.2019, 15:24

Использование процедур
Помогите, пожалуйста, решить две задачи с использованием процедур. Задача 1. Для элементов...

Использование процедур
Ребят помогите пожалуйста написать программу))) Подруга сидит на экзамене, а у меня не получается...

использование процедур
боже, помогите решить задачу! последняя лаба плииииииииииииииииииз ...

Использование процедур и функций в программе
1)сформировать второй массив, разместив в нем элементы первого массива, значения которых...


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

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

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