|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
21.12.2008, 15:20 | #21 |
Пользователь
Регистрация: 19.12.2008
Сообщений: 51
|
alex, у меня так задачу не примут с использ.строк...1ый курс, не прошли ещё
|
21.12.2008, 15:24 | #22 |
Пользователь
Регистрация: 19.12.2008
Сообщений: 51
|
спасибо! и ещё вопросик- что значит uses crt?
|
21.12.2008, 15:28 | #23 |
Пользователь
Регистрация: 19.12.2008
Сообщений: 51
|
и clrscr- что такое?)
|
21.12.2008, 15:30 | #24 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
uses - модуль в котором находится процедура clrscr
clrscr - очищает экран
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
21.12.2008, 15:34 | #25 |
Пользователь
Регистрация: 19.12.2008
Сообщений: 51
|
понятно,а можно это не писать? вот полностью программа, правильно?я немножко изменила, как обычно делаем)
//введите текст из 100 литер, удалив повторные вхождения каждой литеры. program p75_ex41; const n=100; var a:array[1..n] of char; i,j:integer; ok:boolean; begin for i:=1 to n do read(a[i]); writeln; write('Result:'); for i:=1 to n do begin ok:=true; for j:=1 to i-1 do if a[i]=a[j] then ok:=false; if ok then write(a[i]); end; end. |
21.12.2008, 15:37 | #26 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
clrscr
Это я делал исключительно для удобства
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
21.12.2008, 15:44 | #27 |
Пользователь
Регистрация: 19.12.2008
Сообщений: 51
|
{Пусть дана последовательность из N элементов. Уменьшите её, удалив первый из
отрицательных и минимальный из положительных (считайте, что такой элемент один) и сдвинув все остальные к началу.} program p76ex51; const n=100; var A: array [1..n] of integer; pn, pp, i, g, max: integer; ok: boolean; //pn- позиция первого отрицательного элемента, pp-мин.положител.соответственно {$APPTYPE CONSOLE} begin { TODO -oUser -cConsole Main : Insert code here } writeln ('vvedite posledovatelnost'); for i:=1 to n do read (A[i]); readln; ok:=false; i:=1; while (i<=n) and ok do if A[i]<0 then ok:=true else i:=i+1; if ok then pn:=i else pn:=n+1; i:=1; ok:=false; while (i<=n) and ok do if A[i]>0 then ok:=true else i:=i+1; if not ok then pp:=n+1 else begin pp:=i; max:=A[pp]; for g:=i+1 to n do if (A[g]>0) and (A[g]>max) then begin pp:=g and max:=A[g]; end; if pp<pn then left:=pp end. помогите ещё плиз вот эт дописать. там всё вроде верно сделано, осталось заполнить пробел- сдвинуть элементы к началу, как- не знаю( |
21.12.2008, 16:06 | #28 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
21.12.2008, 23:30 | #29 |
Пользователь
Регистрация: 19.12.2008
Сообщений: 51
|
это решение задачи про последовательность? а вот именно дописать то, что я выложила, можно? у меня прреподавательница сказала что всё правильно, только дописать нужно немного) сдвинуть элементы..)
|
22.12.2008, 16:02 | #30 |
Пользователь
Регистрация: 19.12.2008
Сообщений: 51
|
как дорешать это(сдвинуть элементы)??
{Пусть дана последовательность из N элементов. Уменьшите её, удалив первый из отрицательных и минимальный из положительных (считайте, что такой элемент один) и сдвинув все остальные к началу.} program p76ex51; const n=100; var A: array [1..n] of integer; pn, pp, i, g, max: integer; ok: boolean; //pn- позиция первого отрицательного элемента, pp-мин.положител.соответственно {$APPTYPE CONSOLE} begin { TODO -oUser -cConsole Main : Insert code here } writeln ('vvedite posledovatelnost'); for i:=1 to n do read (A[i]); readln; ok:=false; i:=1; while (i<=n) and ok do if A[i]<0 then ok:=true else i:=i+1; if ok then pn:=i else pn:=n+1; i:=1; ok:=false; while (i<=n) and ok do if A[i]>0 then ok:=true else i:=i+1; if not ok then pp:=n+1 else begin pp:=i; max:=A[pp]; for g:=i+1 to n do if (A[g]>0) and (A[g]>max) then begin pp:=g and max:=A[g]; end; if pp<pn then left:=pp end. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Запрос с условием отбора [Введите фамилию] | spets | Microsoft Office Access | 9 | 21.01.2014 02:02 |
Введите данные в массив о N числа туристов | Fantoms01 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 25.11.2008 12:44 |
Задачка за 100-200 | NSvirus | Фриланс | 2 | 12.11.2008 02:27 |
Как узнать какой текст выделен в текст поле | mogul82 | JavaScript, Ajax | 2 | 02.11.2008 16:32 |