Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.72/18: Рейтинг темы: голосов - 18, средняя оценка - 4.72
OverloaD
0 / 0 / 0
Регистрация: 20.11.2010
Сообщений: 63
1

Запись арифметических выражений

12.09.2011, 21:29. Просмотров 3494. Ответов 4
Метки нет (Все метки)

Как правильно написать на паскале с этой фотки А1 и Аn. Помогите, а остальное вроде ясно! Блин почитал и не ясно, куда записать то что дано? x, y, n, d ??
0
Миниатюры
Запись арифметических выражений  
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.09.2011, 21:29
Ответы с готовыми решениями:

Вычисление арифметических выражений
Помогите пожалуйста с задачами в паскаль. 1.Алгоритмы линейной структуры .Вычисление...

Вычисление арифметических выражений
var z:integer;a,b:real; begin z:=1; a:=cos(pi/2*3); b:=z+a; end. почему при вычислении z+a...

Задание на использование арифметических выражений и ф-й
Прошу помочь дорогие друзья. ~ Задача: Составить программу вычисления значения "y" Скриншот:

Использование арифметических выражений и функций!
Помощь!

Вычислить значения арифметических выражений
Составьте программу для вычисления значения арифметических выражений при x=1: а)...

4
Zanexess
112 / 85 / 52
Регистрация: 22.10.2010
Сообщений: 227
12.09.2011, 22:11 2
Pascal
1
2
3
4
5
6
7
8
9
10
var x,y,d:real;
    n:integer;
    i:integer;
    
begin
x:= sqrt(2.5);
n:= 10;
y:= 16.5E-1;
d:= 1.35;
end.
Все делается в цикле.
1
gerardino
13 / 4 / 5
Регистрация: 12.12.2010
Сообщений: 19
12.09.2011, 22:13 3
a[1]:=sin(x)/cos(x) +2.35*ln(y)/ln(10);
a[n]:=a[1]+d*(n-1);
0
OverloaD
0 / 0 / 0
Регистрация: 20.11.2010
Сообщений: 63
12.09.2011, 22:24  [ТС] 4
Цитата Сообщение от Zanexess Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
var x,y,d:real;
    n:integer;
    i:integer;
    
begin
x:= sqrt(2.5);
n:= 10;
y:= 16.5E-1;
d:= 1.35;
end.
Все делается в цикле.
а "і" откуда??
раз пошла такая канитель напишите пожалуйста всю что ли!
0
VALIDOL4IK
11 / 2 / 7
Регистрация: 09.09.2011
Сообщений: 60
13.09.2011, 00:55 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program 22;
Const
y=1.65;
n=10;
d=1.35;
Var
Sn, A1, An, x, log: real;
Begin
  log:=ln(y)/ln(2); (*Логарифм считаем по формуле log(a,b)=ln(a)/ln(b) где а - число, b - основание логарифма*)
  x:=sqrt(2.5); (*т.к. в константах невозможно посчитать такое выражение, мы считаем его здесь*)
  A1:=(sin(x)/cos(x))+2.35*(ln(y)); (*т.к. функции tg в Паскале нет, считаем tg как sin(x)/cos(x)*)
  An:=A1+d*(n-1);
  Sn:=((A1+An)/2)*n;
  Writeln ('Сумма = ', Sn:4:2);
End.
Добавлено через 1 час 2 минуты
Цитата Сообщение от VALIDOL4IK Посмотреть сообщение
Pascal
1
y=1.65
;
16,5 *10 -1, это и есть 1,65.
1
13.09.2011, 00:55
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.09.2011, 00:55

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

Использование арифметических выражений и функций!
Где-то ошибаюсь всегда не могу решить.

Составить программу вычисления арифметических выражений
Составить программу вычисления арифметических выражений: z=4.9siny+cos(cos(t)): t= 8.9x-tgb/b3sin...

Вычисление арифметических выражений
Проверьте плиз на правильность,а то не могу понять в чём ошибка.. program arifm_vurajenie; uses...


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

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

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