Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Misisipi
2 / 2 / 0
Регистрация: 02.03.2016
Сообщений: 24
1

Обменять значения переменной, имеющей наибольшее значение с переменной, имеющей наименьшее значение

02.03.2016, 19:41. Просмотров 956. Ответов 2
Метки нет (Все метки)

Даны значения трех вещественных переменных a, b и c, отличные друг от друга. Обменять значения переменной, имеющей наибольшее значение с переменной, имеющей наименьшее значение.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.03.2016, 19:41
Ответы с готовыми решениями:

Определить наибольшее значение переменной s после выполнения данной программы
1983 В программе описан одномерный целочисленный массив с индексами от 0 до...

Вывести на печать номер и элементы строки, имеющей наибольшее количество элементов, попадающих в интервал
найти и вывести на печать номер и элементы строки, имеющей наибольшее...

Переменной Y присвоить значение той переменной, которое находится между двумя другими на числовой оси
Даны три вещественных, не равных между собой числа a, b, c. Переменной Y...

Составьте программу, которая: запрашивает значение переменной x и шага n; выводит значение функции
У ми жуткая программа по информе: 5 занятий по паскалю и контрольная. А мы...

найти наибольшее и наименьшее значение функции
1)Написать программу которая по n дня недели выводит на экран название дня. N...

2
Peoples
1352 / 841 / 749
Регистрация: 06.02.2016
Сообщений: 2,244
Записей в блоге: 18
Завершенные тесты: 4
02.03.2016, 20:05 2
Лучший ответ Сообщение было отмечено Misisipi как решение

Решение

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
27
28
29
30
31
32
33
34
program pr;
var
a,b,c,min,max,temp:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
max:=0;
min:=0;
if (a>b) and (a>c) then
max:=a;
if (b>a) and (b>c) then
max:=b;
if (c>a) and (c>b) then
max:=c;
 if (a<b) and (a<c) then
min:=a;
if (b<a) and (b<c) then
min:=b;
if (c<a) and (c<b) then
min:=c;
writeln('Максимальное: ',max);
writeln('Минимальное: ',min);
temp:=max;
max:=min;
min:=temp;
writeln;
writeln('После обмена');
writeln('Максимальное: ',max);
writeln('Минимальное: ',min);
end.
1
Misisipi
2 / 2 / 0
Регистрация: 02.03.2016
Сообщений: 24
02.03.2016, 20:07  [ТС] 3
Спасибо огромное)
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.03.2016, 20:07

Найти наибольшее и наименьшее значение функции
Найти наибольшее и наименьшее значение функции y=3x*x+x-4, если на заданном...

Найти наибольшее (наименьшее) значение A(I)-B(I) для матриц A(N) и B(N)
Найти наибольшее (наименьшее) значение A(I)-B(I) для массивов A(N) и B(N).

Найти наименьшее и наибольшее значение функции на заданном промежутке
Задание: Найти наименьшее и наибольшее значение функции на промежутке. ...


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

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

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