Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.04.2019, 08:23   #1
strdw
Новичок
Джуниор
 
Регистрация: 30.04.2019
Сообщений: 1
По умолчанию Помогите с вычислением значения функции (лаба)

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

Так же одно задание с оператором IF:

Задано 3 числа. Определить, косинус какого из них является
наибольшим
Миниатюры
Изображения
Тип файла: jpg Screenshot_2.jpg (67.1 Кб, 131 просмотров)
strdw вне форума Ответить с цитированием
Старый 30.04.2019, 08:52   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Вы не перепутали "помогите" и "сделайте за меня"?

покажите свои наработки, конкретные вопросы и т.п. Если кто-то просто решит за вас, это вряд ли поможет вам разобраться.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 30.04.2019, 09:57   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

А чё, если накропать человеку прогу, может, он вмиг станет экспертом в Паскале?
"Я - не волшебник, я только учусь. Сделать хотел грозу, а получил КЗ"
Какой МДК рисовал схему проги? Где "да" "нет" на ромбике выбора? Не связавши ее с исходником - френ поймешь. Тогда кому нужна такая схема?

Последний раз редактировалось digitalis; 30.04.2019 в 10:02.
digitalis вне форума Ответить с цитированием
Старый 05.05.2019, 07:12   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var x1,x2,x3,y1,y2,y3,xmax,ymax:real;
begin
   Write('x1 = '); Readln(x1);
   Write('x2 = '); Readln(x2);
   Write('x3 = '); Readln(x3);
   y1:=Cos(x1*pi/180);
   y2:=Cos(x2*pi/180);
   y3:=Cos(x3*pi/180);
   If y1>y2 then
   begin
      xmax:=x1;
      ymax:=y1;
   end else
   begin
      xmax:=x2;
      ymax:=y2;
   end;
   If y3>ymax then
   begin
      xmax:=x3;
      ymax:=y3;
   end;
   Writeln('Cos(',xmax:0:8,') = ',ymax:0:8);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с вычислением в БД Access Антон_ Microsoft Office Access 4 06.03.2015 18:37
Помогите пожалуйста написать программу для вычисления значения функции! (С#) Аукгь1991 Помощь студентам 13 03.02.2014 17:14
Помогите составить SQL запрос с вычислением Gift020 Помощь студентам 5 09.10.2013 13:33
Создание формулы с вычислением среднего значения диапазона ячеек Buchhalter Microsoft Office Excel 16 02.04.2012 21:09