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

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

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

 
 Ответить  Открыть новую тему 
> ЗАдача с массивами, помогите считает неправильно
сообщение
Сообщение #1


Новичок
*

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

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


Помогите пожалуста бедному студенту,прога не пашет,точнее пашет но неправильно,задали с подпрограммами.Выводит всегда Т,равному у(1)

Даны массивы x(25) и y(25).Найти :

Max(x),eсли min(x) <0
T=
Min(y) иначе
Вот текст моей проги

 program zachita;
type vect=array[1..25] of integer;
var x,y:vect;t,i,minx,miny,min,max:integer;
Procedure wwod (n:integer;var z:vect;q:string);
var i:integer;
begin
For i:=1 to n do begin write (q,'[',i,']=');readln(z[i]);
end;end;
Procedure minimum (z:vect;k:integer;var min:integer);
var i:integer;
begin
min:=z[1];
For i:=2 to k do
If z[i]< min then z[i]:=min;
end;
Procedure shet (z:vect;k:integer;var max:integer);
var i:integer;
begin
max:=z[1];
For i:=2 to k do
If z[i]>max then max:=z[i];
end;
begin
wwod (5,x,'x');
wwod (5,y,'y');
minimum (x,5,min);
minimum (y,5,min);
minx:=min;
miny:=min;
shet (x,5,max);
shet (y,5,max);
t:=0;
If minx<0 then t:=max else t:=miny;
writeln ('t=',t);
readln;readln;
end.
.



Пы.сы,вводил 5,чтоб меньше набивать

Добавлено через 14 мин.
никто не поможет....(

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


Пионер
**

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

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


Пашет, но неправильно, да?!
А что она тогда выдает место верного ответа???


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


Новичок
*

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

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


Выводит всегда Т,равному у(1)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Помощник капитана
****

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

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


Procedure minimum (z:vect;k:integer;var min:integer);
var i:integer;
begin
min:=z[1];
For i:=2 to k do
If z[i]< min then min:=z[i];
end;

А там ты массив зачем-то изменял!


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Пионер
**

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

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


Разбирайся
program zachita;
type vect=array[0..25] of integer;
var x,y:vect;t,i,minx,miny,min,max:integer;
Procedure wwod (n:integer;var z:vect;q:string);
var i:integer;
begin
For i:=0 to n do begin write (q,'[',i,']=');readln(z[i]);
end;end;
Procedure minimum (z:vect;k:integer;var min:integer);
var i:integer;
begin
min:=z[0];
For i:=1 to k do
If z[i]< min then z[i]:=min;
end;
Procedure shet (z:vect;k:integer;var max:integer);
var i:integer;
begin
max:=z[0];
For i:=1 to k do
If z[i]>max then max:=z[i];
end;
begin
wwod (5,x,'x');
wwod (5,y,'y');
minimum (x,5,minx);
minimum (y,5,miny);
shet (x,5,max);
If minx<0 then t:=max else t:=miny;
writeln ('t=',t);
readln;
end.


Номерация элементов масива начинается с 0.

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


Новичок
*

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

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


Спасибо тебе большое sto щас буду разбираться

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


Пионер
**

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

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


Цитата(qwerty) @ 13.05.2007 18:45) *

...
minimum (x,5,min);
minimum (y,5,min);
minx:=min;
miny:=min;
shet (x,5,max);
shet (y,5,max);
...

minx и miny у тебя равны минимальному значению масива y.
Вместо максимума масива x получал максимум масива y.
И напутал с масивами.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

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

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


Цитата(Sto @ 13.05.2007 20:35) *

minx и miny у тебя равны минимальному значению масива y.
Вместо максимума масива x получал максимум масива y.
И напутал с масивами.

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

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

 





- Текстовая версия 2.10.2020 3:34
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name