|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.06.2009, 15:22 | #1 |
Пользователь
Регистрация: 11.11.2008
Сообщений: 32
|
ошибка!!!
условие
Ввести последовательность неповторяющихся чисел. Сформировать вектор из чисел, стоящих до Max, и вектор из чисел, стоящих после Min Program MaxMin; Const Dim=10; var x,y,z:array[1..Dim] of integer; min,max,imin,imax,i,n,k,kz,ky,o:int eger; begin writeln('Введите количество<= ',Dim,': '); readln(n); writeln ('Введите неповторяющиеся целые числа* '); readln; for i:=1 to n do read(x[i]); readln; min:=x[1]; imin:=1; max:=x[1]; imax:=1; for i:=2 to n do begin if x[i]>max then begin max:=x[i]; imax:=i; end else if x[i]<min then begin min:=x[i]; imin:=i; end; end; {****} отсюда начинается ошибка , т.е прога неправильна дальше помогите плиззз ky:=0; for i:=imax to n do begin 3y[ky]:=x[i]; end; kz:=0; for i:=imin to n do begin z[kz]:=x[i]; end; {***} writeln('----------------'); writeln('Вектор из чисел стоящих до максимума:'); if ky<=n then begin for i:=1 to ky do write ( y[i]:6); writeln; end else writeln ('Вектор не сформирован**'); readln; writeln('----------------'); writeln('Вектор из чисел стоящих после минимума:'); if kz>=n then begin for i:=1 to kz do write ( z[i]:6); writeln; end else writeln ('Вектор не сформирован**'); writeln('----------------'); readln; end.
AndreiKA_PC
|
01.06.2009, 15:47 | #2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
01.06.2009, 15:57 | #3 |
Пользователь
Регистрация: 11.11.2008
Сообщений: 32
|
а если вектора не сформированы , что писать?
AndreiKA_PC
|
01.06.2009, 16:04 | #4 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Векторы будут не сформированы если минимальный элемент - последний в последовательности а максимальный первый
Код:
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Nero - ошибка драйвера DMA. ошибка CRC | NecRoMat | Софт | 5 | 09.05.2012 01:29 |
Ошибка в Аfor i:=1 to SI do. Пишит что ошибка в SI | Алексей_xXx | Помощь студентам | 2 | 29.05.2009 00:09 |
...Ошибка 101 (net::ERR_CONNECTION_RESET): Неизвестная ошибка... | infrared | Помощь студентам | 0 | 16.04.2009 17:44 |
Ошибка | Devourer12345 | Microsoft Office Access | 2 | 10.08.2008 20:24 |