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, 76 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, 77 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}