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

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

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

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

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

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

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

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

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

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
Привет! Вот еще темы с решениями:

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

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

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

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


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

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

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