Страница 1 из 1
Pascal, циклы, срочно
Добавлено: 07 июн 2009, 00:14
Эльдар
Помоги пожалуйста решить програмку!!!!
Иначе к сессии не допустят!!!!!!!!!!!!!!!!!!:'(
Задача:
Даны три трехзначных числа. Определить есть ли в записи чисел этих одинаковые цифры и если таковые существуют, определить их сумму. (При помощи массивов решать нельзя, не принимают, только циклы и условия) !!!! Срочно!!!!
(Например а=123 в=435 с=521 то сумма должна быть S=1+1+3+3+5+5+2+2 или а=111 в=111 с=111 то сумма будет S=9)
Заранее спасибо!!!!
Re: Pascal, циклы, срочно
Добавлено: 07 июн 2009, 12:19
samec2011
Стучите в асю 11один11-5шесть5шесть, обсудим.
Re: Pascal, циклы, срочно
Добавлено: 07 июн 2009, 13:32
Sheka
Код: Выделить всё
aq:=[a div 100; (a div 10) mod 10 ; a mod 10];
bq:=[b div 100; (b div 10) mod 10 ; b mod 10];
cq:=[c div 100; (c div 10) mod 10 ; c mod 10];
full:=[];
s:=0;
for i:=0 to 9 do begin
if (i in aq)and(i in bq)and(i in cq) then begin
s:=s+3*i;
full:=full+[i];
end;
if (full*[i]=[])and(((i in aq)and(i in bq))or((i in aq)and(i in cq))or((i in bq)and(i in cq))) then s:=s+2*i;
end;
writeln('s=',s);
должно работать. если что - спрашивай.
думаю инициализацию переменных сможешь написать
Re: Pascal, циклы, срочно
Добавлено: 07 июн 2009, 20:22
Эльдар
Спасибо за программу, но она мне не подходит.Эту задачу нам давали когда мы изучали циклы, mod и div, поэтому ничего другого мы не знали. Училка так и требует. Нельзя применять ни массивы ни множества,ни строковые переменные, только циклы и mod и div и ветвление. И выделять цифры желательно в цикле. Вот так и мучаюсь.
Re: Pascal, циклы, срочно
Добавлено: 07 июн 2009, 20:39
samec2011
Стучите в асю 11один11-5шесть5шесть, обсудим.
Re: Pascal, циклы, срочно
Добавлено: 07 июн 2009, 21:04
Sheka
Эльдар писал(а):Вот так и мучаюсь.
icq 255507394
подскажу как решать. сегодня я альтруист(может быть)!
Re: Pascal, циклы, срочно
Добавлено: 07 окт 2009, 17:29
Эльдар
Здравствуйте, помогите найти решение задачи, а то я совсем не понимаю условие (Задача должна быть решена при помоши Рекурсивных процедур и функций)
1) Имеется n населенных пунктов, перенумерованные от 1 до n(n-10). Некоторые пары пунктов присоединены к дорогам. Определить, можно ли попасть по этим дорогам из 1-го пункта в n-й. Информация о дорогах задается в виде последовательности пар чисел i и j (i<j), указывающих, что i-й и j-й пункты соединены дорогой; признак конца этой последовательности – пара нулей.
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Плииииииииииииз
Re: Pascal, циклы, срочно
Добавлено: 08 окт 2009, 21:21
dr.Jekill
Ваши преподаватели полные извращенцы (это касается первой задачи)
Re: Pascal, циклы, срочно
Добавлено: 09 окт 2009, 06:40
atavin-ta
dr.Jekill писал(а):Ваши преподаватели полные извращенцы (это касается первой задачи)
Наоборот, вращенец тот, кто эту задачу решает через массивы, строки тому подобное.