Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » паскаль задачи (помогите решить..срочно...плиз((()
паскаль задачи
1.начав тренировку,лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10 процентов от пробега предыдущего дня. Определить,в какой день суммарный пробег за все дни привысит 100 км.
2.индийский математик обратил внимание на то что число 1729 можно представить в виде суммы кубов двух чисел двумя способам.найдите эти числа.
3. Каждая буква замещает некоторую десячичную цифру 0-9.расшифруйте равенство и найдите наименьшую и наибольшую СКОРОСтЬ.
СКОР:ОСТ=Ь
1 | Автор: annuschka | 2010-11-28, 13:28   |  Репутация: [ + 0 ]
выложи свои попытки решить задачу, так быстрее заинтресуются и помогут
2 | Автор: admin | 2010-11-28, 13:59   |  Репутация: [ + 21 ]
Вот код для первой программы
Code
program lg;
uses crt;
var a,b,d,x:real;
       c:integer;
begin
        clrscr;
        b:=10;
        c:=1;
        x:=0;
        repeat
        a:=(b/100)*10;
        d:=a+b;
        x:=x+d
        b:=d;
        c:=c+1;
        until x>100;
        writeln ('Summarnyi probeg ',c,' dney');
        readkey;
end.
3 | Автор: HWOARANG | 2010-12-01, 16:15 | Изменено: HWOARANG - Ср, 2010-12-01, 16:33   |  Репутация: [ + 20 ]
Задача №2
Code
Program z2;
uses crt;
var x1,y1,x2,y2,k:integer;
begin
clrscr;
writeln('Представимое числа 1729 двумя различными способами');
writeln('  в виде суммы кубов двух натуральных чисел');
for y1:=1 to trunc(exp(1/3*ln(1729))) do      {цикл до корня кубического из N, дальше нет смысла}
for x1:=y1 to trunc(exp(1/3*ln(1729))) do    {первая пара}
for y2:=1 to trunc(exp(1/3*ln(1729))) do
for x2:=y2 to trunc(exp(1/3*ln(1729))) do    {вторая пара}
if (x1*x1*x1+y1*y1*y1=1729)and(x2*x2*x2+y2*y2*y2=1729)                    {если обе равны 1729}
and((x1<>x2)and(y1<>y2))then                 {и из разных чисел}
  begin
   writeln(x1,'^3+',y1,'^3=',1729);                {выводим}
   writeln(x2,'^3+',y2,'^3=',1729);
   readln;                    
   exit;                    {заканчиваем, а то еще раз выведет пары, только ноборот}
  end;
end.


Тот, кто смеется последним, просто не врубился сразу.)
4 | Автор: Ifrit | 2010-12-04, 12:10   |  Репутация: [ + 12 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » паскаль задачи (помогите решить..срочно...плиз((()
Страница 1 из 11
Поиск: