1 Востаннє редагувалося Torbins (02.03.2014 21:58:39)

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

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

Post's attachments

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

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

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

magnevitis написав:

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

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

magnevitis написав:

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

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

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

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

Uses 
  Math;
x

3

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

/ln(1)

facepalm.png

4

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

koala написав:

/ln(1)

facepalm.png


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

5

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

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

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

7

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

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

Post's attachments

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

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

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

Uses приберіть

x

9

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

Chemist-i написав:

Uses приберіть

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

10

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

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

x

11

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 (03.03.2014 19:24:31)

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. 
x
Подякували: magnevitis1

13

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

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

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

15

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

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

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

17

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

Torbins написав:

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

Прихований текст
Маткад вміє :)
x

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

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

Torbins написав:

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

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

19

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

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