|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
23.11.2013, 10:37 | #11 | |
Пользователь
Регистрация: 22.11.2013
Сообщений: 19
|
ваша программа идет, спасибо, но не могу вникнуть, как она работает
выбора нет, на город уже уморился пройти. да изучал я паскаль один год и то не полный, и изучали не углубленно, не наш профиль был, дальше сам по немногу в школе из того что здесь написано, я не проходил, скажем uses crt; repeat- until dec, unc - их я изучал сам chr IntToStr а что такое это, не имею понятия, в readkey сильно еще не вникал Цитата:
еще вопрос код: Код:
Последний раз редактировалось Stilet; 23.11.2013 в 13:19. |
|
23.11.2013, 11:06 | #12 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Пишите и читайте по отдельности.
Код:
|
23.11.2013, 17:26 | #13 |
Пользователь
Регистрация: 22.11.2013
Сообщений: 19
|
еще одна задача:
Вася, кандидат в меры деревни Гадюкино, поручил электрику Пете провести ремонт освещения главной улицы. Предъявленное Пете требование было простое - улица должна освещаться, а из ламп на любых пяти подряд стоящих столбах хотя бы одна должна гореть. Другое требование было еще проще - новых ламп на замену сгоревших испоьзовать как можно меньше. Выясните, сколько новых ламп понадобится Пете. Входные данные: В первой строке - количество столбов (до 250). Во второй - символы "1" или "0", означающие, исправна ли лампа на соответствующем столбе или нет. Выходные данные: количество новых ламп. Пример входных данных: 11 10000000001 Пример выходных данных: 1 код: program bred; uses crt; var a,c,d,e,s,i:integer; b:array [1..250] of integer; begin c:=1; d:=5; e:=0; s:=0; readln(a); for i:=1 to a do read(b[i]); while i<=a do begin for i:= c to d do if b[i]=1 then e:=1; if e=0 then begin b[i]:=1; s:=s+1; end; inc(c); inc(d); e:=0; end; writeln(s); end. программа работает, но при вводе 14 столбов, и все лампы перегоревшие, показывает что надо заменит 3 лампы, а не 2 |
23.11.2013, 19:32 | #14 | ||
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Цитата:
Цитата:
|
||
23.11.2013, 19:57 | #15 | ||
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Цитата:
Цитата:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Последний раз редактировалось Аватар; 23.11.2013 в 20:01. |
||
23.11.2013, 20:14 | #16 |
Пользователь
Регистрация: 22.11.2013
Сообщений: 19
|
что бы это "ТС" хоть что то понял, объясните, что делает chr
|
23.11.2013, 20:14 | #17 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
А справка на что?
Цитата:
|
|
23.11.2013, 20:16 | #18 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,341
|
Вроде работает:
Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
23.11.2013, 20:37 | #19 |
Пользователь
Регистрация: 22.11.2013
Сообщений: 19
|
спасибо, понял.
правда так и не понял в чем ошибка в моей программе |
24.11.2013, 19:23 | #20 |
Пользователь
Регистрация: 22.11.2013
Сообщений: 19
|
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Подготовка к региональной олимпиаде | New man | Помощь студентам | 20 | 14.12.2012 21:01 |
Гиа 2012 готовлюсь | XYLIGAN72 | Помощь студентам | 10 | 14.01.2012 15:37 |
Задачи по олимпиаде | Darick | Помощь студентам | 7 | 23.12.2011 15:45 |
Дали детям две задачки на олимпиаде по информатике O_O | Каля-маля | Помощь студентам | 8 | 10.11.2008 17:29 |
Как подготовиться к олимпиаде? | Kn793 | Помощь студентам | 16 | 26.07.2008 12:22 |