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

Разработать и отладить программу которая содержит процедуру

17.05.2019, 22:59. Показов 872. Ответов 1
Метки нет (Все метки)

Разработать и отладить программу которая содержит процедуру нахождения суммы положительных элементов массива вещественных чисел и функцию определяющую сумму элементов находящихся после первого положительного элемента
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2019, 22:59
Ответы с готовыми решениями:

Разработать и отладить программу, содержащую процедуру
Разработать и отладить программу, содержащую процедуру, которая, находит среднеарифметическое...

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

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

Разработать процедуру, которая считает арифметическую медию 5 чисел
Напишите программу (желательно процедуру) которая считает арифметическую медию 5 чисел.Помогите...

1
2363 / 766 / 560
Регистрация: 15.01.2019
Сообщений: 2,383
18.05.2019, 00:19 2
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
program Zadanie112;
type
  Tarr = array [1..25] of real;
 
 
procedure SumArr1(arr:Tarr; narr: integer; var suma: real);
var  // Процедура для вычисления суммы положительных элементов массива
  i: integer;
  sum: real;
begin
 sum:= 0;
 for i:= 1 to narr do
  if arr[i] > 0 then
    sum:= sum + arr[i];
  suma:=sum;
end;
 
 
function SumArr2(arr:Tarr; narr: integer): real;
var  // Функция для подсчета суммы элементов после первого найденного положительного элемента.
  i: integer;
  sum: real;
  reg: boolean;
begin
 sum:= 0;
 reg:= false;
 for i:= 1 to narr do
  begin
    if reg then
      sum:= sum + arr[i];
    if arr[i] > 0 then
      reg:= true;
  end;
  sumarr2:= sum;
end;
 
var
  a: Tarr;   // Переменная для хранения массива.
  n: integer;    // Переменная для хранения значения количества элементов массива.
  i: integer;    // Промежуточная переменная для организации циклов.
  sumelem: real;   // Переменная для хранения значения суммы элементов.
begin
  writeln('Введите количество элементов ');
  Readln(n);
  for i:= 1 to n do
   begin
     writeln('Введите ',i,' элемент:');
     Readln(a[i]);
   end;
  writeln('Исходный массив:');
    for i:=1 to n do
      write(a[i]:0:1,' ');
 SumArr1(a,n,sumelem);
 writeln;
 writeln('Сумма положительных элементов массива: ',sumelem:0:1);
 writeln('Сумма всех элементов массива после первого положительного элемента: ',SumArr2(a,n):0:1);
 
  Readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.05.2019, 00:19

Задача на модули(Разработать программу ,выделив процедуру.)
Здравствуйте.Мне нужно разработать программу ,выделив процедуру.Условие на см. на фото. Я не прошу...

Составить программу, которая содержит динамическую переменную
Добрый вечер!Помогите пожалуйста составить программу,которая содержит динамическую переменную.

Создать программу, которая содержит сведения о процессорах
Создать программу, которая содержит сведения о процессорах (модель, тактовая частота, стои-мость)....

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


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

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

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