Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Разработка программ с данными типа «запись» https://www.cyberforum.ru/ pascal/ thread2426967.html
Введите массив, состоящий из 10 записей, содержащих поля: ФИО, Возраст, Рост, Вес. Вывести данные о 19-летних студентах с заданным ростом и весом в виде: Студенты в возрасте 19 лет, имеющие рост … и...
Pascal Работа с данными типа множества
Помогите с выполнением данной задачи, пожалуйста Дано множество Х1, содержащее целые числа из диапазона . Сформировать новое множество Y путём выделения из множества Х1 нечётных чисел и чисел,...
Pascal Программирование задач по обработке строковых переменных https://www.cyberforum.ru/ pascal/ thread2426963.html
Помогите с выполнением задачи, пожалуйста Введите предложение. Введите в переменную S какой-то согласный звук, а в переменную G – гласный. Посчитать, сколько раз в предложении встречается звук S,...
Pascal Перевод кода в паскаль Здравствуйте!!! Помогите пожалуйста перевести код из с# в Pacsal. В c# никогда не сталкивался using System; using System.Collections.Generic; using System.ComponentModel; using System.Data;... https://www.cyberforum.ru/ pascal/ thread2426918.html
Код для сейфа Pascal
Семён Семёнович недавно купил домой сейф с электронным замком и хочет установить для него код. К сожалению, Семён Семёнович потерял инструкцию от сейфа и не помнит, какие требования предъявляются к...
Pascal Составить блок-схему вычислительного процесса и написать программу Дан массив X(15). Найти среднее арифметическое положительных и отрицательных элементов массива R1 и R2. Определить, какой из найденных элементов больше по абсолютной величине. https://www.cyberforum.ru/ pascal/ thread2426372.html
Pascal Напечатать слова текста, которые не имеют повторений https://www.cyberforum.ru/ pascal/ thread2426255.html
Множества. Напечатать слова текста, которые не повторяются.
Нарисовать снеговика, перемещать его по экрану сначала слева направо, а потом сверху вниз вдоль границ графического окна Pascal
Не получается передвигать снеговик.Я просто не могу понять Нарисовать снеговик и перемещать его по экрану сначала слева направо, а потом сверху вниз вдоль границ графического окна. Использовать цикл...
Pascal Выведите структуру форума в описанном формате Дано количество сообщений на некотором форуме (N натуральное, не более 1000). Также таблица, в которой указано какие сообщения на каком уровне находятся. В первой колонке таблицы написаны... https://www.cyberforum.ru/ pascal/ thread2425986.html Pascal Количество сообщений в самой длинной ветке форума https://www.cyberforum.ru/ pascal/ thread2425985.html
Дано количество сообщений на некотором форуме (N натуральное, не более 1000). Также таблица, в которой указано какие сообщения на каком уровне находятся. В первой колонке таблицы написаны...
Pascal Выведите строку, которая описывает полный путь от корня форума (включая начальное число 0) до сообщения номер A
Дано количество сообщений на некотором форуме (N натуральное, не более 1000). Также таблица, в которой указано какие сообщения на каком уровне находятся. В первой колонке таблицы написаны...
Pascal Количество сообщений https://www.cyberforum.ru/ pascal/ thread2425983.html
Дано количество сообщений на некотором форуме (N натуральное, не более 1000). Также таблица, в которой указано какие сообщения на каком уровне находятся. В первой колонке таблицы написаны...
2368 / 770 / 561
Регистрация: 15.01.2019
Сообщений: 2,383
28.03.2019, 15:24 0

Использование процедур в программах - Pascal - Ответ 13443812

28.03.2019, 15:24. Показов 1044. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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.


Вернуться к обсуждению:
Использование процедур в программах Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.03.2019, 15:24
Готовые ответы и решения:

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

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

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

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.03.2019, 15:24

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

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

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

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

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