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

Написать программу для расчета по двум формулам.

16.06.2013, 19:37. Просмотров 604. Ответов 3
Метки нет (Все метки)

Написать программу для расчета по двум формулам.
Предварительно подготовьте тестовые примеры для второй формулы с помощью калькулятора (результаты вычисления по обеим формулам должны совпадать).
0
Миниатюры
Написать программу для расчета по двум формулам.  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2013, 19:37
Ответы с готовыми решениями:

Написать программу для расчета по двум формулам
Предварительно подготовьте текстовые примеры для второй формулы с помощью...

Написать программу для расчета по двум формулам
program formula; var z1, z2, a: real; begin writeln('Input a= '); z1:=...

TP Составить программу для расчета по двум формулам
Составить программу для расчета по двум формулам. Предусмотреть ввод значения...

Составить программу для расчета по двум формулам
Помогите пожалуста.Составить программу для расчета по двум формулам....

Написать программу для расчета по формулам
Помогите плиз!!! Написать программу для расчета по формулам

3
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
16.06.2013, 20:12 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  a,z1,z2: real;
begin
  write('Ââåäèòå a: ');
  readln(a);
  if (2*a+a*a=0)or(2*a-a*a=0) then
    writeln('ÐåçóëüòГ*ГІ z1 Г*ГҐ îïðåäåëåГ*') else
    begin
      z1:=1/((1+a+a*a)/(2*a+a*a)+2-(1-a+a*a)/(2*a-a*a))*(5-2*a*a);
      z2:=(4-a*a)/2;
      writeln('z1=',z1);
    end;
  writeln('z2=',z2);
  readln;
end.
1
Kristina123
2 / 2 / 0
Регистрация: 11.06.2013
Сообщений: 36
24.06.2013, 21:37  [ТС] #3
а можно пожалуйста по этим формулам
0
Миниатюры
Написать программу для расчета по двум формулам.  
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
24.06.2013, 21:45 #4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  a,z1,z2: real;
begin
  write('Ââåäèòå a: ');
  readln(a);
  if cos(a)+1-2*sqr(sin(2*a))=0 then
    writeln('ÐåçóëüòГ*ГІ z1 Г*ГҐ îïðåäåëåГ*') else
    begin
      z1:=(sin(2*a)+sin(5*a)-sin(3*a))/(cos(a)+1-2*sqr(sin(2*a)));
      z2:=2*sin(a);
      writeln('z1=',z1);
    end;
  writeln('z2=',z2);
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.06.2013, 21:45

Программа для расчета по 2-м формулам
Напишите пожалуйста программу для расчета по 2-м формулам к этой картинке ...

Написать программу для расчета по двум формулам
Доброго времени суток.Помогите пожалуйста кто нибудь с задачей,много вариантов...

Напишите программу для расчета по двум формулам
Задание: Напишите программу для расчета по двум формулам. Предварительно...


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

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

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