заданы переменные b,c,w

06.12.2013, 20:49. Показов 940. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Заданы переменные b,c,w. Если b>c вычислить и напечатать a = (sin(1/2) + tg(x) + x)/(2*tg^2(x)) где x=w-∏, если ∏/2<x<3∏/4 или x=w+∏, если 3∏/4<x<-∏/2. Если b<c, вычислить и напечатать a = e^(x+b). Если b=c, напечатать сообщение ''b=c''.

У меня получается только так:

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
program s1;
var b,c,w,a,x:real;
begin;
cls;
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
writeln('Введите w');
readln(w);
 
if (x>(pi/2)) or (x<((3*pi)/4)) then x:=w+pi;
if (x>((3*pi)/4)) or (x<(((-1)*pi)/2)) then x:=w-pi;
 
if b>c then
begin
a:=(sin(0.5)+(sin(x)/cos(x))+x)/(2*sqr(sin(x)/cos(x)));
writeln('a=',a);
end;
if b<c then
begin
 a:=exp(x+b);
 writeln('a=',a);
 end;
 if b=c then writeln('b=c');
 end.

Если что-то неправильно, пожалуйста исправьте.

Миниатюры

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

06.12.2013, 20:49

Ответы с готовыми решениями:

Заданы четыре переменные. Все отрицательные из них заменить абсолютными значениями и увеличить в 2 раза
Заданы четыре переменные. Все отрицательные из них заменить абсолютными значениями и увеличить в 2 раза.

Составить программу если переменные заданы следующим образом...
Ребята помогите решить задачу очень надо плиз! Дан целочисленный массив из 50 элементов требуется определить наименьшее значение элемента...

Заданы 4 переменные. Наименьшую из их заменить на сумму остальных
Заданы 4 переменные. Наименьшую из их заменить на сумму остальных. Вывести с указанием имени переменной. помогите пожалуйста, не хочет...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

06.12.2013, 20:49

Помогаю со студенческими работами здесь

Заданы переменные b,c,w, вычислить и напечатать значение выражения
Заданы переменные b,c,w . Если b > c вычислить и напечатать a=(sin(1,2)+tg(x)+x)/(2*tg(x)*tg(x)) ,где x=w-pi если 3*\pi...

Заданы 4 переменные. Подсчитать количество и сумму значений, не попавших в интервал [-5 5]
Здравствуйте! прошу помощи в решении задач в программе Матлаб, поскольку я новичок и не имею опыта работы в данной программе.Вот...

Заданы четыре переменные. Найти среди них пары значений
может кто помочь сделать программу по МатЛабу...плиз буд оч. благодарен! (с помощью функции if) Заданы четыре переменные. Найти...

Заданы четыре переменные: подсчитать количество равных нулю, положительных и отрицательных.
1). Из файла сценария с пощью функции диалогового вода ввести с клавиатуры все необходимые данные. 2). Выполнить расчет с использованием...

Заданы четыре переменные. Все положительные из них заменить отрицательными значениями, умноженными на 5
Помощь!!! Заданы четыре переменные. Все положительные из них заменить отрицательными значениями, умноженными на 5. Переменные нужно...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

Наверх