IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Массивы, Помогите решить,пожалуйста.
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Мужской

Репутация: -  0  +


Помогите , пожалуйста, решить задачу по массиву дня три ломаю над ней голову и не получается.Просто не понимаю, как её решать, через задание нового массива, что ли?Как записать эти гребанные условия и как определить количество.
Заранее буду благодарен всем тем, кто отзовется.
Задача:
Дано x1,x2...x8
Определить N — количество x[i] c чётными номерами, меньшими x1 и xmax.

Сообщение отредактировано: lolbec -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Знаток
****

Группа: Пользователи
Сообщений: 465
Пол: Мужской
Реальное имя: Федосеев Павел

Репутация: -  9  +


А есть уже хоть какие-либо наработки (ввод массива или ещё что-то)?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 3
Пол: Мужской

Репутация: -  0  +


Цитата(Федосеев Павел @ 15.11.2017 12:30) *

А есть уже хоть какие-либо наработки (ввод массива или ещё что-то)?

Есть.

 Program lab6;
Var x: array[1..8] of real;
s1,s2,smax: real;
i: integer;
begin
Writeln('Ввод массива x');
For i:=1 to 8 do begin
Write('x[',i,']=');
Read (x[i]);
end;
smax:=x[1]; n:=1;
For i:=1 to 8 do
If smax<x[i] then begin smax:=x[i]; n:=i;
end;
If x[i] mod 2 = 0 then s1:=s1+x[i] else s2:=s2+x[i];
If s1<x[1] then s1:=s1;
If s1<smax/2 then g[k]:=x[i];
Writeln ('Массив g');
For i:=1 to k do
Writeln (g[i]:8:3);
Writeln ('s1=',s1:8:3, 's2=',s2:8:3, 'smax=',smax:9:3);
end.



Сообщение отредактировано: lolbec -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Знаток
****

Группа: Пользователи
Сообщений: 465
Пол: Мужской
Реальное имя: Федосеев Павел

Репутация: -  9  +


Ещё раз вчитался в условие: подсчитать количество элементов массива меньших x[1] и меньших max(x). В массиве почти все элементы меньше max(x).
program lab6;

var
x: array[1..8] of real;
xmax: real;
i, n: integer;
begin
Writeln('Ввод массива x');
for i := 1 to 8 do
begin
Write('x[', i, ']=');
Read(x[i]);
end;
xmax := x[1];
n := 1;
for i := 1 to 8 do
if xmax < x[i] then
begin
xmax := x[i];
n := i;
end;
writeln('xmax=', xmax);
N := 0;
for i := 1 to 8 do
if odd(i) and (x[i] < x[1]) and (x[i] < xmax) then
Inc(N);
writeln('N=', N);
end.


Сообщение отредактировано: Федосеев Павел -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





Группа: Пользователи
Сообщений: 3
Пол: Мужской

Репутация: -  0  +


Цитата(Федосеев Павел @ 17.11.2017 0:29) *

Ещё раз вчитался в условие: подсчитать количество элементов массива меньших x[1] и меньших max(x). В массиве почти все элементы меньше max(x).
program lab6;

var
x: array[1..8] of real;
xmax: real;
i, n: integer;
begin
Writeln('Ввод массива x');
for i := 1 to 8 do
begin
Write('x[', i, ']=');
Read(x[i]);
end;
xmax := x[1];
n := 1;
for i := 1 to 8 do
if xmax < x[i] then
begin
xmax := x[i];
n := i;
end;
writeln('xmax=', xmax);
N := 0;
for i := 1 to 8 do
if odd(i) and (x[i] < x[1]) and (x[i] < xmax) then
Inc(N);
writeln('N=', N);
end.


Хорошо, я понял, спасибо
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 22.11.2017 1:56
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"