С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Анатолий007
0 / 0 / 0
Регистрация: 04.11.2013
Сообщений: 16
1

Вычислить

14.12.2013, 14:45. Просмотров 936. Ответов 2
Метки нет (Все метки)

6. Написать программу решения следующей задачи: Вычислить z1=(xmax+ymin)/2 и z2=(xmin+ymax)/2 где xmax и ymax – максимальные элементы массивов X(20), Y(30); xmin и ymin – минимальные элементы этих же массивов (вычисление максимального и минимально элементов массива осуществлять в одной подпрограмме).
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.12.2013, 14:45
Ответы с готовыми решениями:

Вычислить объемы шаров . Вычисление радиусов вычислить в подпрограмме.
точки А(5.I,2.9,-3.7),В(0.8,-1.5,3.9),С(2.2,0.8,5.4) и D(-3.3,2.5,0.7) принадлежат поверхностям...

Задан массив А размером п. Вычислить среднее арифметическое положительных элементом. Вычислить a1 • a2 + a2 • a3 + + an -1 • an
помогите решить, пожалуйста! Задан массив А размером n. Вычислить среднее арифметическое...

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

Даны целые числа X,Y,Z. Вычислить MAX(X+Y,XYZ). Вычислить MIN(X,Y,Z X-Y)
1. Даны целые числа X,Y,Z. Вычислить MAX(X+Y,XYZ). 2. Даны целые числа X,Y,Z. Вычислить...

Вычислить элемент матрицы А и вычислить суммы элементов каждой строки
Напечатать матрицу А и вычислить суммы элементов каждой строки матрицы А

2
frutka
11 / 11 / 21
Регистрация: 06.12.2013
Сообщений: 27
14.12.2013, 15:43 2
Лучший ответ Сообщение было отмечено Анатолий007 как решение

Решение

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
type
 masx = array [1..20] of integer;
 masy = array [1..30] of integer;
 
procedure minmax(x:masx; y:masy; var xmin,xmax,ymin,ymax:integer);
var
 i:integer;
begin
 xmin:=x[1]; xmax:=x[1];
 ymin:=y[1]; ymax:=y[1];
 for i:=1 to 20 do begin
  if xmin>x[i] then xmin:=x[i];
  if xmax<x[i] then xmax:=x[i];
 end;
 for i:=1 to 30 do begin
  if ymin>y[i] then ymin:=y[i];
  if ymax<y[i] then ymax:=y[i];  
 end;
end;
 
var
 X:masx;
 Y:masy;
 i,xmin,xmax,ymin,ymax:integer;
 z1,z2:real;
begin
 for i:=1 to 20 do
  readln(x[i]);
 for i:=1 to 30 do
  readln(y[i]);
 minmax(x, y, xmin,xmax,ymin,ymax);
 z1:=(xmax+ymin)/2;
 z2:=(xmin+ymax)/2;
 writeln(z1:2, ' ', z2:2);
end.
1
Анатолий007
0 / 0 / 0
Регистрация: 04.11.2013
Сообщений: 16
14.12.2013, 16:06  [ТС] 3
Благодарю!!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2013, 16:06

Вычислить сумму чисел:в указанном пределе, с неопределенным пределом. Вычислить значение выражения
s=\sum_{n=1}^{15}*{(-1)}^{n+1}*\frac{2*sin(n*x)}{n},y=x Помогите найти ошибку. unit Unit1; ...

Вычислить значение t, соответствующие каждому значению x по формуле. Вычислить количество отрицательных значений x
Циклы. На С++ Вариант 7! Задание: Составить алгоритм решения задачи согласно своему варианту. В...

Вычислить среднее арифметическое отрицательных чисел. Вычислить сумму элементов каждой строки
Помогите с реализацией задачи: Задать целочисленный двумерный массив NxM (значения N, M вводятся с...


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

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

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