Программирование алгоритмов разветвляющейся структуры

@Gybert · Регистрация: 13.05.2016

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

Методические требования к выполнению контрольного задания:
- Предусмотреть в программе объявление типа всех используемых
переменных, считая все их переменными вещественного типа;
- Предусмотреть ввод значений переменных X, Y, Z, входящих в наборы
исходных данных для тестирования, с клавиатуры по запросу программы;
- При выполнении домашнего задания подготовить наборы изменяемых X, Y,
Zи неизменяемых a, b, c, dпеременных исходных данных для тестирования
всех ветвей программы;
- Предусмотреть в программе вывод исходных данных и результатов
выполнения программы в произвольном формате.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> f=\begin{cases}\max\left( 3\sin x,\,2\min(x,\,y),\,x+a\right) & \text{, if } x<1\text{ and }y>1\\\\ \min \left(\frac{x+e^{x+a}}{3},\,\max (x,\,y) \right)& \text{, if } x>1\text{ and }y>1\\\\ 4\sin xy & \text{, otherwise} \end{cases}<br />$

@Gybert · 14.05.2016, 16:22 **[ТС]**

Сделать для консольного режима

@Puporev · 14.05.2016, 16:45

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,Math;
 
var a,x,y,f:double;
begin
write('a=');readln(a);
write('x=');readln(x);
write('y=');readln(y);
if (x<1)and(y>1) then f:=max(max(3*sin(x),2*min(x,y)),x+a)
else if (x>1)and(y>1) then f:=min((x+exp(x+a))/3,max(x,y))
else f:=4*sin(x*y);
write('f=',f:0:3);
readln
end.

@Gybert 0 / 0 / 0 Регистрация: 13.05.2016 Сообщений: 9
		1
	Программирование алгоритмов разветвляющейся структуры 14.05.2016, 16:10. Показов 2007. Ответов 2 Метки нет (Все метки) Методические требования к выполнению контрольного задания: - Предусмотреть в программе объявление типа всех используемых переменных, считая все их переменными вещественного типа; - Предусмотреть ввод значений переменных X, Y, Z, входящих в наборы исходных данных для тестирования, с клавиатуры по запросу программы; - При выполнении домашнего задания подготовить наборы изменяемых X, Y, Zи неизменяемых a, b, c, dпеременных исходных данных для тестирования всех ветвей программы; - Предусмотреть в программе вывод исходных данных и результатов выполнения программы в произвольном формате. $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> f=\begin{cases}\max\left( 3\sin x,\,2\min(x,\,y),\,x+a\right) & \text{, if } x<1\text{ and }y>1\\\\ \min \left(\frac{x+e^{x+a}}{3},\,\max (x,\,y) \right)& \text{, if } x>1\text{ and }y>1\\\\ 4\sin xy & \text{, otherwise} \end{cases}<br />$ 0

@Gybert 0 / 0 / 0 Регистрация: 13.05.2016 Сообщений: 9
	14.05.2016, 16:22 [ТС]	2
	Сделать для консольного режима 0

	14.05.2016, 16:45

Опции темы

Программирование алгоритмов разветвляющейся структуры

Решение