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

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

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

> задача подсчет чтобы то число наити, можете обеснить
maksimla
сообщение 26.02.2009 16:54
Сообщение #1


Знаток
****

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

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


задание дан здоровое число m. Чисел строка 123456789 между ними некоторыми надо вставить знак плюс + или минус - ,чтобы все былобы равно числу m.
пример если m=1 то тогда так 1+2-34+56-7-8-9 подходит.
заполните пропущеные места (отмеченые многоточием).
нельзя использовать дополнительных переменных и нельзя никак изменять текст.
вот программа.
program zenkluIsdestymas;
var t : array[2..9] of string; {в массиве распределены цифры}
m: integer;
procedure BandauDetizenkla(skaitmuo, reiskinys : longint;
zenklas : char;
zenklo_vieta : integer);
var naujas_reiskinys : longint;
i: 2..9;
begin
if ... = '+'
then naujas_reiskinys := ...
else naujas_reiskinys := ...;
if zenklo_vieta ...
then
begin
t[zenklo_vieta] := ...; ...;
t[zenklo_vieta] := ...; ...;
t[zenklo_vieta] := ...; ...
end

else {проверка равности}
if ... = m
then
begin
for i := 2 to 9 do ...;
writeln('9');
end;
end;
begin
readln(m);
fillchar(t, sizeof(t), '');
BandauDetizenkla;(1, 0, '+', 2)
end.



можете обеснить что программа делает тут
fillchar(t, sizeof(t), '');

и как так считается числа все то я вот задал m=200 и никак несмог подсчитать
пожалста только в саму программу пока нечего невставляйте вместо точек хочется все самаму вставить подумать и вставить а сечас только понять мне надо

Сообщение отредактировано: maksimla - 27.02.2009 13:13


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
maksimla
сообщение 2.03.2009 17:54
Сообщение #2


Знаток
****

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

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


а что некто непоможет чтоли с этим заданием этим?


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 



- Текстовая версия 18.07.2025 17:27
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"