1 Тема від magnevitis Востаннє редагувалося Torbins (02.03.2014 20:58:39)

  • magnevitis
  • Користувач
  • Поза форумом
  • Дата реєстрації: 04.07.2013
  • Повідомлень: 72
    • Репутація: 3

Тема: Обчислення формули

Потрібна програма,яка б виводила результак за такою формолую : F:=a*Log за основою а від числа (a+b)^2+cos^2(b/c)
Я намагався щось зробити,проте неправильно,допоможыть будь-ласка....Напишіть програму або вкажіть на помилки.

Post's attachments

123.png 56.06 kb, 301 downloads since 2014-03-02 

2 Відповідь від Chemist-i Востаннє редагувалося Chemist-i (02.03.2014 18:56:21)

  • Chemist-i
  • Chemist-i
  • Replace Team
  • Поза форумом
  • Звідки: world wide web
  • Дата реєстрації: 31.10.2012
  • Повідомлень: 3 800
    • Репутація: 2394

Re: Обчислення формули

magnevitis написав:

Я намагався щось зробити

Будь-ласка код в студію

magnevitis написав:

проте неправильно

А ми подивимось, і поможемо

Про картинку. В чому саме проблема?

Upd. Я думаю що не працює бо не знає функцій cos, log, ... etc - Треба додати секцію

Uses 
  Math;

Chemist-i вебсайт

3 Відповідь від koala

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 601
    • Репутація: 13310

Re: Обчислення формули

/ln(1)

facepalm.png

koala вебсайт

4 Відповідь від magnevitis

  • magnevitis
  • Користувач
  • Поза форумом
  • Дата реєстрації: 04.07.2013
  • Повідомлень: 72
    • Репутація: 3

Re: Обчислення формули

koala написав:

/ln(1)

facepalm.png


Так,так,знаю

5 Відповідь від magnevitis

  • magnevitis
  • Користувач
  • Поза форумом
  • Дата реєстрації: 04.07.2013
  • Повідомлень: 72
    • Репутація: 3

Re: Обчислення формули

Chemist-i написав:
magnevitis написав:

Я намагався щось зробити

Будь-ласка код в студію

magnevitis написав:

проте неправильно

А ми подивимось, і поможемо

Про картинку. В чому саме проблема?

Upd. Я думаю що не працює бо не знає функцій cos, log, ... etc - Треба додати секцію

Uses 
  Math;




program rrr;
var f,a,b,c :integer;
BEGIN
readln (a,b,c);
f:=a*ln((a+b)*(a+b))/ln(a)+cos(b/c)*cos(b/c);
writeln (f);
end.

6 Відповідь від Torbins

  • Torbins
  • Torbins
  • Replace Team
  • Поза форумом
  • Дата реєстрації: 07.05.2012
  • Повідомлень: 3 080
    • Репутація: 2279

Re: Обчислення формули

magnevitis
Integer варто замінити на Real, бо f буде дробовим числом.

7 Відповідь від magnevitis

  • magnevitis
  • Користувач
  • Поза форумом
  • Дата реєстрації: 04.07.2013
  • Повідомлень: 72
    • Репутація: 3

Re: Обчислення формули

Ось що виходить

Post's attachments

123.png 53.25 kb, 276 downloads since 2014-03-03 

8 Відповідь від Chemist-i Востаннє редагувалося Chemist-i (03.03.2014 17:44:08)

  • Chemist-i
  • Chemist-i
  • Replace Team
  • Поза форумом
  • Звідки: world wide web
  • Дата реєстрації: 31.10.2012
  • Повідомлень: 3 800
    • Репутація: 2394

Re: Обчислення формули

Uses приберіть

Chemist-i вебсайт

9 Відповідь від magnevitis

  • magnevitis
  • Користувач
  • Поза форумом
  • Дата реєстрації: 04.07.2013
  • Повідомлень: 72
    • Репутація: 3

Re: Обчислення формули

Chemist-i написав:

Uses приберіть

Нічого не змінилось...те саме

10 Відповідь від Chemist-i

  • Chemist-i
  • Chemist-i
  • Replace Team
  • Поза форумом
  • Звідки: world wide web
  • Дата реєстрації: 31.10.2012
  • Повідомлень: 3 800
    • Репутація: 2394

Re: Обчислення формули

код в студію, та перелік помилок

Chemist-i вебсайт

11 Відповідь від magnevitis

  • magnevitis
  • Користувач
  • Поза форумом
  • Дата реєстрації: 04.07.2013
  • Повідомлень: 72
    • Репутація: 3

Re: Обчислення формули

Chemist-i написав:

код в студію, та перелік помилок

Намагався так

program rrr;
var f,a,b,c :real;
math;
BEGIN
readln (a,b,c);
f:=a*ln((a+b)*(a+b))/ln(a)+cos(b/c)*cos(b/c);
writeln (f);
end.

так

program rrr;
var f,a,b,c :real, math;
BEGIN
readln (a,b,c);
f:=a*ln((a+b)*(a+b))/ln(a)+cos(b/c)*cos(b/c);
writeln (f);
end.

і навіть так

