15.11.2009, 09:32 | #181 (permalink) |
Member
Регистрация: 02.11.2009
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Найти первую степень числа 3, превышающую данное целое число a. Язык Pascal. program stepen; var a:LongInt;y:real; FUNCTION x2np(x:extended;n:integer)extended; begin writeln('vvedite 4islo a'); readln (a); y:=x2np(3,n); if y>a then writeln ('n=',n); readln (n); end. Проверьте пожалуйста и укажите на ошибки |
15.11.2009, 10:30 | #182 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
program stepen; var i:LongInt; a:extended; FUNCTION x2np(x:extended;n:integer):extended; Var i:INTEGER; y:Extended; BEGIN IF n=0 THEN x2np:=1 ELSE IF n=1 THEN x2np:=x ELSE BEGIN y:=x; FOR i:=2 TO n DO y:=y*x; x2np:=y; END; END; begin write('vvedite 4islo a '); readln (a); i:=0; REPEAT INC(i); UNTIL x2np(3,i)>a; writeln ('n= ',i); readln; end. |
|
17.11.2009, 15:08 | #183 (permalink) |
Новичок
Регистрация: 17.11.2009
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
плиз помогите сделать лабу
Дано натуральное число N. Каким наименьшим количеством монет можно выплатить N копеек. Предполагается, что в наличии имеется монеты достоинством 1, 3, 5, 10, 20 и 50 копеек. |
17.11.2009, 15:13 | #184 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
|
|
17.11.2009, 20:32 | #185 (permalink) |
Новичок
Регистрация: 17.11.2009
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
плиз помогите сделать лабу мне нужен до четверга!
Дано натуральное число N. Каким наименьшим количеством монет можно выплатить N копеек. Предполагается, что в наличии имеется монеты достоинством 1, 3, 5, 10, 20 и 50 копеек. Перейдите по ссылке из поста #193. Там приведено решение вашей задачи. Ваш модератор. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
17.11.2009, 20:51 | #186 (permalink) |
Новичок
Регистрация: 17.11.2009
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
плиз помогите сделать лабу мне нужно до завтра!
найдите все простые несократимые дроби, заключенные между 0 и 1, знаменатели которых не превышают 7 ( дробь задается двумя натуральными числами - числителем и знаменателем) |
17.11.2009, 21:22 | #187 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Дильшат, в чем дело? Я же Вам дал ссылку на пост (см. #193) с решением задачи! А если Вы так развлекаться изволите, то кончится эта игра очень быстро. Как модератор предупреждаю.
|
17.11.2009, 21:40 | #188 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR i,j:INTEGER; b:BOOLEAN; BEGIN b:=TRUE; FOR j:=2 TO 7 DO FOR i:=1 TO j-1 DO BEGIN IF ((i mod 2 = 0) AND (j mod 2 = 0)) OR ((i mod 3 = 0) AND (j mod 3 = 0)) THEN b:=FALSE; IF b THEN WriteLn(i:1,'/',j:1); b:=TRUE; END; ReadLn; END. |
|
18.11.2009, 16:58 | #190 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Студентам. Помощь в программировании |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
задачи по информатике, помощь, решение задач, студент |
|
|