Пара задач с олимпиады - Страница 2

Vladimir_S · 22.01.2009, 10:15

Цитата:

Сообщение от Darkcosinus

Цитата:

Сообщение от Vladimir_S

y:=x+y;

x=250, y=251... Получите integer out of range, распишитесь

Ну, Darkcosinus, теперь Вы меня по-настоящему достали!
Где в Вашей формулировке, скажите на милость, указано, что переменные имеют формат BYTE? Приведенное решение годится для форматов INTEGER, LongInt, REAL, EXTENDED и даже, если определить такой тип, то COMPLEX, т. е. переменные могут быть хоть комплексные!

Цитата:

Сообщение от Darkcosinus

Цитата:

Сообщение от Vladimir_S

x:=(x+y)/2;

А вдруг число нечётное? type mismatch

Если бы Вы соблаговолили проследить всю цепочку, то поняли бы, что в данной строке величина (x+y) есть В ТОЧНОСТИ УДВОЕННОЕ ЗНАЧЕНИЕ ИСХОДНОЙ ВЕЛИЧИНЫ y! Т.е. возражение АБСОЛЮТНО вздорное!

P.S. Боже, упаси нас от таких начальников и заказчиков-самодуров!

Vladimir_S · 22.01.2009, 10:41

Ладно, черт с Вами - если уж так надо извернуться, чтобы остаться в пределах типа BYTE... Можем и так.

IF x>y THEN
BEGIN
y:=x-y;
x:=x-y;
y:=x+y;
END ELSE
BEGIN
x:=y-x;
y:=y-x;
x:=x+y;
END;

Darkcosinus · 22.01.2009, 14:33

Цитата:

Сообщение от Vladimir_S

Приведенное решение годится для форматов INTEGER, LongInt, REAL, EXTENDED и даже, если определить такой тип, то COMPLEX

А они ограничений не имеют? Я просто показал примером, что сложение там не пройдёт. Тип тут не важен.

С делением на 2 - был неправ, ошибся в расчётах.

Последнее решение нежизнеспособно - неправильно работает при x=y и опять же out of range в случае, если одно из значений отрицательное.

Vladimir_S · 22.01.2009, 15:01

Цитата:

Сообщение от Darkcosinus

А они ограничений не имеют? Я просто показал примером, что сложение там не пройдёт. Тип тут не важен.

С делением на 2 - был неправ, ошибся в расчётах.

Последнее решение нежизнеспособно - неправильно работает при x=y и опять же out of range в случае, если одно из значений отрицательное.

При x=y работает - "стоя, лёжа и с колена"! Что-то у Вас, похоже, с арифметикой, сударь, не лады.
Что до знаков - ну можно выстроить цепочку типа
if (x>0) and (y<0) then ... else if ну и т.д. Скучища!

ummasha · 22.01.2009, 17:05

У меня для вас отличная новость! Мне аж до конца учебного года дали книжку с самостоятельными и контрольными по программированию! Если возникнут затруднения - я сразу к вам.

Vladimir_S · 22.01.2009, 17:16

Цитата:

Сообщение от ummasha

У меня для вас отличная новость! Мне аж до конца учебного года дали книжку с самостоятельными и контрольными по программированию! Если возникнут затруднения - я сразу к вам.

Ну что же - чем можем, как говорится. Всегда пожалуйста.

ummasha · 22.01.2009, 19:58

Задача: найти сумму цифр натурального числа:

Program k1_w1_a;
Var m,n,s,p:longint;
k:integer;
Begin
Write('n=');read(n);
m:=n;k:=0;s:=0;
while m<>0 do begin
p:=m mod 10;
s:=s+p;
Writeln('p=',p,'s=',s);
k:=k+1; m:=m div 10;end;
writeln('сумма цифр S=',s); readln;
end.

Все нормально, но зачем выводить это:

n=46
p=6s=6
p=4s=10
сумма цифр S=10

Это - промежуточные значения? Нельзя ли обойтись без них? Просто эта задача решена в книге, а потом дано еще несколько подобных для самостоятельной работы.

Vladimir_S · 22.01.2009, 22:12

Цитата:

Сообщение от ummasha

Это - промежуточные значения? Нельзя ли обойтись без них?

Можно, конечно. Так - для наглядности и для контроля хода выполнения программы. Обучение всё-таки.

AlexZir · 23.01.2009, 10:58

Просто удалите Writeln('p=',p,'s=',s); из программы. Для чего оно нужно - написано выше.

ummasha · 23.01.2009, 16:34

Спасибо! Так и сделаю.

22.01.2009, 10:41	#12 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Ладно, черт с Вами - если уж так надо извернуться, чтобы остаться в пределах типа BYTE... Можем и так. IF x>y THEN BEGIN y:=x-y; x:=x-y; y:=x+y; END ELSE BEGIN x:=y-x; y:=y-x; x:=x+y; END; Последний раз редактировалось Vladimir_S; 22.01.2009 в 10:52

23.01.2009, 10:58	#19 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Просто удалите Writeln('p=',p,'s=',s); из программы. Для чего оно нужно - написано выше. __________________ Убить всех человеков!

22.01.2009, 10:15
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Имеет смысл пролистать аналогичные посты Витая пара Пара общих вопросов Талисманы Олимпиады 2014 Пара вопросов по аудио Пара вопросов по TDA1552Q Пара вопросов по усилителю.

22.01.2009, 17:05	#15 (permalink)
ummasha Member Регистрация: 24.12.2008 Сообщений: 419 Записей в дневнике: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1311	У меня для вас отличная новость! Мне аж до конца учебного года дали книжку с самостоятельными и контрольными по программированию! Если возникнут затруднения - я сразу к вам.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

22.01.2009, 19:58	#17 (permalink)
ummasha Member Регистрация: 24.12.2008 Сообщений: 419 Записей в дневнике: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1311	Задача: найти сумму цифр натурального числа: Program k1_w1_a; Var m,n,s,p:longint; k:integer; Begin Write('n=');read(n); m:=n;k:=0;s:=0; while m<>0 do begin p:=m mod 10; s:=s+p; Writeln('p=',p,'s=',s); k:=k+1; m:=m div 10;end; writeln('сумма цифр S=',s); readln; end. Все нормально, но зачем выводить это: n=46 p=6s=6 p=4s=10 сумма цифр S=10 Это - промежуточные значения? Нельзя ли обойтись без них? Просто эта задача решена в книге, а потом дано еще несколько подобных для самостоятельной работы.

23.01.2009, 16:34	#20 (permalink)
ummasha Member Регистрация: 24.12.2008 Сообщений: 419 Записей в дневнике: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1311	Спасибо! Так и сделаю.