profile
Опубликовано 5 лет назад по предмету Информатика от yokii

Составить программу в Паскале:

Найти наибольшее целое n такое что :
a) 3n^4-730n<5
b) e^n-1000Ln*n<=10
 

  1. Ответ
    Ответ дан Аккаунт удален
    1) Если использовать последний Паскаль АВС, который умеет вычислять степень (Power), то вот вариант программы:
    var
       n:integer;
       s:real; {вообще, он целый, но мой компилятор не пропускает, почему-то считает, что                 результат вычислений будет real}
    begins:=0;
    n:=1;
    while s<5 do 
       begin
       s:=3*power(n,4)-730*n; {для старого Паскаля напиши так: s:=3*sqr(sqr(n))-730*n}
       n:=n+1
    end;
    writeln(n)
    end.

    2)
    var n,s:real;
    begin
    s:=0;
    n:=1;
    while s<=10 do
       begin
       s:=exp(n)-1000*Ln(n);
       n:=n+1
       end;
    writeln(n)
    end.
    1. Ответ
      Ответ дан yokii
      поставлю лучший, как будут баллы
    2. Ответ
      Ответ дан Аккаунт удален
      Ошибку увидел, там в строке "напиши так: s:=3*sqr(sqr(n))-730*n" скобки не хватало. Исправил. Ты тоже исправь, если уже переписала
    3. Ответ
      Ответ дан Аккаунт удален
      Спасибо, мне баллы не нужны. Оставь себе, пригодятся еще))
    4. Ответ
      Ответ дан yokii
      :)
    5. Ответ
      Ответ дан Аккаунт удален
      В предпоследней строчке в каждой проги надо вместо writeln(n) написать writeln(n-1)
Самые новые вопросы