program rrr;
var f,a,b,c :real    math;
BEGIN
readln (a,b,c);
f:=a*ln((a+b)*(a+b))/ln(a)+cos(b/c)*cos(b/c);
writeln (f);
end.

А код помилки не дає(чи я не знаю як подивитись)(У мене Windows 7. Free Pascal)

12 Відповідь від Chemist-i Востаннє редагувалося Chemist-i (03.03.2014 18:24:31)

  • Chemist-i
  • Chemist-i
  • Replace Team
  • Поза форумом
  • Звідки: world wide web
  • Дата реєстрації: 31.10.2012
  • Повідомлень: 3 800
    • Репутація: 2394

Re: Обчислення формули

▼Прихований текст

facepalm

А так?

program rrr;
var f,a,b,c :real;
BEGIN
readln (a,b,c);
f:=a*ln((a+b)*(a+b))/ln(a)+cos(b/c)*cos(b/c);
writeln (f);
end.
Подякували: magnevitis1

Chemist-i вебсайт

13 Відповідь від magnevitis

  • magnevitis
  • Користувач
  • Поза форумом
  • Дата реєстрації: 04.07.2013
  • Повідомлень: 72
    • Репутація: 3

Re: Обчислення формули

Chemist-i написав:
▼Прихований текст

facepalm

А так?

program rrr;
var f,a,b,c :real;
BEGIN
readln (a,b,c);
f:=a*ln((a+b)*(a+b))/ln(a)+cos(b/c)*cos(b/c);
writeln (f);
end.

Так,дякую велике,помилка була в типі данних...integer для цьго явно не пыдходив

Подякували: Torbins1

14 Відповідь від Torbins

  • Torbins
  • Torbins
  • Replace Team
  • Поза форумом
  • Дата реєстрації: 07.05.2012
  • Повідомлень: 3 080
    • Репутація: 2279

Re: Обчислення формули

magnevitis
Здогадуюсь, що підійшов Extended, Double чи Single. Real мабуть пройшов би, якщо між першою та другою строкою вставити {$MODE TP}

15 Відповідь від yar

  • yar
  • Користувач
  • Поза форумом
  • Дата реєстрації: 19.02.2018
  • Повідомлень: 8
    • Репутація: 0

Re: Обчислення формули

Chemist-i написав:
▼Прихований текст

facepalm

А так?

program rrr;
var f,a,b,c :real;
BEGIN
readln (a,b,c);
f:=a*ln((a+b)*(a+b))/ln(a)+cos(b/c)*cos(b/c);
writeln (f);
end.

А якщо (a+b)=0 або (ln(a)+cos(b/c)*cos(b/c))=0?

16 Відповідь від Torbins

  • Torbins
  • Torbins
  • Replace Team
  • Поза форумом
  • Дата реєстрації: 07.05.2012
  • Повідомлень: 3 080
    • Репутація: 2279

Re: Обчислення формули

Комп'ютер за вас рівняння розв'язувати не буде. Ви спочатку самі мусите їх розв'язати, а за допомогою комп'ютера уже зможете різні значення в розв'язок підставляти.

17 Відповідь від Chemist-i

  • Chemist-i
  • Chemist-i
  • Replace Team
  • Поза форумом
  • Звідки: world wide web
  • Дата реєстрації: 31.10.2012
  • Повідомлень: 3 800
    • Репутація: 2394

Re: Обчислення формули

Torbins написав:

Комп'ютер за вас рівняння розв'язувати не буде. Ви спочатку самі мусите їх розв'язати, а за допомогою комп'ютера уже зможете різні значення в розв'язок підставляти.

▼Прихований текст

Маткад вміє :)

Chemist-i вебсайт

18 Відповідь від yar Востаннє редагувалося yar (26.02.2018 08:30:39)

  • yar
  • Користувач
  • Поза форумом
  • Дата реєстрації: 19.02.2018
  • Повідомлень: 8
    • Репутація: 0

Re: Обчислення формули

Torbins написав:

Комп'ютер за вас рівняння розв'язувати не буде. Ви спочатку самі мусите їх розв'язати, а за допомогою комп'ютера уже зможете різні значення в розв'язок підставляти.

Я маю на увазі, чи не повинна програма (див. повідомлення 12) видавати відповідні повідомлення, чи достатньо повідомлень про помилку, наприклад 207 або 200? Для прикладу, помилка 207 з’явиться при введених  значеннях a=3, b=-3.

19 Відповідь від Torbins

  • Torbins
  • Torbins
  • Replace Team
  • Поза форумом
  • Дата реєстрації: 07.05.2012
  • Повідомлень: 3 080
    • Репутація: 2279

Re: Обчислення формули

Усе залежить від поточних потреб, якогось універсального рецепту не існує. Якщо пишете програму для себе, на один раз, то можна не морочити собі голову. Якщо програмою будуть користуватися інші люди, тоді звичайно варто подбати про перевірку введених значень, та змістовні повідомлення про помилки. У великих програмах часто винятки використовують: https://uk.wikipedia.org/wiki/%D0%9E%D0 … 1%96%D0%B2