|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.11.2008, 17:46 | #1 |
Регистрация: 17.11.2008
Сообщений: 6
|
Неполучается задача в паскале !!
Вот условие:
Вычислить z=(Xmax-Ymin)/2 где Xmax-максимальный элемент массива Х(50), Ymin-минимальный элемент массива Y(40). Примечание Xmax и Ymin вычислять в одной подпрограмме Выполнить с использованием подпрограммы-процедуры. А вот что я пытался сделать: Program xym; var xmax,ymin,i:integer; x:array[1..50] of integer; y:array[1..40] of integer; z:real; procedure go; begin for i:=1 to 50 do begin if(x[i]>xmax) then x[i]:=xmax; if(i>40) then continue; if(y[i]<ymin) then y[i]:=ymin; end; begin xmax:=x[1]; ymin:=y[1]; go; z:=(xmax-ymin)/2; end. Пожалуста помогите мне!! Исправте что не так !!! |
18.11.2008, 19:22 | #2 |
Пользователь
Регистрация: 09.11.2008
Сообщений: 68
|
Вот, если я правильно понял условие задачи, то решение для неё такое:
Код:
P.S. Присмотрись к оформлению кода, не раз в жизни пригодится! Незачто. Если что - обращайся!!! Последний раз редактировалось JamS007; 18.11.2008 в 19:45. |
18.11.2008, 23:02 | #3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Код:
|
22.11.2008, 03:48 | #4 |
Регистрация: 17.11.2008
Сообщений: 6
|
Большое СПАСИБО !!!!
|
22.11.2008, 03:49 | #5 |
Регистрация: 17.11.2008
Сообщений: 6
|
Блин чё то я не так всё делал !!
|
22.11.2008, 03:52 | #6 |
Регистрация: 17.11.2008
Сообщений: 6
|
А посмотри пожалуста на эту задачу !!! Я её тоже неправильно сделал ???
Условие: Вычислить z=(Xm1+Xm2)/2 где Хm1 и Xm2 - наименьшие элементы массивов X1(70), X2(80).Надо выполнить с использованием попрограммы-функция !! А это у меня получилось: Program xm; var i,xm1,xm2:integer; z:real; x1:array[1..70] of integer; x2:array[1..80] of inteher function go:boolean; begin for i:=1 to 70 do begin if (x1[i]<xm1) then xm1:=x1[i]; end; xm2:=x2[1]; for i:=1 to 80 do begin if (x2[i]<xm2) then xm2:=x2[i]; end; end; begin xm1:=x[1]; go; z:=(xm1+xm2)/2; end. |
22.11.2008, 09:05 | #7 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Для чего тебе привели решение предыдущей задачи? Чтобы в следующей написать ахинею, состоящую из бессмысленного набора операторов? Остатки мозгов то собери в кучку и подумай. Объясняю еще раз.
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ЗАдача на паскале | xakkkkker | Помощь студентам | 1 | 05.11.2008 01:11 |
Задача на Паскале | Radioactive | Фриланс | 3 | 22.10.2008 16:56 |
Неполучается рассортировать текст и числа. Помогите, пожалуйста. | kliocka | Общие вопросы Delphi | 3 | 01.04.2008 20:07 |
задача в паскале | __k1ll3r__ | Помощь студентам | 3 | 27.12.2007 05:41 |