Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Закрытая тема
 
Опции темы Опции просмотра
Старый 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)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,809
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 112676
По умолчанию

Цитата:
Сообщение от ДенисКО Посмотреть сообщение
Подскажите пожалуйста с программой:
Найти первую степень числа 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.

Проверьте пожалуйста и укажите на ошибки
Пожалуйста. Во-первых, отсутствует сама функция x2np (есть только заголовок), во-вторых, нет цикла поиска нужного значения степени, в третьих, перепутаны глобальные параметры с параметрами функции. Так что:

Код:
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.
Vladimir_S вне форума  
Старый 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)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,809
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 112676
По умолчанию

Цитата:
Сообщение от Дильшат Посмотреть сообщение
плиз помогите сделать лабу
Дано натуральное число N. Каким наименьшим количеством монет можно выплатить N копеек. Предполагается, что в наличии имеется монеты достоинством 1, 3, 5, 10, 20 и 50 копеек.
Помогите сделать лабу
Vladimir_S вне форума  
Старый 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)
Denim1916
Новичок
 
Регистрация: 17.11.2009
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

плиз помогите сделать лабу мне нужно до завтра!
найдите все простые несократимые дроби, заключенные между 0 и 1, знаменатели которых не превышают 7 ( дробь задается двумя натуральными числами - числителем и знаменателем)
Denim1916 вне форума  
Старый 17.11.2009, 21:22   #187 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,809
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 112676
По умолчанию

Цитата:
Сообщение от Дильшат Посмотреть сообщение
плиз помогите сделать лабу мне нужен до четверга!
Дано натуральное число N. Каким наименьшим количеством монет можно выплатить N копеек. Предполагается, что в наличии имеется монеты достоинством 1, 3, 5, 10, 20 и 50 копеек.
Дильшат, в чем дело? Я же Вам дал ссылку на пост (см. #193) с решением задачи! А если Вы так развлекаться изволите, то кончится эта игра очень быстро. Как модератор предупреждаю.
Vladimir_S вне форума  
Старый 17.11.2009, 21:40   #188 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,809
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 112676
По умолчанию

Цитата:
Сообщение от Denim1916 Посмотреть сообщение
плиз помогите сделать лабу мне нужно до завтра!
найдите все простые несократимые дроби, заключенные между 0 и 1, знаменатели которых не превышают 7 ( дробь задается двумя натуральными числами - числителем и знаменателем)
Код:
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.
Vladimir_S вне форума  
Старый 18.11.2009, 16:50   #189 (permalink)
ДенисКО
Member
 
Регистрация: 02.11.2009
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Опять я со своей задачей:
Найти первую степень числа 3, превышающую данное целое число a(ИСПОЛЬЗОВАТЬ ТОЛЬКО ЦИКЛЫ). Язык Pascal.
ДенисКО вне форума  
Старый 18.11.2009, 16:58   #190 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,809
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 112676
По умолчанию

Цитата:
Сообщение от ДенисКО Посмотреть сообщение
Опять я со своей задачей:
Найти первую степень числа 3, превышающую данное целое число a(ИСПОЛЬЗОВАТЬ ТОЛЬКО ЦИКЛЫ). Язык Pascal.
А вот интересно, для кого мы здесь пишем эти программки, если вопрошающий даже не заглядывает в ответы на свои запросы? Видимо, для собственного удовольствия. Спасибо, мил человек, а то нам как раз заняться нечем!
Студентам. Помощь в программировании
Vladimir_S вне форума  
Ads

Яндекс

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

Метки
задачи по информатике, помощь, решение задач, студент

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 19:52.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.