Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/2: Рейтинг темы: голосов - 2, средняя оценка - 4.50
Harts
0 / 0 / 1
Регистрация: 17.03.2013
Сообщений: 22
1

Вычислить значение выражения

20.03.2013, 18:28. Просмотров 438. Ответов 2
Метки нет (Все метки)

Здравствуйте.
Пожалуйста помогите найти ошибку.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Program Example_11;
uses crt;
var x,a,b,c,n,y: real;
i:integer;
begin
clrscr;
writeln ('1 - 1-exp(1/3*ln(abs(x)))');
writeln ('2 - (sin(x)*ln(x+1))/(1+2*sqr(cos(x)))');
writeln ('3 - ln(1+(2/(1+x)))*cos(x/2)');
writeln;
write ('Uravnenija=');
readln(n);
write ('x=');
readln(x);
a:=0.1;
b:=0.25;
c:=0.1963;
y:=0;
Case n of
1:begin
       for i:= 1 to 10 do
       begin
            y:=y+(1-exp(1/3*ln(abs(x))));
            x:=x+a;
       end;
       write ('y=',y);
end;
2: begin
   while x<=3.5 do
   begin
        y:=y+((sin(x)*ln(x+1))/(1+2*sqr(cos(x))));
        x:=x+b;
   end;
   write ('y=',y);
end;
3:begin
    repeat
          y:=y+(ln(1+(2/(1+x)))*cos(x/2));
          x:=x+c;
    until x>pi;
    write ('y=',y);
end;
else writeln ('Error');
end;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.03.2013, 18:28
Ответы с готовыми решениями:

Вычислить значение выражения
Вычислить значение выражения 1+1/(2)^2+1/(3)^2+1/(4)^2+...+1/(10)^2 uses crt; var b:real;...

Вычислить значение выражения
\frac{{log}_{0,5}\left(2x-{x}^{2}+{5x}^{4}...

Вычислить значение выражения
S=\sum_{4}^{17}i^2+15!

Вычислить значение выражения
n П (1+sin(kx))/k! помогите решить k+1

Вычислить значение выражения
Для заданого двумерного массива найти среднее арифметическое(я нашел его), среднее квадратное...

2
Ded_Vasilij
232 / 214 / 63
Регистрация: 01.09.2012
Сообщений: 2,103
20.03.2013, 19:24 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Program Example_11;
uses crt;
var x,a,b,c,y: real;
n,i:integer;
begin
clrscr;
writeln ('1 - 1-exp(1/3*ln(abs(x)))');
writeln ('2 - (sin(x)*ln(x+1))/(1+2*sqr(cos(x)))');
writeln ('3 - ln(1+(2/(1+x)))*cos(x/2)');
writeln;
write ('Uravnenija=');
readln(n);
write ('x=');
readln(x);
a:=0.1;
b:=0.25;
c:=0.1963;
y:=0;
Case n of
1:begin
       for i:= 1 to 10 do
       begin
            y:=y+(1-exp(1/3*ln(abs(x))));
            x:=x+a;
       end;
       write ('y=',y);
end;
2: begin
   while x<=3.5 do
   begin
        y:=y+((sin(x)*ln(x+1))/(1+2*sqr(cos(x))));
        x:=x+b;
   end;
   write ('y=',y);
end;
3:begin
    repeat
          y:=y+(ln(1+(2/(1+x)))*cos(x/2));
          x:=x+c;
    until x>pi;
    write ('y=',y);
end;
else writeln ('Error');
end;
readkey;
end.
Добавлено через 1 минуту
просто оператор case не любит тип real, поэтому и ругался

Добавлено через 34 секунды
остальное не проверял, т.к. задания нет
1
Harts
0 / 0 / 1
Регистрация: 17.03.2013
Сообщений: 22
20.03.2013, 19:26  [ТС] 3
Спасибо огромное.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.03.2013, 19:26

Вычислить значение выражения
1. 2.

Вычислить значение выражения
1) Написати програму для обчислення суми і добутку. Вимоги до програми: - вхідні дані (початкове...

Вычислить значение выражения
Даны действительные числа s,t. Составить программу вычисления выражения f(t, -2s, 1.17) + f(2.2, t,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru