Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 24.04.2016
Сообщений: 6
1

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

24.04.2016, 12:29. Просмотров 290. Ответов 2
Метки нет (Все метки)

Итак, нужно написать простенькую программку с подсчетом по формуле. Давно в Паскале не был, очень многое позабыл. Ругается на все выражение начиная с экспоненты.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program qwe;
var a,b,t,e,y,s: integer;
begin
writeln('Vvedite b');
readln (b);
writeln('Vvedite t');
readln (t);
writeln('Vvedite a');
readln (a);
y:=exp(-b*t)*sin(a*t+b)-sqrt(abs(b*t)+a);
writeln();
end.
Второю формулу я записал в таком виде
Pascal
1
s:=b*sin(a^(t*t)*cos*2*t)-1;
но ещё не проверял на ошибки.
0
Миниатюры
Вычислить значение выражения  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.04.2016, 12:29
Ответы с готовыми решениями:

Вычислить значение выражения
Не могу понять где ошибся. Надеюсь поможете y=\sum_{i=1}^{10}(\frac{{X}_{i}-C}{X{i}^{2}});...

Вычислить значение выражения
Я снова составить программу по подобной задаче и снова запуталась. Выручайте program lab8;...

Вычислить значение выражения
Program nomer3; Var S, a, x, y: real; k: integer; Begin S:=0; a:=0.001; k:=1; ...

Вычислить значение выражения
Написать программу и вычислить: Значение X выдать с клавиатуры. DI=R^3-\sqrt{\frac{c}{3q}} ...

2
Модератор
62267 / 46546 / 32087
Регистрация: 18.05.2008
Сообщений: 112,527
24.04.2016, 13:28 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program qwe;
var a,b,t,y,s:real;
begin
writeln('Vvedite b');
readln (b);
writeln('Vvedite t');
readln (t);
writeln('Vvedite a');
readln (a);
if abs(b*t)+a<0 then writeln('Y не определено')
else
 begin
  y:=exp(-b*t)*sin(a*t+b)-sqrt(abs(b*t)+a);
  writeln('Y=',y:0:3);
 end;
s:=b*sin(a*t*t*cos(2*t))-1;
writeln('S=',s:0:3);
end.
1
0 / 0 / 0
Регистрация: 24.04.2016
Сообщений: 6
24.04.2016, 13:37  [ТС] 3
Благодарю!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.04.2016, 13:37

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вычислить значение выражения
Как решить это задание )заранее благодарен

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

Вычислить значение выражения
Паскаль АБС \frac{x}{2}+\frac{5 x^{2} }{5}}+\frac{9 x^{3} }{8}}+...

Вычислить значение выражения
program lab8; var x: integer; y: real; function f(a:integer):real; begin...

Вычислить значение выражения
Помогите пожалуйста 28 лабораторная 7 вариант

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


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

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

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