Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.76/34: Рейтинг темы: голосов - 34, средняя оценка - 4.76
0 / 0 / 0
Регистрация: 17.09.2011
Сообщений: 6

Дано а,b. Найти наибольшее max(a,b) из чисел а и b. Найти d:=tg(max(a,b))

05.10.2011, 20:02. Показов 6285. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано а,b. Найти наибольшее max(a,b) из чисел а и b. Найти d:=tg(max(a,b)).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a,b,max,d:real;
begin
writeln('введите a и b');
readln(a,b);
if a > b then max:=a;
d:=sin(max)/cos(max);
 if a<b then max:=b;
d:=sin(max)/cos(max);
 
 
writeln('max=',max,'  d=',d);
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
05.10.2011, 20:02
Ответы с готовыми решениями:

Даны векторы a и b , состоящие из семи компонентов. Найти max(max(Ai), max(Bi), max(¦Ai-Bi¦), max(Ai+Bі),1)
Даны векторы a и b , состоящие из семи компонентов. Найти max(max(Ai), max(Bi), max(¦Ai-Bi¦), max(Ai+Bі),1).

Найти max значение в каждой группе чисел и max из полученных max
Заданы три группы чисел 10, 20, 50 100, 200, 75 A, B, C Найти max значение в каждой группе чисел и max из полученных max. ...

Используя функцию поиска max из 2-х чисел, найти наибольшее из n чисел
Используя функцию поиска max из 2-х чисел, найти наибольшее из n чисел без POW

1
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,875
05.10.2011, 20:51
Pascal
1
2
3
4
5
6
7
8
9
var a,b,max,d:real;
begin
writeln('ââåäèòå a è b');
readln(a,b);
if a > b then max:=a
else max:=b;
d:=sin(max)/cos(max);
writeln('max=',max,' d=',d);
end.
а задача не на подпрограммы случайно?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
05.10.2011, 20:51
Помогаю со студенческими работами здесь

Даны действительные числа a, b. Найти: u = max (a, b), v = max (ab, a + b), с = max (u5 + v5, 256).
Даны действительные числа a, b. Найти: u = max (a, b), v = max (ab, a + b), с = max (u5 + v5, 256). предварительные данные задавать...

Определить значение z=max(a, 2b)*max(2a-b,b)
Определить значение z=max(a, 2b)*max(2a-b,b), где max(x, y)-максимальные из чисел х и у. Задачу решить 2мя способами: 1) Не используя...

Определить значение Z=max(a,2b)*max(2a-b,b), где max(x,y)-максимальное из чисел x,y
Помогите решить задачу: Определить значение Z=max(a,2b)*max(2a-b,b), где max(x,y)-максимальное из чисел x,y. Задачу решить двумя...

Задать значения вещественным элементам массивов A(6),B(3),C(10) и вычислить Y=max(max(A),max(B),max(C)
Задать значения вещественным элементам массивов A(6),B(3),C(10) и вычислить Y=max(max(A),max(B),max(C))

Найти в матрице А max элемент, все элементы в столбце до max умножить на 2
Всем доброго вечера. Возникла проблема с задачей, прошу помочь. В матрице А найти max элемент, все элемент, расположенные в столбце до...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru