Вычислить z=x[max]-y[min]/2

@Es.Phoenix · Регистрация: 11.11.2011

Author24 — интернет-сервис помощи студентам

оформить в виде процедуры.
Вычислить z=x[max]-y[min]/2 , где X[max]- максимальный элемент массива X(50), Y[min]- минимальный элемент массива Y(40). X[max] и Y[min] вычислять в одной подпрограмме.

Добавлено через 13 минут
Без рандома.

@EvilVoodoo · 11.11.2011, 10:13

Каким образом забивать массив?

@Es.Phoenix · 12.11.2011, 09:11 **[ТС]**

Сообщение от EvilVoodoo

Каким образом забивать массив?

Не понял. Вручную.
Что не правильно?

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
program pgg; {название программы}
uses crt;                 { объявление используемого модуля управления экраном }
 
const                      {раздел описания констант}
n=50;                     { переменная n константа, равная 50}
m=40;                    { переменная m константа, равная 40}
 
type                                 {объявление создаваемого типа}
c=array[1..n] of integer; {c- имя типа, представленного в виде массива целых 
                                         чисел, размерностью n}
 
var                          { раздел описания переменных }
x:c;                         {переменная х типа с}
y:c;                         {переменная y типа с}
i,max,min:integer; {переменные целого типа}
z:real;                     {переменная вещественного типа}
 k:boolean;             {переменная логического типа}
 
procedure mm(var m:integer;a:c;n1:integer;l:boolean);{объявление процедуры mm}
 var          { раздел описания внутренних переменных процедуры }
j:integer; {переменная целого типа}
begin   {операторные скобки или составные  операторы «начало» процедуры}
m:=a[1];{переменной m присваивается значение первого элемента массива a}
for j:=2 to n1 do {оператор цикла со счётчиком}
begin            {операторные скобки или составные  операторы «начало» цикла}
if (l=true)  then {Проверяется переменная l, если она  равна true,  то 
                            выполняется следующая инструкция}
begin                  {операторные скобки или составные  операторы «начало»}
if (a[j]>m) then {проверяется элемент массива  a , если он больше, чем  
                            m, то выполняется следующая инструкция}
 m:=a[j];             { m   присваивается значение j-ого элемента массива  a }
end                     { операторные скобки или составные операторы  «конец»}
else                     {иначе выполняется другая инструкция }
if(a[j]<m) then   {проверяется j-ый элемент массива  a , если он меньше, чем  
                              m, то выполняется следующая инструкция }
m:=a[j];               { m   присваивается значение j-ого элемента массива  a }
end; { операторные скобки или составные операторы  «конец» цикла}
end; { операторные скобки или составные операторы  «конец» процедуры}
 
begin             {операторные скобки или составные  операторы «начало» }
textcolor(0); {процедура, которая задаёт цвет символов,  в данном случае     
                      «чёрный» }
textbackground(7); {процедура, которая задаёт цвет фона для текста, в данном        
                                  случае «серый»}
clrscr;                      { процедура очистки экрана }
for i:=1 to n do        {оператор цикла со счётчиком}
read(x[i]);                {Процедура для ввода данных}
for i:=1 to  m do       {оператор цикла со счётчиком}
read(y[i]);                 {Процедура для ввода данных}
k:=true;                     {переменной k присваивается значение true}
mm(max,x,n,k);        {процедура, которая находит максимальный или минимальный элемент массива, в данном случае максимальный}
k:=false;                   {переменной k присваивается значение false }
mm(min,y,m,k);       {процедура, которая находит максимальный или минимальный элемент массива, в данном случае минимальный}
z:=(max-min)/2;       {вычисляем значение переменной z}
writeln('z=',z:7:1, 'max= ',max, 'min= ', min); {выводим на экран значение переменной z, максимальный элемент массива х и минимальный элемент массива у}
readkey; { возвращает символ, соответствующий нажатой  клавиши }
end. { операторные скобки или составные операторы  «конец» программы }

@Puporev · 12.11.2011, 09:50

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
program pgg; {название программы}
uses crt;                 { объявление используемого модуля управления экраном }
 
const                      {раздел описания констант}
n=5;                     { переменная n константа, равная 50, при тестировании делай типа 5}
m=4;                    { переменная m константа, равная 40, а эту типа 4}
 
type                                 {объявление создаваемого типа}
c=array[1..n] of integer; {c- имя типа, представленного в виде массива целых
                                         чисел, размерностью n}
{процедура нахождения макс 1 массива и мин 2-го}
procedure mm(var mx,mn:integer;a,b:c);
var j:integer;
begin
mx:=a[1];{находим макс}
for j:=2 to n do
if (a[j]>mx) then  mx:=a[j];
mn:=b[1]; {находим мин}
for j:=2 to m do
if b[j]<mn then mn:=b[j];
end;
 
var                          { раздел описания переменных }
x,y:c;                         {переменная х типа с}
i,max,min:integer; {переменные целого типа}
z:real;                     {переменная вещественного типа}
begin             {операторные скобки или составные  операторы «начало» }
textcolor(0); {процедура, которая задаёт цвет символов,  в данном случае
                      чёрный }
textbackground(7); {процедура, которая задаёт цвет фона для текста, в данном
                                  случае «серый»}
clrscr;
writeln('Введите элементы массива Х:');
for i:=1 to n do
 begin
  write('x[',i,']=');
  readln(x[i]);
 end;
