Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.95/19: Рейтинг темы: голосов - 19, средняя оценка - 4.95
0 / 0 / 0
Регистрация: 17.10.2010
Сообщений: 6
1

Заменить из двух данных чисел меньшее число модулем разности

17.10.2010, 18:20. Просмотров 3913. Ответов 6
Метки нет (Все метки)

всем привет)
1.составьте программу, Заменяющую иЗ двух данных чисел меньшее число модулем разности, а большее – модулем произведения этих чисел.
2. составьте блок-схему и программу вычисления Значения функции:http://content.foto.mail.ru/ma... d/i-67.gif
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2010, 18:20
Ответы с готовыми решениями:

Заменить из двух данных чисел меньшее число суммой, а большее произведением
составьте программу заменяющую из двух данных чисел меньшее число суммой а большее произведение...

Заменяющую меньшее из двух данных чисел модулем разности
Составьте программу, заменяющую меньшее из двух данных чисел модулем разности, а большее – модулем...

Заменить из двух чисел меньшее число модулем их разности, а большее — модулем произведения
составьте программу, заменяющую из двух данных чисел меньшее число модулем разности, а большее -...

Заменить из двух данных чисел большее число удвоенным произведением, а меньшее - полусуммой этих чисел
Составить программу, заменяющую из двух данных чисел большее число удвоенным произведением, а...

6
Заблокирован
17.10.2010, 18:27 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
readln(a,b);
if a<b then min:=a else min:=b;
r:=abs(a-b);p:=abs(a*b);
if a=min then
   begin
a:=t;b:=p;end
else
begin
b:=t;a:=p;end;
writeln(a,b);
0
0 / 0 / 0
Регистрация: 17.10.2010
Сообщений: 6
17.10.2010, 18:31  [ТС] 3
а наибольшее?)
0
Модератор
60553 / 45553 / 31440
Регистрация: 18.05.2008
Сообщений: 109,487
17.10.2010, 18:33 4
2.
Pascal
1
2
if x<-3 then y:=(7*x*x-1)/(2*x+6)
else y:=4*x*x-5;
0
2853 / 1982 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
17.10.2010, 18:33 5
-II-
Pascal
1
2
if x<-3 then y:=(7*sqr(x)-1)/(2*x+6)
else if x>=-3 then y:=4*sqr(x)-5;
0
Модератор
60553 / 45553 / 31440
Регистрация: 18.05.2008
Сообщений: 109,487
17.10.2010, 18:36 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
x:=abs(a-b);
y:=abs(a*b);
if a<b then
 begin
  a:=x;
  b:=y;
 end
else
 begin
  a:=y;
  b:=x;
 end;
0
0 / 0 / 0
Регистрация: 17.10.2010
Сообщений: 6
17.10.2010, 18:40  [ТС] 7
спасибо )
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2010, 18:40

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Составьте программу, заменяющую из двух данных чисел большее число удвоенным произведением, а меньшее – полусуммой этих чисел.
Составьте программу, заменяющую из двух данных чисел большее число удвоенным произведением, а...

Задача на ветвление (замена меньшего из 2-х данных чисел модулем разности...)
Составьте программу,заменяющую меньшее из 2х данных чисел модулем разности,а большее модулем...

Если сумма двух чисел меньше единицы, то наименьшее заменить полусуммой, иначе меньшее заменить суммой
Если сумма двух различных чисел меньше единицы, то наименьшее заменить полусуммой, в противном...

Меньшее из двух чисел заменить их полусуммой
даны действительные числа х,у (х?у).Меньшее из этих двух чисел заменить их полусуммой, а большее их...


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

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

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