clrscr;
writeln('Введите элементы массива Y:');
for i:=1 to  m do
 begin
  write('y[',i,']=');
  readln(y[i]);
 end;
clrscr;
writeln('Массив Х:');
for i:=1 to n do
write(x[i]:4);
writeln;
writeln;
writeln('Массив Y:');
for i:=1 to n do
write(y[i]:4);
writeln;
writeln;
mm(max,min,x,y);        {процедура, которая находит максимальный в 1 массиве и минимальный во 2 }
z:=max-min/2;       {вычисляем значение переменной z}
writeln('z=',z:7:1,'  max=',max,'  min=', min); {выводим на экран значение переменной z, максимальный элемент массива х и минимальный элемент массива у}
readkey; { возвращает символ, соответствующий нажатой  клавиши }
end. { операторные скобки или составные операторы  «конец» программы }

@Es.Phoenix · 13.11.2011, 15:18 **[ТС]**

Puporev спасибо, но в 59 строке у вас записано z:=max-min/2; а нужно взять в скобки вот так z:=(max-min)/2; а то у вас получается min делится на 2, а не все выражение.

@Puporev · 13.11.2011, 15:58

Сообщение от Es.Phoenix

Вычислить z=x[max]-y[min]/2

Покажи, где здесь скобки, потом выступай, умник хренов...

@Es.Phoenix · 13.11.2011, 19:06 **[ТС]**

Сообщение от Puporev

Покажи, где здесь скобки, потом выступай, умник хренов...

Новые блоги и статьи Все статьи Все блоги /
Как использовать OAuth2 со Spring Security в Java Javaican 14.05.2025 Протокол OAuth2 часто путают с механизмами аутентификации, хотя по сути это протокол авторизации. Представьте, что вместо передачи ключей от всего дома вашему другу, который пришёл полить цветы, вы. . .	Анализ текста на Python с NLTK и Spacy AI_Generated 14.05.2025 NLTK, старожил в мире обработки естественного языка на Python, содержит богатейшую коллекцию алгоритмов и готовых моделей. Эта библиотека отлично подходит для образовательных целей и. . .	Реализация DI в PHP Jason-Webb 13.05.2025 Когда я начинал писать свой первый крупный PHP-проект, моя архитектура напоминала запутаный клубок спагетти. Классы создавали другие классы внутри себя, зависимости жостко прописывались в коде, а о. . .	Обработка изображений в реальном времени на C# с OpenCV stackOverflow 13.05.2025 Объединение библиотеки компьютерного зрения OpenCV с современным языком программирования C# создаёт симбиоз, который открывает доступ к впечатляющему набору возможностей. Ключевое преимущество этого. . .	POCO, ACE, Loki и другие продвинутые C++ библиотеки NullReferenced 13.05.2025 В C++ разработки существует такое обилие библиотек, что порой кажется, будто ты заблудился в дремучем лесу. И среди этого многообразия POCO (Portable Components) – как маяк для тех, кто ищет. . .
Паттерны проектирования GoF на C# UnmanagedCoder 13.05.2025 Вы наверняка сталкивались с ситуациями, когда код разрастается до неприличных размеров, а его поддержка становится настоящим испытанием. Именно в такие моменты на помощь приходят паттерны Gang of. . .	Создаем CLI приложение на Python с Prompt Toolkit py-thonny 13.05.2025 Современные командные интерфейсы давно перестали быть черно-белыми текстовыми программами, которые многие помнят по старым операционным системам. CLI сегодня – это мощные, интуитивные и даже. . .	Конвейеры ETL с Apache Airflow и Python AI_Generated 13.05.2025 ETL-конвейеры – это набор процессов, отвечающих за извлечение данных из различных источников (Extract), их преобразование в нужный формат (Transform) и загрузку в целевое хранилище (Load). . . .	Выполнение асинхронных задач в Python с asyncio py-thonny 12.05.2025 Современный мир программирования похож на оживлённый мегаполис – тысячи процессов одновременно требуют внимания, ресурсов и времени. В этих джунглях операций возникают ситуации, когда программа. . .	Работа с gRPC сервисами на C# UnmanagedCoder 12.05.2025 gRPC (Google Remote Procedure Call) — открытый высокопроизводительный RPC-фреймворк, изначально разработанный компанией Google. Он отличается от традиционых REST-сервисов как минимум тем, что. . .

@Es.Phoenix 0 / 0 / 0 Регистрация: 11.11.2011 Сообщений: 22

	Вычислить z=x[max]-y[min]/2 11.11.2011, 09:40. Показов 1584. Ответов 6 Метки нет (Все метки) оформить в виде процедуры. Вычислить z=x[max]-y[min]/2 , где X[max]- максимальный элемент массива X(50), Y[min]- минимальный элемент массива Y(40). X[max] и Y[min] вычислять в одной подпрограмме. Добавлено через 13 минут Без рандома. 0

@EvilVoodoo 259 / 94 / 24 Регистрация: 18.04.2011 Сообщений: 719 Записей в блоге: 1
	11.11.2011, 10:13
	Каким образом забивать массив? 0

@Es.Phoenix 0 / 0 / 0 Регистрация: 11.11.2011 Сообщений: 22
	13.11.2011, 15:18 [ТС]
	Puporev спасибо, но в 59 строке у вас записано z:=max-min/2; а нужно взять в скобки вот так z:=(max-min)/2; а то у вас получается min делится на 2, а не все выражение. 0

Опции темы